Compare commits

...

2 Commits

3 changed files with 13 additions and 3 deletions

View File

@ -0,0 +1,8 @@
iterations <- 15000
dt <- 200
list(
timesteps = rep(dt, iterations),
store_result = TRUE,
out_save = c(1,20,50, seq(100,1000, by=100), seq(2000, iterations, by=1000))
)

View File

@ -88,12 +88,12 @@ dht_species <- c(
) )
pht_species <- c( pht_species <- c(
"Ba" = 4, "Ba" = 3,
"Cl" = 3, "Cl" = 3,
"S" = 3, "S" = 3,
"Sr" = 3, "Sr" = 3,
"Barite" = 2, "Barite" = 1,
"Celestite" = 2 "Celestite" = 1
) )
chemistry_setup <- list( chemistry_setup <- list(

View File

@ -4,6 +4,8 @@ SOLUTION 1
temperature 25 temperature 25
pH 7 pH 7
pe 4 pe 4
Mg 1e-12
Cl 2e-12
PURE 1 PURE 1
Calcite 0.0 1 Calcite 0.0 1
END END