diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90 index 6f87ff075f52affb633e8300884452fcfc8eb09c..137cfce6d9d0a41ec35d57f92df3f59844223a02 100644 --- a/src/MNH/rain_ice_red.f90 +++ b/src/MNH/rain_ice_red.f90 @@ -590,7 +590,7 @@ DO JK = 1, KKT END IF END IF ELSE - ZLBDAS(JI,JJ,JK) = MAX(MIN(XLBDAS_MAX,XLBS*(PRHODREF(JI,JK,JL)*PRST(JI,JK,JL))**XLBEXS),XLBDAS_MIN) + ZLBDAS(JI,JJ,JK) = MAX(MIN(XLBDAS_MAX,XLBS*(PRHODREF(JI,JJ,JK)*PRST(JI,JJ,JK))**XLBEXS),XLBDAS_MIN) END IF END DO END DO