mirror of
https://git.gfz-potsdam.de/naaice/poet.git
synced 2025-12-15 20:38:23 +01:00
59 lines
1.3 KiB
R
59 lines
1.3 KiB
R
cols <- 200
|
|
rows <- 200
|
|
|
|
s_cols <- 1
|
|
s_rows <- 1
|
|
|
|
grid_def <- matrix(2, nrow = rows, ncol = cols)
|
|
|
|
# Define grid configuration for POET model
|
|
grid_setup <- list(
|
|
pqc_in_file = "./barite.pqi",
|
|
pqc_db_file = "./db_barite.dat", # Path to the database file for Phreeqc
|
|
grid_def = grid_def, # Definition of the grid, containing IDs according to the Phreeqc input script
|
|
grid_size = c(s_rows, s_cols), # Size of the grid in meters
|
|
constant_cells = c() # IDs of cells with constant concentration
|
|
)
|
|
|
|
bound_length <- 2
|
|
|
|
bound_def <- list(
|
|
"type" = rep("constant", bound_length),
|
|
"sol_id" = rep(3, bound_length),
|
|
"cell" = seq(1, bound_length)
|
|
)
|
|
|
|
homogenous_alpha <- 1e-6
|
|
|
|
diffusion_setup <- list(
|
|
boundaries = list(
|
|
"W" = bound_def,
|
|
"N" = bound_def
|
|
),
|
|
alpha_x = homogenous_alpha,
|
|
alpha_y = homogenous_alpha
|
|
)
|
|
|
|
dht_species <- c(
|
|
"H" = 7,
|
|
"O" = 7,
|
|
"Charge" = 4,
|
|
"Ba" = 7,
|
|
"Cl" = 7,
|
|
"S(6)" = 7,
|
|
"Sr" = 7,
|
|
"Barite" = 4,
|
|
"Celestite" = 4
|
|
)
|
|
|
|
chemistry_setup <- list(
|
|
dht_species = dht_species
|
|
)
|
|
|
|
# Define a setup list for simulation configuration
|
|
setup <- list(
|
|
Grid = grid_setup, # Parameters related to the grid structure
|
|
Diffusion = diffusion_setup, # Parameters related to the diffusion process
|
|
Chemistry = chemistry_setup
|
|
)
|