Change to using ONLY

NOAA-EMC · Jul 23, 2024 · 18a9e51 · 18a9e51
1 parent cf3d25c
commit 18a9e51
Show file tree

Hide file tree

Showing 11 changed files with 11 additions and 11 deletions.
diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
@@ -410,7 +410,7 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT, FLGRD,  FLGR2, FLGD,
          UA, UD, U10, U10D, AS
 #ifdef W3_MPI
     USE W3ADATMD, ONLY: MPI_COMM_WAVE, MPI_COMM_WCMP
-    USE MPICOMM
+    USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
     USE W3IDATMD, ONLY: FLLEV, FLCUR, FLWIND, FLICE, FLTAUA, FLRHOA,&
          FLMDN, FLMTH, FLMVS, FLIC1, FLIC2, FLIC3,   &

diff --git a/model/src/w3servmd.F90 b/model/src/w3servmd.F90
@@ -80,7 +80,7 @@ MODULE W3SERVMD
 
   ! module default
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   implicit none

diff --git a/model/src/w3strkmd.F90 b/model/src/w3strkmd.F90
@@ -29,7 +29,7 @@ MODULE W3STRKMD
   !/
   use constants, only: file_endian
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_multi.F90 b/model/src/ww3_multi.F90
@@ -96,7 +96,7 @@ PROGRAM W3MLTI
 #endif
   !/
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_ounp.F90 b/model/src/ww3_ounp.F90
@@ -214,7 +214,7 @@ PROGRAM W3OUNP
   USE NETCDF
   !
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_prnc.F90 b/model/src/ww3_prnc.F90
@@ -226,7 +226,7 @@ PROGRAM W3PRNC
   USE NETCDF
   !
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_prtide.F90 b/model/src/ww3_prtide.F90
@@ -140,7 +140,7 @@ PROGRAM W3PRTIDE
   USE W3IDATMD
   !
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_sbs1.F90 b/model/src/ww3_sbs1.F90
@@ -178,7 +178,7 @@ PROGRAM W3SBS1
        NRGRD, STIME, ETIME
   !/
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_shel.F90 b/model/src/ww3_shel.F90
@@ -309,7 +309,7 @@ PROGRAM W3SHEL
   USE OMP_LIB
 #endif
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   IMPLICIT NONE
   !

diff --git a/model/src/ww3_strt.F90 b/model/src/ww3_strt.F90
@@ -242,7 +242,7 @@ PROGRAM W3STRT
 #endif
   !/
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE

diff --git a/model/src/ww3_systrk.F90 b/model/src/ww3_systrk.F90
@@ -59,7 +59,7 @@ PROGRAM WW3_SYSTRK
   USE W3STRKMD
   USE W3TIMEMD, ONLY: TDIFF
 #ifdef W3_MPI
-  USE MPICOMM
+  USE MPICOMM, ONLY: MPI_COMM_WW3
 #endif
   !
   IMPLICIT NONE