Skip to content
Snippets Groups Projects
Commit f428af66 authored by Gaelle DELAUTIER's avatar Gaelle DELAUTIER
Browse files

C.Lac 15/5/2018 : correction in the tree drag formulation MNH/drag_veg.f90

parent 443610bb
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment