From a6cf9240aa98d01ced70f4fb337f7b718bf84d66 Mon Sep 17 00:00:00 2001
From: Wautelet Philippe <waup@aeropc45.aero.obs-mip.fr>
Date: Wed, 27 Oct 2021 10:30:07 +0200
Subject: [PATCH] Philippe 27/10/2021: bugfix: correct loop boundaries
---
src/MNH/ice4_fast_rs.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ice4_fast_rs.f90 b/src/MNH/ice4_fast_rs.f90
index e1f78b374..cedb6f7aa 100644
--- a/src/MNH/ice4_fast_rs.f90
+++ b/src/MNH/ice4_fast_rs.f90
@@ -363,7 +363,7 @@ ELSE
!
! 5.1.4 riming of the small sized aggregates
!
- DO CONCURRENT( JJ = 1 : IGRIM )
+ DO CONCURRENT( JJ = 1 : ISIZE )
IF ( GRIM(JJ) ) THEN
PRS_TEND(JJ, IRCRIMSS) = XCRIMSS * ZZW(JJ) * PRCT(JJ) & ! RCRIMSS
#ifndef MNH_BITREP
--
GitLab