Commit 9a98522c authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

refactor: manage with case sensitivity of the QupstrUnit argument in CreateInputsModel

Refs 7cbab175, #110
parent 5859baed
Pipeline #22248 passed with stages
in 8 minutes and 9 seconds
......@@ -339,7 +339,7 @@ CreateInputsModel <- function(FUN_MOD,
Qupstream[,iConvBasins] <- Qupstream[,iConvBasins] * BasinAreas[iConvBasins] * 1e3
} else if (QupstrUnit == "m3/s") {
Qupstream <- Qupstream * TimeStep
} else if (QupstrUnit %in% c("l/s", "L/s")) {
} else if (QupstrUnit == "l/s") {
Qupstream <- Qupstream * TimeStep / 1e3
}
InputsModel <- c(InputsModel, list(Qupstream = Qupstream,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment