From ea053cbdeedfd5d91546e637694c396f6eea9342 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@irstea.fr>
Date: Tue, 5 Jan 2021 10:35:03 +0100
Subject: [PATCH] fix(RunModel_Lag): error in definition of StateEnd
Refs #78
---
R/RunModel_Lag.R | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/R/RunModel_Lag.R b/R/RunModel_Lag.R
index 78c997f7..d0f8b04c 100644
--- a/R/RunModel_Lag.R
+++ b/R/RunModel_Lag.R
@@ -82,9 +82,10 @@ RunModel_Lag <- function(InputsModel, RunOptions, Param) {
# Convert back Qsim to mm
OutputsModel$Qsim <- OutputsModel$Qsim / sum(InputsModel$BasinAreas, na.rm = TRUE) / 1e3
- if("StateEnd" %in% RunOptions$Outputs_Sim) {
+ if ("StateEnd" %in% RunOptions$Outputs_Sim) {
OutputsModel$StateEnd$SD <- lapply(seq(NbUpBasins), function(x) {
- Qupstream[(LengthTs - floor(PT[upstream_basin])):LengthTs]})
+ Qupstream[(LengthTs - floor(PT[x])):LengthTs]
+ })
}
return(OutputsModel)
--
GitLab