From 9c064dd7bafaa9d3fb913603e33b0b93358a5fd5 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
---
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 67eb2a2e3..89c209385 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