Calculate Bear 1D

Calculate Bear 1D

Usage

calculate_bear1d(
  n_values,
  rs_values,
  foc_values,
  log_koc_values,
  hl_values,
  C0 = 1,
  D_values,
  v_values,
  t_values = max(hl_values * max(log_koc_values)),
  x_values
)

Arguments

n_values

Porosity (-)

rs_values

density solids (g/g)

foc_values

fraction of organic matter

log_koc_values

min, max Koc for relevant compounds Nguyen et al 2020

hl_values

half life (T)

C0

initial concentration of the solute (M/L3)

D_values

coefficient of longitudinal dispersion (L2/T)

v_values

average linear ground water velocity (L/T)

t_values

time (T), default: max(hl_values * max(log_koc_values))

x_values

flow path distance (L)

Value

Bear 1D results

Examples

bear1d_vienna <- calculate_bear1d(n_values = 0.15,
rs_values = 2.7,
foc_values = 0.002,
log_koc_values = c(1,2.9),
hl_values = c(500,2000),
C0 = 1,
D_values = 10,
v_values = 21.3,
t_values = seq(0, 350, by=1),
x_values = 141
)