Sébastien Riette 14/02/2022 bit-reproduction PRFR option 1

Modification to reproduce old results with the PRFR option

src/common/micro/mode_ice4_compute_pdf.F90

@@ -309,7 +309,11 @@ ELSE
   CALL PRINT_MSG( NVERB_FATAL, 'GEN', 'ICE4_COMPUTE_PDF', 'wrong HSUBG_AUCV_RI case' )
 ENDIF
 !
+#ifdef REPRO48
+PRF=PHLC_HCF
+#else
 PRF=MAX(PHLC_HCF,PHLI_HCF)
+#endif
 !
 IF (LHOOK) CALL DR_HOOK('ICE4_COMPUTE_PDF', 1, ZHOOK_HANDLE)
 END SUBROUTINE ICE4_COMPUTE_PDF

src/common/micro/mode_ice4_tendencies.F90

@@ -328,8 +328,10 @@ IF (LLRFR) THEN
   DO JL=1,KSIZE
     PRAINFR(K1(JL), K2(JL), K3(JL)) = ZRAINFR(JL)
     ZRRT3D (K1(JL), K2(JL), K3(JL)) = ZVART(JL,IRR)
+#ifndef REPRO48
     ZRST3D (K1(JL), K2(JL), K3(JL)) = ZVART(JL,IRS)
     ZRGT3D (K1(JL), K2(JL), K3(JL)) = ZVART(JL,IRG)
+#endif
   END DO
   IF (KRR==7) THEN
     DO JL=1,KSIZE