From c9efc874a54ca7dee33d4cbdbdc083c86340e8f5 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 19 Dec 2018 17:44:03 +0100
Subject: [PATCH] Quentin 19/12/2018: remove a where statement : zshear shoud
 be zero if bl89 is used

---
 src/MNH/bl89.f90 | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/MNH/bl89.f90 b/src/MNH/bl89.f90
index 296871f83..bb81821ef 100644
--- a/src/MNH/bl89.f90
+++ b/src/MNH/bl89.f90
@@ -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)
-- 
GitLab