aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2018-06-08 16:20:40 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2018-06-08 16:20:40 +0200
commitbd15236d5dedb4067bd29e58e655c5352aca1db4 (patch)
treed731b3dc84e23a9a0ab178a81dbbad127720b1df
parentec2052d68950745380c2724757b3ba8b116605fc (diff)
Enable PEC porewater for the default scenario
The default scenario uses soil parameters from the REACH guidance R.16, Table R.16-9.
-rw-r--r--ChangeLog2
-rw-r--r--R/PEC_soil.R2
2 files changed, 2 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index f20f718..7ea31a7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,4 @@
-commit 7dc0ba4228fa490631b543c193ad7f113d703f00
+commit ec2052d68950745380c2724757b3ba8b116605fc
Author: Johannes Ranke <jranke@uni-bremen.de>
Date: 2018-06-08 14:54:40 +0200
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, ]

Contact - Imprint