feat(RunModel_LBLR): Change parameters T0 and K0 to C0 and Ko expressed as a celerity

23df02d1 · Dorchies David · 567a85cd · 23df02d1
Commit 23df02d1 authored 2 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

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