From b76d9b94e11ff9769ed609df3c4a7ad4631e29b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Wed, 30 Mar 2022 09:30:51 +0200
Subject: [PATCH] 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 | 4 ++++
src/common/micro/mode_ice4_tendencies.F90 | 4 ++--
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/arome/ext/aro_adjust.F90 b/src/arome/ext/aro_adjust.F90
index 213a974dd..4554df8ba 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 cc53a39aa..047e481c5 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
--
GitLab