fix: add missing TimeStep object in CreateInputsModel (erroneously removed)

Refs #106, 839d21d6, cb1e05b0

fix: add missing TimeStep object in CreateInputsModel (erroneously removed)
Refs #106, 839d21d6, cb1e05b0
0bf5bf7e · Delaigue Olivier · cb1e05b0 · 0bf5bf7e
Commit 0bf5bf7e authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 1 deletion
+2 -1
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -30,6 +30,7 @@ CreateInputsModel <- function(FUN_MOD,
  FUN_MOD <- match.fun(FUN_MOD)
  FeatFUN_MOD <- .GetFeatModel(FUN_MOD = FUN_MOD, DatesR = DatesR)
  ObjectClass <- FeatFUN_MOD$Class
+  TimeStep <- FeatFUN_MOD$TimeStep


  ##check_arguments
@@ -286,7 +287,7 @@ CreateInputsModel <- function(FUN_MOD,
      Qupstream <- Qupstream * TimeStep / 1e3
    }
    InputsModel <- c(InputsModel, list(Qupstream = Qupstream,
-                                       LengthHydro   = LengthHydro,
+                                       LengthHydro = LengthHydro,
                                       BasinAreas = BasinAreas))
  }