Philippe 27/10/2021: bugfix: correct loop boundaries

a6cf9240 · Wautelet Philippe · c0b45c74 · a6cf9240
Commit a6cf9240 authored 3 years ago by Wautelet Philippe
--- 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