diff --git a/src/ecwam/propag_wam.F90 b/src/ecwam/propag_wam.F90
index b13655a8..0fab680e 100644
--- a/src/ecwam/propag_wam.F90
+++ b/src/ecwam/propag_wam.F90
@@ -119,7 +119,7 @@ SUBROUTINE PROPAG_WAM (BLK2GLO, WAVNUM, CGROUP, OMOSNH2KD, FL1, &
 #ifdef _OPENACC
         !$acc parallel loop gang private(KIJS, IJSB, KIJL, IJLB) vector_length(NPROMA_WAM)
 #else
-!$OMP   PARALLEL DO SCHEDULE(STATIC) PRIVATE(ICHNK, KIJS, IJSB, KIJL, IJLB, M, K)
+!$OMP   PARALLEL DO SCHEDULE(STATIC) PRIVATE(ICHNK, KIJS, IJSB, KIJL, IJLB, M, K, IJ)
 #endif /*_OPENACC*/
         DO ICHNK = 1, NCHNK
           KIJS = 1