diff --git a/src/common/turb/mode_rmc01_3D.F90 b/src/common/turb/mode_rmc01_3D.F90
index 9f2340ac7dc91104b7a645d76ff4c566c565e735..0619ca2508cd7a9ef201269c148e4f6809087f3f 100644
--- a/src/common/turb/mode_rmc01_3D.F90
+++ b/src/common/turb/mode_rmc01_3D.F90
@@ -63,7 +63,7 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZDH  ! hor. grid mesh
 !
 INTEGER :: IKB,IKE    ! first,last physical level
 INTEGER :: IKTB,IKTE  ! start, end of k loops in physical domain
-INTEGER :: JK,JIJ   ! loop counter
+INTEGER :: JK,JI,JJ   ! loop counter
 INTEGER :: IIE,IIB,IJE,IJB,IIU,IJU
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE