fix(CreateInputsModel): Missing IsHyst arguments in function calls

Refs #134

fix(CreateInputsModel): Missing IsHyst arguments in function calls
Refs #134
f074d04e · David · f6c9a2ed · f074d04e
Commit f074d04e authored 1 year ago by David
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 2 deletions
+3 -2
--- a/R/CreateInputsModel.GRiwrm.R
+++ b/R/CreateInputsModel.GRiwrm.R
@@ -215,7 +215,8 @@ CreateInputsModel.GRiwrm <- function(x, DatesR,
                                 HypsoData = getInputBV(HypsoData, id),
                                 NLayers = getInputBV(NLayers, id, 5),
                                 Qobs = Qobs,
-                                 Qmin = getInputBV(Qmin, id)
+                                 Qmin = getInputBV(Qmin, id),
+                                 IsHyst = IsHyst
                                 )
  }
  attr(InputsModel, "TimeStep") <- getModelTimeStep(InputsModel)
@@ -250,7 +251,7 @@ CreateEmptyGRiwrmInputsModel <- function(griwrm) {
 #'
 #' @return \emph{InputsModel} object for one.
 #' @noRd
-CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin) {
+CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin, IsHyst) {
  np <- getNodeProperties(id, griwrm)

  if (np$Diversion) {