S. Riette 30/03/2022 bugfixes (aro_adjust, ice4_tendencies)

REPRO48 key added in aro_adjust
PA/PB size declaration changed in ice4_tendencies (to allow bound checking)

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
 

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