diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index 5b4fa88a0f4bbd0f436273db78ce8b16e8a21680..7a24cf3c98fe3bb6e9bc4d1dfa20aca275f5f664 100644
--- 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") {