fix: update dht_species values for barite and celestite in benchmark scripts

This commit is contained in:
Max Lübke 2024-12-20 09:18:35 +01:00
parent a718c3efaf
commit d5a70a20bb
2 changed files with 21 additions and 21 deletions

View File

@ -35,15 +35,15 @@ diffusion_setup <- list(
) )
dht_species <- c( dht_species <- c(
"H" = 7, "H" = 3,
"O" = 7, "O" = 3,
"Charge" = 4, "Charge" = 6,
"Ba" = 7, "Ba" = 6,
"Cl" = 7, "Cl" = 6,
"S(6)" = 7, "S" = 6,
"Sr" = 7, "Sr" = 6,
"Barite" = 4, "Barite" = 5,
"Celestite" = 4 "Celestite" = 5
) )
chemistry_setup <- list( chemistry_setup <- list(

View File

@ -36,15 +36,15 @@ diffusion_setup <- list(
) )
dht_species <- c( dht_species <- c(
"H" = 4, "H" = 3,
"O" = 10, "O" = 3,
"Charge" = 4, "Charge" = 3,
"Ba" = 7, "Ba" = 6,
"Cl" = 4, "Cl" = 6,
"S(6)" = 7, "S" = 6,
"Sr" = 4, "Sr" = 6,
"Barite" = 2, "Barite" = 5,
"Celestite" = 2 "Celestite" = 5
) )
chemistry_setup <- list( chemistry_setup <- list(