From 8817f48a8bbdbada22c98415509e9438da77ae44 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Tue, 31 Dec 2024 17:15:46 +0100
Subject: [PATCH] fix(RunModel.GRiwrmOutputsModel): keep original warm-up data
in OutputsModel
Refs #179
---
R/utils.RunModel.R | 3 +++
1 file changed, 3 insertions(+)
diff --git a/R/utils.RunModel.R b/R/utils.RunModel.R
index 9f5bb67..71b0512 100644
--- a/R/utils.RunModel.R
+++ b/R/utils.RunModel.R
@@ -148,6 +148,9 @@ merge.OutputsModel <- function(x, y, ...) {
for (item in items) {
y[[item]] <- c(x[[item]], y[[item]])
}
+ # We keep original warm-up data
+ if (!is.null(x$RunOptions$WarmUpQsim)) y$RunOptions$WarmUpQsim <- x$RunOptions$WarmUpQsim
+ if (!is.null(x$RunOptions$WarmUpQsim_m3)) y$RunOptions$WarmUpQsim_m3 <- x$RunOptions$WarmUpQsim_m3
return(y)
}
--
GitLab