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
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/MNH/phys_paramn.f90
+ 1
− 1
View file @ f428af66
...@@ -1233,7 +1233,7 @@ ZTIME1 = ZTIME2 ...@@ -1233,7 +1233,7 @@ ZTIME1 = ZTIME2
XTIME_BU_PROCESS = 0. XTIME_BU_PROCESS = 0.
XTIME_LES_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, & CCLOUD, XPABST,XTHT,XRT,XSVT, &
XRHODJ,XZZ,XRUS, XRVS, & XRHODJ,XZZ,XRUS, XRVS, &
XRTKES,XRTHS, XRRS,XRSVS) XRTKES,XRTHS, XRRS,XRSVS)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme