From f428af6669ee07fab23a95b5df48a58e03a877db Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Tue, 15 May 2018 14:15:32 +0200
Subject: [PATCH] C.Lac 15/5/2018 : correction in the tree drag formulation
MNH/drag_veg.f90
---
src/MNH/phys_paramn.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/phys_paramn.f90 b/src/MNH/phys_paramn.f90
index 9ad50c460..a50f07b01 100644
--- a/src/MNH/phys_paramn.f90
+++ b/src/MNH/phys_paramn.f90
@@ -1233,7 +1233,7 @@ ZTIME1 = ZTIME2
XTIME_BU_PROCESS = 0.
XTIME_LES_BU_PROCESS = 0.
!
-IF (LDRAGTREE) CALL DRAG_VEG(XUT,XVT,XTKET,LDEPOTREE,XVDEPOTREE, &
+IF (LDRAGTREE) CALL DRAG_VEG(XTSTEP,XUT,XVT,XTKET,LDEPOTREE,XVDEPOTREE, &
CCLOUD, XPABST,XTHT,XRT,XSVT, &
XRHODJ,XZZ,XRUS, XRVS, &
XRTKES,XRTHS, XRRS,XRSVS)
--
GitLab