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

Refs #106, 839d21d6, cb1e05b0

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))
   }