fix: Qupstream conversion error with several upstream flows

Refs #110

fix: Qupstream conversion error with several upstream flows
Refs #110
5d52933b · Dorchies David · 9a98522c · 5d52933b
Commit 5d52933b authored 4 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 1 deletion
+2 -1
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -336,7 +336,8 @@ CreateInputsModel <- function(FUN_MOD,
    # Qupstream is internally stored in m3/time step
    if (QupstrUnit == "mm") {
      iConvBasins <- which(!is.na(BasinAreas[seq.int(length(LengthHydro))]))
-      Qupstream[,iConvBasins] <- Qupstream[,iConvBasins] * BasinAreas[iConvBasins] * 1e3
+      Qupstream[,iConvBasins] <-
+        Qupstream[,iConvBasins] * rep(BasinAreas[iConvBasins], each = LLL) * 1e3
    } else if (QupstrUnit == "m3/s") {
      Qupstream <- Qupstream * TimeStep
    } else if (QupstrUnit == "l/s") {