ww3_2dm: cleaning the code ...

erdc · Jan 16, 2024 · 934b9d0 · 934b9d0
1 parent d9bef70
commit 934b9d0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
@@ -1,3 +1,4 @@
+
 !> @file
 !> @brief Contains module W3INITMD.
 !>
@@ -421,9 +422,9 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT, FLGRD,  FLGR2, FLGD,
     use yowNodepool, only: npa
     use yowRankModule, only : rank
 #endif
-    USE W3GDATMD, ONLY: GTYPE, UNGTYPE, IOBDP_LOC
+    USE W3GDATMD, ONLY: GTYPE, UNGTYPE
 #ifdef W3_PDLIB
-    USE PDLIB_W3PROFSMD, ONLY : PDLIB_MAPSTA_INIT, SET_IOBDP_PDLIB, PDLIB_IOBP_INIT, SET_IOBPA_PDLIB
+    USE PDLIB_W3PROFSMD, ONLY : PDLIB_MAPSTA_INIT, SET_IOBDP_PDLIB, PDLIB_IOBP_INIT, SET_IOBPA_PDLIB, IOBDP_LOC
     USE PDLIB_W3PROFSMD, ONLY : BLOCK_SOLVER_INIT, BLOCK_SOLVER_EXPLICIT_INIT, PDLIB_INIT, DEALLOCATE_PDLIB_GLOBAL
     use yowDatapool, only: istatus
 #endif