diff --git a/src/MNH/ice4_fast_rs.f90 b/src/MNH/ice4_fast_rs.f90
index e1f78b374be7ddcfded7ac0727bb9f71ca890996..cedb6f7aa783c51e57b02d374352e72ca6dbd353 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