diff --git a/src/arome/ext/aro_adjust.F90 b/src/arome/ext/aro_adjust.F90
index 8888d59307eb8b8b8a3058ca6e710a28bf19777e..0aa476d489bbdda6ab9b172302c1e8adb9759825 100644
--- a/src/arome/ext/aro_adjust.F90
+++ b/src/arome/ext/aro_adjust.F90
@@ -369,7 +369,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 2281e864214e7a5a7bb2c04e1c74848c61710b4f..346a3eb494e34a17ded77597bd5d61d691e06d6a 100644
--- a/src/common/micro/mode_ice4_tendencies.F90
+++ b/src/common/micro/mode_ice4_tendencies.F90
@@ -164,8 +164,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