mirror of
https://git.gfz-potsdam.de/naaice/poet.git
synced 2025-12-15 12:28:22 +01:00
Fix grid size assignment in GridInit.cpp
This commit is contained in:
parent
6d36dd7a2e
commit
e11caba0b3
@ -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
|
||||
)
|
||||
|
||||
|
||||
@ -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
|
||||
)
|
||||
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user