diff --git a/src/common/micro/mode_ice4_tendencies.F90 b/src/common/micro/mode_ice4_tendencies.F90 index e00c2826620d21cebdb0803c895c96232414592e..b37ee1d136837223c15dbd06d0b1b363ff69f3fe 100644 --- a/src/common/micro/mode_ice4_tendencies.F90 +++ b/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