bench/dolo/dolo_fgcs_3_rt.R

@@ -1,8 +0,0 @@
-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))
-)

bench/fgcs/barite_fgcs_4.R

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

bench/fgcs/dolo_fgcs.pqi

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