diff --git a/src/MNH/bl89.f90 b/src/MNH/bl89.f90
index 296871f83f36ee3c9f4574590548223b0165fca0..bb81821ef0dbb6c51471c03d40d0d55d6c4477bc 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)