Skip to content
Snippets Groups Projects
Commit c9efc874 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 19/12/2018: remove a where statement : zshear shoud be zero if bl89 is used

parent 748bdc88
No related branches found
No related tags found
No related merge requests found
...@@ -223,18 +223,12 @@ ZHLVPT(:,KKA) = ZVPT(:,KKA) ...@@ -223,18 +223,12 @@ ZHLVPT(:,KKA) = ZVPT(:,KKA)
! !
!* 3. loop on model levels !* 3. loop on model levels
! -------------------- ! --------------------
WHERE (ZSHEAR<1.E-7)
ZSHEAR = 1.E-7
END WHERE
ZLM = 1.0
! !
DO JK=IKTB,IKTE DO JK=IKTB,IKTE
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
! !
!* 4. mixing length for a downwards displacement !* 4. mixing length for a downwards displacement
! ------------------------------------------ ! ------------------------------------------
ZINTE(:)=ZTKEM(:,JK) ZINTE(:)=ZTKEM(:,JK)
......
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