clean up of DEALLOCATE_PDLIB_GLOBAL routine module use and description

JessicaMeixner-NOAA · Dec 12, 2023 · df9a701 · df9a701
1 parent 2d0a2e0
commit df9a701
Showing 1 changed file with 2 additions and 9 deletions.
diff --git a/model/src/w3profsmd_pdlib.F90 b/model/src/w3profsmd_pdlib.F90
@@ -7288,7 +7288,7 @@ SUBROUTINE DEALLOCATE_PDLIB_GLOBAL(IMOD)
     !/
     !/    01-June-2018 : Origination.                        ( version 6.04 )
     !/
-    !  1. Purpose : Init jacobi solver
+    !  1. Purpose : Deallocate global variables if PDLIB 
     !  2. Method :
     !  3. Parameters :
     !
@@ -7322,14 +7322,7 @@ SUBROUTINE DEALLOCATE_PDLIB_GLOBAL(IMOD)
 #ifdef W3_S
     USE W3SERVMD, only: STRACE
 #endif
-    USE W3GDATMD, only: NSPEC, B_JGS_BLOCK_GAUSS_SEIDEL, GRIDS
-    use YOWNODEPOOL, only: PDLIB_NNZ, npa, np
-    USE yowfunction, only: pdlib_abort
-    USE W3GDATMD, only: NTH, NK, NSEAL
-    USE W3PARALL, only: IMEM
-#ifdef W3_DEBUGINIT
-    USE W3ODATMD, only : IAPROC
-#endif
+    USE W3GDATMD, only: GRIDS
     !/
     !/
     !/ ------------------------------------------------------------------- /