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)
!
!* 3. loop on model levels
! --------------------
WHERE (ZSHEAR<1.E-7)
ZSHEAR = 1.E-7
END WHERE
ZLM = 1.0
!
DO JK=IKTB,IKTE
!
!-------------------------------------------------------------------------------
!
!
!* 4. mixing length for a downwards displacement
! ------------------------------------------
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