diff --git a/src/common/turb/mode_prandtl.F90 b/src/common/turb/mode_prandtl.F90 index d636ed778ca145b79613220cc85f292e16d286d3..f43bb30ab0a7f6f97c0c22cb225872566452876e 100644 --- a/src/common/turb/mode_prandtl.F90 +++ b/src/common/turb/mode_prandtl.F90 @@ -349,7 +349,7 @@ DO JK=1,D%NKT ELSE ZW2(JIJ,JK)=1. END IF - PREDTH1(JIJ,JK)= ZW2(JIJ,JK) * MAX(1.E-30, ZW2(JIJ,JK)*PREDTH1(JIJ,JK)) + PREDTH1(JIJ,JK)= ZW2(JIJ,JK) * MAX(CST%XMNH_TINY_12, ZW2(JIJ,JK)*PREDTH1(JIJ,JK)) ! IF (KRR /= 0) THEN ! moist case IF(PREDR1(JIJ,JK) < 0.) THEN @@ -357,7 +357,7 @@ DO JK=1,D%NKT ELSE ZW2(JIJ,JK)=1. END IF - PREDR1(JIJ,JK)= ZW2(JIJ,JK) * MAX(1.E-30, ZW2(JIJ,JK)*PREDR1(JIJ,JK)) + PREDR1(JIJ,JK)= ZW2(JIJ,JK) * MAX(CST%XMNH_TINY_12, ZW2(JIJ,JK)*PREDR1(JIJ,JK)) END IF ENDDO ENDDO @@ -381,7 +381,7 @@ DO JSV=1,KSV ELSE ZW2(JIJ,JK)=1. END IF - PREDS1(JIJ,JK,JSV)= ZW2(JIJ,JK) * MAX(1.E-30, ZW2(JIJ,JK)*PREDS1(JIJ,JK,JSV)) + PREDS1(JIJ,JK,JSV)= ZW2(JIJ,JK) * MAX(CST%XMNH_TINY_12, ZW2(JIJ,JK)*PREDS1(JIJ,JK,JSV)) ENDDO ENDDO ENDDO