Fix grid size assignment in GridInit.cpp

This commit is contained in:
Max Lübke 2024-04-12 12:35:43 +00:00
parent 6d36dd7a2e
commit e11caba0b3
3 changed files with 4 additions and 4 deletions

View File

@ -8,7 +8,7 @@ grid_setup <- list(
pqc_in_file = "./dol.pqi",
pqc_db_file = "./phreeqc_kin.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(rows, cols) / 100, # Size of the grid in meters
grid_size = c(cols, rows) / 100, # Size of the grid in meters
constant_cells = c() # IDs of cells with constant concentration
)

View File

@ -8,7 +8,7 @@ grid_setup <- list(
pqc_in_file = "./dol.pqi",
pqc_db_file = "./phreeqc_kin.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(5, 2.5), # Size of the grid in meters
grid_size = c(2.5, 5), # Size of the grid in meters
constant_cells = c() # IDs of cells with constant concentration
)

View File

@ -135,8 +135,8 @@ void InitialList::prepareGrid(const Rcpp::List &grid_input) {
this->n_rows = grid_def.nrow();
this->n_cols = grid_def.ncol();
this->s_rows = grid_size[0];
this->s_cols = grid_size[1];
this->s_cols = grid_size[0];
this->s_rows = grid_size[1];
this->dim = n_cols == 1 ? 1 : 2;