diff --git a/src/arome/ext/aro_adjust.F90 b/src/arome/ext/aro_adjust.F90
index 213a974dd150bba8dbae7fa69b99ad3afd6f2af2..4554df8ba03f4e467703232f2cfe500bb20a7648 100644
--- a/src/arome/ext/aro_adjust.F90
+++ b/src/arome/ext/aro_adjust.F90
@@ -364,7 +364,11 @@ SELECT CASE ( CMICRO )
       IF (LL(JLON)) THEN
         PRS(JLON,1,JLEV,1) = PRS(JLON,1,JLEV,1) + ZCOR(JLON)
         PTHS(JLON,1,JLEV)  = PTHS(JLON,1,JLEV)  - ZCOR(JLON) * ZLV(JLON) / ZCPH(JLON) / PEXNREF(JLON,1,JLEV)
+#ifdef REPRO48
+        PRS(JLON,1,JLEV,2) = 0.
+#else
         PRS(JLON,1,JLEV,2) = PRS(JLON,1,JLEV,2) - ZCOR(JLON)
+#endif
       ENDIF
     ENDDO
 
diff --git a/src/common/micro/mode_ice4_tendencies.F90 b/src/common/micro/mode_ice4_tendencies.F90
index cc53a39aa675b8da205f9e6d69c0333133414068..047e481c5d46c33badae350d8f4b3d29e5883829 100644
--- a/src/common/micro/mode_ice4_tendencies.F90
+++ b/src/common/micro/mode_ice4_tendencies.F90
@@ -157,8 +157,8 @@ REAL, DIMENSION(KPROMA, 8),    INTENT(INOUT) :: PRS_TEND
 REAL, DIMENSION(KPROMA, 8),    INTENT(INOUT) :: PRG_TEND
 REAL, DIMENSION(KPROMA, 10),   INTENT(INOUT) :: PRH_TEND
 REAL, DIMENSION(KPROMA),       INTENT(OUT)   :: PSSI
-REAL, DIMENSION(KPROMA,0:KRR), INTENT(OUT)   :: PA
-REAL, DIMENSION(KPROMA,0:KRR), INTENT(OUT)   :: PB
+REAL, DIMENSION(KPROMA,0:7),   INTENT(OUT)   :: PA
+REAL, DIMENSION(KPROMA,0:7),   INTENT(OUT)   :: PB
 REAL, DIMENSION(KPROMA),       INTENT(INOUT)   :: PHLC_HCF
 REAL, DIMENSION(KPROMA),       INTENT(INOUT)   :: PHLC_LCF
 REAL, DIMENSION(KPROMA),       INTENT(INOUT)   :: PHLC_HRC