Merge branch 'mpmd_debug' into mpmd

erf-model · Aug 9, 2024 · c148f7b · c148f7b
2 parents 4591ccc + 1ee9472
commit c148f7b
Show file tree

Hide file tree

Showing 16 changed files with 673 additions and 140 deletions.
diff --git a/model/src/mpicomm.F90 b/model/src/mpicomm.F90
@@ -65,7 +65,7 @@ MODULE MPICOMM
   !     module during initialization.
   LOGICAL :: IS_EXTERNAL_COMPONENT = .FALSE. !< IS_EXTERNAL_COMPONENT Flag for model invoked via external executable.
   !
-  CONTAINS
+!CONTAINS
 
   !/
   !/ End of module MPICOMM ------------------------------------------- /

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,   &