diff --git a/model/src/w3profsmd_pdlib.F90 b/model/src/w3profsmd_pdlib.F90
index 6759fb53e..4dcbb0714 100644
--- 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
     !/
     !/
     !/ ------------------------------------------------------------------- /