diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2018-06-08 16:20:40 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-06-08 16:20:40 +0200 |
| commit | bd15236d5dedb4067bd29e58e655c5352aca1db4 (patch) | |
| tree | d731b3dc84e23a9a0ab178a81dbbad127720b1df /R | |
| parent | ec2052d68950745380c2724757b3ba8b116605fc (diff) | |
Enable PEC porewater for the default scenario
The default scenario uses soil parameters from the REACH guidance R.16,
Table R.16-9.
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_soil.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/PEC_soil.R b/R/PEC_soil.R index 0263e47..ea1cb71 100644 --- a/R/PEC_soil.R +++ b/R/PEC_soil.R @@ -119,7 +119,7 @@ PEC_soil <- function(rate, rate_units = "g/ha", interception = 0, PEC_units = match.arg(PEC_units) scenarios = match.arg(scenarios) sce <- switch(scenarios, - default = data.frame(rho = 1.5, T_arr = NA, theta_fc = 0.2, f_oc = 0.02, + default = data.frame(rho = 1.5, T_arr = NA, theta_fc = 0.2, f_om = 1.724 * 0.02, f_sce = 1, f_mod = 1, row.names = "default"), EFSA_2015 = if (porewater) soil_scenario_data_EFSA_2015[4:6, ] else soil_scenario_data_EFSA_2015[1:3, ] |