From 18a9e514aff6942d75e00dd0416c3b179a483e26 Mon Sep 17 00:00:00 2001
From: "Jean M. Sexton" <jmsexton@lbl.gov>
Date: Tue, 23 Jul 2024 10:25:08 -0700
Subject: [PATCH] Change to using ONLY

---
 model/src/w3initmd.F90   | 2 +-
 model/src/w3servmd.F90   | 2 +-
 model/src/w3strkmd.F90   | 2 +-
 model/src/ww3_multi.F90  | 2 +-
 model/src/ww3_ounp.F90   | 2 +-
 model/src/ww3_prnc.F90   | 2 +-
 model/src/ww3_prtide.F90 | 2 +-
 model/src/ww3_sbs1.F90   | 2 +-
 model/src/ww3_shel.F90   | 2 +-
 model/src/ww3_strt.F90   | 2 +-
 model/src/ww3_systrk.F90 | 2 +-
 11 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
index 6247fe176..f6e7676b5 100644
--- 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
index 70dcc061f..3ae73bcef 100644
--- 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
index 212e14ba5..d395419fc 100644
--- 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
index 046e8ba82..14e257aa6 100644
--- 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
index d673775ab..bf1d55883 100644
--- 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
index 2646e0ea4..78bb0175c 100644
--- 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
index 65f68569c..dfea89471 100644
--- 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
index 8da309c62..1ca5571a9 100644
--- 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
index f18aff007..de14d2b82 100644
--- 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
index 9f22c49f3..5e5b5ca68 100644
--- 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
index 5ba131eb0..576977f3a 100644
--- 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