\pagebreak
stopifnot( requireNamespace("rSOILWAT2"), requireNamespace("rSW2funs") )
# 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)
# 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)
# 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)
# 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)
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
Our interpretations of SSS (2014)^[\ref{def:SSS2014}]^ -- language refers to soil layers, not parts
Saturated := soil water potential >= -0.033 MPa
\label{def:histic_epipedon} Histic epipedon := a horizon that is periodically saturated with water and that has sufficiently high amounts of organic carbon (O.C. 12 to 18%, by weight, depending on clay content) to be considered organic soil material. Typically, it is at (or near) the surface and is peat or muck at least 20 cm thick." (p.3-10, SSS 2015^[\ref{def:SSS2015}]^)
1/2 CUMULATIVE days when Mean Annual ST > 0C
Generalized Characteristics (SSS 2015^[\ref{def:SSS2015}]^)
In other areas with cold to warm soil temperatures (< 22 C):
The soil is dry for > 90 cumulative days, but
The soil is moist for > 50% of the growing season (when soil temperature > 5 C).
Or: In other areas where the soil is moist for > 45 consecutive days in winter and early spring, the soil is dry for < 45 consecutive days in summer and early fall. Remarks * jNSM does not explicitly calculate ustic, instead it represents the "other" category (except for the very cold areas)
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}]^)
Code interpretation based on 'BASICSimulationModel.java' and 'NewhallResults.java'.
\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).
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.