diff --git a/R/RunModel_LBLR.R b/R/RunModel_LBLR.R index 0e596e0b821a1eae9c22f498c2e703d03e90162c..089bffb1d9721cb00a673d8b9c134ad6e37ae2cd 100644 --- a/R/RunModel_LBLR.R +++ b/R/RunModel_LBLR.R @@ -63,10 +63,10 @@ RunModel_LBLR <- function(InputsModel, RunOptions, Param, QcontribDown) { QcontribDown) } - ## Parameters set up - TParam <- Param[1L] - KParam <- Param[2L] + ## Param[1L] et Param[2L] : m/s + TParam <- max(InputsModel$LengthHydro) * 1e3 / Param[1L] / RunOptions$FeatFUN_MOD$TimeStep #T en pdt + KParam <- max(InputsModel$LengthHydro) * 1e3 / Param[2L] / RunOptions$FeatFUN_MOD$TimeStep # T en pdt PK <- ifelse(InputsModel$LengthHydro == 0, 0,