diff --git a/src/Init/InitialList.cpp b/src/Init/InitialList.cpp index aa66f71a6..0931c34f3 100644 --- a/src/Init/InitialList.cpp +++ b/src/Init/InitialList.cpp @@ -31,6 +31,9 @@ void InitialList::importList(const Rcpp::List &setup) { this->porosity = Rcpp::as>( setup[static_cast(ExportList::GRID_POROSITY)]); + this->initial_grid = + Rcpp::List(setup[static_cast(ExportList::GRID_INITIAL)]); + this->transport_names = Rcpp::as>( setup[static_cast(ExportList::DIFFU_TRANSPORT)]); this->boundaries = @@ -61,6 +64,7 @@ Rcpp::List InitialList::exportList() { out[static_cast(ExportList::GRID_CONSTANT)] = Rcpp::wrap(this->constant_cells); out[static_cast(ExportList::GRID_POROSITY)] = Rcpp::wrap(this->porosity); + out[static_cast(ExportList::GRID_INITIAL)] = this->initial_grid; out[static_cast(ExportList::DIFFU_TRANSPORT)] = Rcpp::wrap(this->transport_names); diff --git a/src/Init/InitialList.hpp b/src/Init/InitialList.hpp index 060fc19a0..7a97bbead 100644 --- a/src/Init/InitialList.hpp +++ b/src/Init/InitialList.hpp @@ -35,6 +35,7 @@ private: GRID_SPATIAL, GRID_CONSTANT, GRID_POROSITY, + GRID_INITIAL, DIFFU_TRANSPORT, DIFFU_BOUNDARIES, DIFFU_ALPHA_X,