Sebastien R. 03/06/2022: bugfix for activating SUBG_RR_EVAP without hail and...

Sebastien R. 03/06/2022: bugfix for activating SUBG_RR_EVAP without hail and missing reading of namelist options

src/MNH/ice4_tendencies.f90

@@ -456,9 +456,12 @@ IF(KSIZE>0) THEN
       DO JL=1,KSIZE    
         ZRHT3D (K1(JL), K2(JL), K3(JL)) = ZRHT(JL)
       ENDDO
+      CALL ICE4_RAINFR_VERT(KIB, KIE, KIT, KJB, KJE, KJT, KKB, KKE, KKT, KKL, PRAINFR(:,:,:), &
+                         &ZRRT3D(:,:,:), ZRST3D(:,:,:), ZRGT3D(:,:,:), ZRHT3D(:,:,:))
+    ELSE
+      CALL ICE4_RAINFR_VERT(KIB, KIE, KIT, KJB, KJE, KJT, KKB, KKE, KKT, KKL, PRAINFR(:,:,:), &
+                         &ZRRT3D(:,:,:), ZRST3D(:,:,:), ZRGT3D(:,:,:))
     ENDIF
-    CALL ICE4_RAINFR_VERT(KIB, KIE, KIT, KJB, KJE, KJT, KKB, KKE, KKT, KKL, PRAINFR(:,:,:), ZRRT3D(:,:,:), &
-                         &ZRST3D(:,:,:), ZRGT3D(:,:,:), ZRHT3D(:,:,:))
     DO JL=1,KSIZE
       ZRF(JL)=PRAINFR(K1(JL), K2(JL), K3(JL))
     END DO

src/MNH/modn_param_ice.f90

@@ -26,6 +26,7 @@ NAMELIST/NAM_PARAM_ICE/LWARM,LSEDIC,LCONVHG,CPRISTINE_ICE,CSEDIM,LDEPOSC,XVDEPOS
                        LEVLIMIT,LNULLWETG,LWETGPOST,LNULLWETH,LWETHPOST, &
                        CSNOWRIMING,XFRACM90,NMAXITER,XMRSTEP,XTSTEP_TS, &
                        LADJ_BEFORE, LADJ_AFTER, CFRAC_ICE_ADJUST, LCRFLIMIT, &
-                       XSPLIT_MAXCFL, CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER
+                       XSPLIT_MAXCFL, CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER, &
+                       CSUBG_RC_RR_ACCR, CSUBG_RR_EVAP, CSUBG_PR_PDF
 !
 END MODULE MODN_PARAM_ICE