bugfix JL missing in DO LOOPS within ifdef

src/common/micro/mode_ice4_warm.F90

@@ -135,7 +135,7 @@ ELSEIF (HSUBG_RC_RR_ACCR=='PRFR') THEN
         IF(LMASK1) THEN
           !Accretion due to rain falling in high cloud content
           !HCF*accretion(HRC/HCF) with simplification
-          PRCACCR(:) = ICEP%XFCACCR * PHLC_HRC(JL)     &
+          PRCACCR(JL) = ICEP%XFCACCR * PHLC_HRC(JL)     &
                       &*PLBDAR_RF(JL)**ICEP%XEXCACCR &
                       &*PRHODREF(JL)**(-ICED%XCEXVT)
         ELSE