fix(RunModel_Lag): error in definition of StateEnd

Refs #78

fix(RunModel_Lag): error in definition of StateEnd
Refs #78
ea053cbd · Dorchies David · cb8f6522 · ea053cbd
Commit ea053cbd authored 4 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

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