From 91116445bc95b22944ed032367dfba269e271bdc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 20 Jun 2023 17:09:13 +0200
Subject: [PATCH] Philippe 20/06/2023: bugfix: ice4_fast_rg: correct
mnh_expand_where loop size
(cherry picked from commit 9c064dd7bafaa9d3fb913603e33b0b93358a5fd5)
---
src/MNH/ice4_fast_rg.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ice4_fast_rg.f90 b/src/MNH/ice4_fast_rg.f90
index 78b5a90c9..7cee41497 100644
--- a/src/MNH/ice4_fast_rg.f90
+++ b/src/MNH/ice4_fast_rg.f90
@@ -601,7 +601,7 @@ ELSE
ZZW(I1(JJ)) = ZVEC3(JJ)
END DO
!
- !$mnh_expand_where(JJ=1:IGDRY)
+ !$mnh_expand_where(JJ=1:ISIZE)
WHERE(GDRY(:))
#ifndef MNH_BITREP
PRG_TEND(:, IRRDRYG) = XFRDRYG*ZZW(:) & ! RRDRYG
--
GitLab