From bd15236d5dedb4067bd29e58e655c5352aca1db4 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 8 Jun 2018 16:20:40 +0200 Subject: Enable PEC porewater for the default scenario The default scenario uses soil parameters from the REACH guidance R.16, Table R.16-9. --- ChangeLog | 2 +- R/PEC_soil.R | 2 +- 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 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, ] -- cgit v1.2.1