Expand by hand functions COUNT() for ISIZE micro + add limits for ANY() on ice4_pack

src/common/micro/mode_ice4_pack.F90

@@ -234,7 +234,7 @@ IF(PARAMI%LPACK_MICRO) THEN
   
       ! Setup packing parameters
       OUTER_LOOP: DO JK = ISTK, IKTE
-        IF (ANY(ODMICRO(:,JK))) THEN
+        IF (ANY(ODMICRO(IIJB:IIJE,JK))) THEN
           DO JIJ = ISTIJ, IIJE
             IF (ODMICRO(JIJ,JK)) THEN
               IC=IC+1

src/common/micro/rain_ice.F90

@@ -493,7 +493,12 @@ ENDIF
 !               ----------------------
 !
 IF(PARAMI%LPACK_MICRO) THEN
-  ISIZE=COUNT(LLMICRO) ! Number of points with active microphysics
+  ISIZE=0
+  DO JK=1,D%NKT
+    DO JIJ=1,D%NIJT
+      IF(LLMICRO(JIJ,JK)) ISIZE=ISIZE+1 ! Number of points with active microphysics
+    END DO
+  END DO
   !PARAMI%NPROMICRO is the requested size for cache_blocking loop
   !IPROMA is the effective size
   !This parameter must be computed here because it is used for array dimensioning in ice4_pack