diff --git a/src/ecwam/ctuwdrv.F90 b/src/ecwam/ctuwdrv.F90
index e028999fd..003e137de 100644
--- a/src/ecwam/ctuwdrv.F90
+++ b/src/ecwam/ctuwdrv.F90
@@ -78,9 +78,9 @@ SUBROUTINE CTUWDRV (DELPRO, MSTART, MEND,                  &
 IF (LHOOK) CALL DR_HOOK('CTUWDRV',0,ZHOOK_HANDLE)
 
 !! NPROMA=NPROMA_WAM
-   MTHREADS=1
-#ifdef _OPENACC
    MTHREADS=OMP_GET_MAX_THREADS()
+#ifdef _OPENACC
+   MTHREADS=1
 #endif /*_OPENACC*/
    NPROMA=(IJL-IJS+1)/MTHREADS + 1
 
diff --git a/src/ecwam/ctuwupdt.F90 b/src/ecwam/ctuwupdt.F90
index 944c46117..bfa57c7d0 100644
--- a/src/ecwam/ctuwupdt.F90
+++ b/src/ecwam/ctuwupdt.F90
@@ -190,9 +190,9 @@ SUBROUTINE CTUWUPDT (IJS, IJL, NINF, NSUP,                  &
 
 ! SOME INITIALISATION FOR *CTUW*
 !! NPROMA=NPROMA_WAM
-   MTHREADS=1
-#ifdef _OPENACC
    MTHREADS=OMP_GET_MAX_THREADS()
+#ifdef _OPENACC
+   MTHREADS=1
 #endif /*_OPENACC*/
    NPROMA=(IJL-IJS+1)/MTHREADS + 1
 
diff --git a/src/ecwam/propag_wam.F90 b/src/ecwam/propag_wam.F90
index 39152aa24..91f2fb818 100644
--- a/src/ecwam/propag_wam.F90
+++ b/src/ecwam/propag_wam.F90
@@ -105,9 +105,9 @@ SUBROUTINE PROPAG_WAM (BLK2GLO, WAVNUM, CGROUP, OMOSNH2KD, FL1, &
         IJSG = IJFROMCHNK(1,1)
         IJLG = IJSG + SUM(KIJL4CHNK) - 1
 
-        MTHREADS=1
-#ifdef _OPENACC
         MTHREADS=OMP_GET_MAX_THREADS()
+#ifdef _OPENACC
+        MTHREADS=1
 #endif /*_OPENACC*/
         NPROMA=(IJLG-IJSG+1)/MTHREADS + 1