From de9d5118540ecf3471ddd54429eceb1050d220da Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Tue, 2 Apr 2024 18:23:54 +0200
Subject: [PATCH] fix(RunModel_Lag): missing DatesR in OutputsModel
Refs #144
---
R/RunModel.SD.R | 3 +++
1 file changed, 3 insertions(+)
diff --git a/R/RunModel.SD.R b/R/RunModel.SD.R
index 928d1ef..cb98531 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
--
GitLab