From 23df02d1dbb3fe134c45ab2d9d576258f3a8b4cc Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Tue, 2 Aug 2022 11:35:46 +0200
Subject: [PATCH] feat(RunModel_LBLR): Change parameters T0 and K0 to C0 and Ko
expressed as a celerity
---
R/RunModel_LBLR.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/RunModel_LBLR.R b/R/RunModel_LBLR.R
index 0e596e0..089bffb 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,
--
GitLab