Skip to content
GitLab
Commit f074d04e authored by David's avatar David
Browse files

fix(CreateInputsModel): Missing IsHyst arguments in function calls 

Refs #134
parent f6c9a2ed
dev 180-write-a-vignette-with-exemple-of-use-of-runmodel-griwrmoutputsmodel 181-simulation-water-losses-on-routed-flows-based-on-gr-groundwater-exchange-function 183-createcaliboptions-crash-when-all-parameters-are-fixed master v0.7.0
2 merge requests!93Draft: Version 0.7.0,!66Resolve "Crash with Hysteresis in Cemaneige"
Pipeline #48160 failed with stage
in 8 minutes and 46 seconds
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 2 deletions
+3 -2
R/CreateInputsModel.GRiwrm.R
+ 3
− 2
View file @ f074d04e
...@@ -215,7 +215,8 @@ CreateInputsModel.GRiwrm <- function(x, DatesR, ...@@ -215,7 +215,8 @@ CreateInputsModel.GRiwrm <- function(x, DatesR,
HypsoData = getInputBV(HypsoData, id), HypsoData = getInputBV(HypsoData, id),
NLayers = getInputBV(NLayers, id, 5), NLayers = getInputBV(NLayers, id, 5),
Qobs = Qobs, Qobs = Qobs,
Qmin = getInputBV(Qmin, id) Qmin = getInputBV(Qmin, id),
IsHyst = IsHyst
) )
} }
attr(InputsModel, "TimeStep") <- getModelTimeStep(InputsModel) attr(InputsModel, "TimeStep") <- getModelTimeStep(InputsModel)
...@@ -250,7 +251,7 @@ CreateEmptyGRiwrmInputsModel <- function(griwrm) { ...@@ -250,7 +251,7 @@ CreateEmptyGRiwrmInputsModel <- function(griwrm) {
#' #'
#' @return \emph{InputsModel} object for one. #' @return \emph{InputsModel} object for one.
#' @noRd #' @noRd
CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin) { CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin, IsHyst) {
np <- getNodeProperties(id, griwrm) np <- getNodeProperties(id, griwrm)
if (np$Diversion) { if (np$Diversion) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment