diff --git a/R/RunModel.SD.R b/R/RunModel.SD.R index 928d1ef80de6d7fa431946384133118c10fbdaaf..cb9853146c1660a49afe63ca2db7cd6a8e259abe 100644 --- a/R/RunModel.SD.R +++ b/R/RunModel.SD.R @@ -23,6 +23,9 @@ RunModel.SD <- function(x, RunOptions, Param, QcontribDown = NULL, ...) { RunOptions = RunOptions, Param = Param[1], QcontribDown = QcontribDown) + if (is.null(OutputsModel$DatesR)) { + OutputsModel$DatesR <- x$DatesR[RunOptions$IndPeriod_Run] + } if ("WarmUpQsim" %in% RunOptions$Outputs_Sim) { OutputsModel$RunOptions$WarmUpQsim_m3 <- OutputsModel$RunOptions$WarmUpQsim * sum(x$BasinAreas, na.rm = TRUE) * 1e3