From 306430e3d24069b992e43cc4be8c6ae77144cafe Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 24 Jul 2023 17:56:46 +0200
Subject: [PATCH] bugfix JL missing in DO LOOPS within ifdef
---
src/common/micro/mode_ice4_warm.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/common/micro/mode_ice4_warm.F90 b/src/common/micro/mode_ice4_warm.F90
index edcb2e465..0ad459b19 100644
--- a/src/common/micro/mode_ice4_warm.F90
+++ b/src/common/micro/mode_ice4_warm.F90
@@ -135,7 +135,7 @@ ELSEIF (HSUBG_RC_RR_ACCR=='PRFR') THEN
IF(LMASK1) THEN
!Accretion due to rain falling in high cloud content
!HCF*accretion(HRC/HCF) with simplification
- PRCACCR(:) = ICEP%XFCACCR * PHLC_HRC(JL) &
+ PRCACCR(JL) = ICEP%XFCACCR * PHLC_HRC(JL) &
&*PLBDAR_RF(JL)**ICEP%XEXCACCR &
&*PRHODREF(JL)**(-ICED%XCEXVT)
ELSE
--
GitLab