\pagebreak

How to use rSOILWAT2 to calculate SMRs and STRs

Load sufficiently recent versions of the packages rSOILWAT2 and rSW2funs

  stopifnot(
    requireNamespace("rSOILWAT2"),
    requireNamespace("rSW2funs")
  )

Load data and run rSOILWAT2 simulation

  # Load data for an example site: see ?rSOILWAT2::sw_exampleData
  sw_in <- rSOILWAT2::sw_exampleData
  # Run SOILWAT2 for the example site: see ?sw_exec
  sw_out <- rSOILWAT2::sw_exec(inputData = sw_in)

Calculate SMRs and STRs and underlying conditions for the example site

  # For more information, see ?calc_SMTRs
  SMTR <- rSW2funs::calc_SMTRs(sim_in = sw_in, sim_out = sw_out)

  # Check that simulation was successful and regimes could be identified:
  stopifnot(
    as.logical(
      SMTR[c(
        "regimes_done",
        "has_simulated_SoilTemp",
        "has_realistic_SoilTemp"
    )]),
    SMTR[["SMR_normalyears_N"]] > 2
  )

  # Take average across years and select regimes with more than 90% agreement
  crit_agree_frac <- 0.9
  x <- SMTR[["cond_annual"]]

  # --> Soil temperature regime is "Cryic"
  Tregime <- colMeans(SMTR[["STR"]]) >= crit_agree_frac
  print(Tregime)

  # --> Soil moisture regime is "Ustic" / "Typic-Tempustic"
  Sregime <- colMeans(SMTR[["SMR"]]) >= crit_agree_frac
  print(Sregime)

Explore the conditions that define the cryic STR:

  # The STR of the example site is cryic because:
  cryic <-
    #   - there is no permafrost:
    SMTR[["permafrost_yrs"]] == 0 &&

    #   - annual soil temperature at 50-cm depth is between 0 and 8 C:
    mean(x[, "MAT50"] > 0 & x[, "MAT50"] < 8) >= crit_agree_frac &&

    #  - soil is not saturated with water during some part of the summer:
    mean(x[, "CSPartSummer"] == 0) >= crit_agree_frac &&

    #  - soil does not have an O-horizon:
    !SMTR[["has_Ohorizon"]] &&

    #  - summer soil temperature at 50-cm depth is below 15 C:
    mean(x[, "T50jja"] < 15) >= crit_agree_frac

  print(cryic)

Explore the conditions that define the ustic SMR:

  # The SMR of the example site is ustic because:
  ustic <-
    #   - there is no permafrost:
    SMTR[["permafrost_yrs"]] == 0 &&

    #   - moisture control section is not dry for less than 90 cumulative days
    !(mean(x[, "COND3"]) >= crit_agree_frac) &&

    #   - annual soil temperature at 50-cm depth is not more than 22 C
    !(mean(x[, "COND4"]) >= crit_agree_frac) &&

    #   - soils are not completely dry for more than half the days of the year
    #     when soil temperature ato 50-cm depth is more than 5 C
    !(mean(x[, "COND1"]) >= crit_agree_frac) &&

    #   - soils are not moist for more than 45 consecutive days following
    #     the winter soltice
    !(mean(x[, "COND9"]) >= crit_agree_frac)

  print(ustic)

  # The SMR of the example site is typic-tempustic because:
  typic_tempustic <-
    #   - SMR is ustic
    ustic &&

    #   - soils are not moist for more than 45 consecutive days following
    #     the winter soltice
    !(mean(x[, "COND9"]) >= crit_agree_frac)

  print(typic_tempustic)

Determine resilience and resistance (RR) categories:

Note: cryic/ustic conditions have not been included by (Chambers et al. 2014)^[\ref{def:Chambers2014}]^ or (Maestas et al. 2016)^[\ref{def:Maestas2016}]^.

  # Determine resilience & resistance classes (sensu Chambers et al. 2014):
  clim <- rSOILWAT2::calc_SiteClimate(
    weatherList = rSOILWAT2::get_WeatherHistory(sw_in)
  )

  RR <- rSW2funs::calc_RRs_Chambers2014(
    Tregime,
    Sregime,
    MAP_mm = 10 * clim[["MAP_cm"]]
  )
  print(RR)

  # Determine resilience & resistance classes (sensu Maestas et al. 2016):
  RR <- rSW2funs::calc_RRs_Maestas2016(Tregime, Sregime)
  print(RR)

\pagebreak

Notes

Definitions of conditions

Our interpretations of SSS (2014)^[\ref{def:SSS2014}]^ -- language refers to soil layers, not parts

Conditions for Soil Moisture Regimes

Conditions for Anhydrous Soils

Conditions for Soil Temperature Regimes

Soil Moisture Regimes

Undefined

Perudic

Udic

Ustic

Xeric

Aridic

Anhydrous

Soil Temperature Regimes

We currently ignore the 'iso-' prefix, i.e., "the mean summer and mean winter soil temperatures differ by less than 6 C at a depth of 50 cm or at a densic, lithic, or paralithic contact, whichever is shallower", which is applicable to frigid, mesic, thermic, and hyperthermic regimes (SSS 2014^[\ref{def:SSS2014}]^)

Permafrost

Gelic

Cryic

Frigid

Mesic

Thermic

Hyperthermic

jNSM

Code interpretation based on 'BASICSimulationModel.java' and 'NewhallResults.java'.

jNSM variables

jNSM inputs

References

\label{def:Chambers2014} Chambers, J. C., D. A. Pyke, J. D. Maestas, M. Pellant, C. S. Boyd, S. B. Campbell, S. Espinosa, D. W. Havlina, K. E. Mayer, and A. Wuenschel. 2014. Using Resistance and Resilience Concepts to Reduce Impacts of Invasive Annual Grasses and Altered Fire Regimes on the Sagebrush Ecosystem and Greater Sage-Grouse: A Strategic Multi-Scale Approach. Gen. Tech. Rep. RMRS-GTR-326. U.S. Department of Agriculture, Forest Service, Rocky Mountain Research Station, Fort Collins, CO.

\label{def:Maestas2016} Maestas, J.D., Campbell, S.B., Chambers, J.C., Pellant, M. & Miller, R.F. (2016). Tapping Soil Survey Information for Rapid Assessment of Sagebrush Ecosystem Resilience and Resistance. Rangelands, 38, 120-128.

\label{def:SSS2014} Soil Survey Staff (2014). Keys to soil taxonomy, 12th ed. USDA Natural Resources Conservation Service, Washington, DC.

\label{def:SSS2015} Soil Survey Staff (2015). Illustrated guide to soil taxonomy. USDA Natural Resources Conservation Service, National Soil Survey Center, Lincoln, Nebraska.

\label{def:jNSM2016} jNSM (2016). Java Newhall Simulation Model, version 1.6.1. https://github.com/drww/newhall (accessed Oct 26, 2016).



DrylandEcology/rSW2funs documentation built on June 28, 2023, 2:51 a.m.