S. Riette 03/06/2022 bugfix for activating SUBG_RR_EVAP without hail

src/common/micro/mode_ice4_tendencies.F90

@@ -322,9 +322,12 @@ IF (LLRFR) THEN
     DO JL=1,KSIZE    
       ZRHT3D (K1(JL), K2(JL), K3(JL)) = ZVART(JL,IRH)
     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
     ZRAINFR(JL)=PRAINFR(K1(JL), K2(JL), K3(JL))
   END DO