fix(RunModel_Lag): missing DatesR in OutputsModel

Refs #144

fix(RunModel_Lag): missing DatesR in OutputsModel
Refs #144
de9d5118 · David · 7c9db918 · de9d5118
Commit de9d5118 authored 1 year ago by David
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 0 deletions
+3 -0
--- 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