Quentin 19/08/2022: bugfix bit-repro for SV variables (for MesoNH ARMLES test case)

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