Tweak other ww3 similar to shel

NOAA-EMC · Jul 16, 2024 · ee61569 · ee61569
1 parent 863f97e
commit ee61569
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 0 deletions.
diff --git a/model/src/ww3_ounp.F90 b/model/src/ww3_ounp.F90
@@ -359,6 +359,7 @@ PROGRAM W3OUNP
   !
 #ifdef W3_MPI
   CALL MPI_INIT      ( IERR_MPI )
+  MPI_COMM_WW3=MPI_COMM_WORLD !< MPI_COMM_WW3
   CALL MPI_COMM_SIZE ( MPI_COMM_WW3, NAPROC, IERR_MPI )
   CALL MPI_COMM_RANK ( MPI_COMM_WW3, IAPROC, IERR_MPI )
   IAPROC = IAPROC + 1  ! this is to have IAPROC between 1 and NAPROC

diff --git a/model/src/ww3_prnc.F90 b/model/src/ww3_prnc.F90
@@ -444,6 +444,7 @@ PROGRAM W3PRNC
   !
 #ifdef W3_MPI
   CALL MPI_INIT      ( IERR_MPI )
+  MPI_COMM_WW3=MPI_COMM_WORLD !< MPI_COMM_WW3
   CALL MPI_COMM_SIZE ( MPI_COMM_WW3, NAPROC, IERR_MPI )
   CALL MPI_COMM_RANK ( MPI_COMM_WW3, IAPROC, IERR_MPI )
   IAPROC = IAPROC + 1  ! this is to have IAPROC between 1 and NAPROC

diff --git a/model/src/ww3_prtide.F90 b/model/src/ww3_prtide.F90
@@ -258,6 +258,7 @@ PROGRAM W3PRTIDE
   !
 #ifdef W3_MPI
   CALL MPI_INIT      ( IERR_MPI )
+  MPI_COMM_WW3=MPI_COMM_WORLD !< MPI_COMM_WW3
   CALL MPI_COMM_SIZE ( MPI_COMM_WW3, NAPROC, IERR_MPI )
   CALL MPI_COMM_RANK ( MPI_COMM_WW3, IAPROC, IERR_MPI )
   IAPROC = IAPROC + 1  ! this is to have IAPROC between 1 and NAPROC

diff --git a/model/src/ww3_strt.F90 b/model/src/ww3_strt.F90
@@ -328,6 +328,7 @@ PROGRAM W3STRT
   !
 #ifdef W3_MPI
   CALL MPI_INIT      ( IERR_MPI )
+  MPI_COMM_WW3=MPI_COMM_WORLD !< MPI_COMM_WW3
   CALL MPI_COMM_SIZE ( MPI_COMM_WW3, NAPROC, IERR_MPI )
   CALL MPI_COMM_RANK ( MPI_COMM_WW3, IAPROC, IERR_MPI )
   IAPROC = IAPROC + 1

diff --git a/model/src/ww3_systrk.F90 b/model/src/ww3_systrk.F90
@@ -172,6 +172,8 @@ PROGRAM WW3_SYSTRK
   !     Start of parallel region
   CALL MPI_INIT(ierr)
 
+  MPI_COMM_WW3=MPI_COMM_WORLD !< MPI_COMM_WW3
+
   CALL MPI_COMM_RANK(MPI_COMM_WW3, rank, ierr)
   CALL MPI_COMM_SIZE(MPI_COMM_WW3, nproc, ierr)