ww3_gse2: revert init part in w3grid

erdc · Jan 16, 2024 · 9e07bbe · 9e07bbe
1 parent ac5b104
commit 9e07bbe
Showing 1 changed file with 30 additions and 30 deletions.
diff --git a/model/src/w3gridmd.F90 b/model/src/w3gridmd.F90
@@ -903,39 +903,39 @@ MODULE W3GRIDMD
 #ifdef W3_PR3
   REAL                    :: WDTHCG, WDTHTH
 #endif
-  LOGICAL :: JGS_TERMINATE_MAXITER = .TRUE.
-  LOGICAL :: JGS_TERMINATE_DIFFERENCE = .TRUE.
-  LOGICAL :: JGS_TERMINATE_NORM = .TRUE.
-  LOGICAL :: JGS_LIMITER = .FALSE.
-  INTEGER :: JGS_LIMITER_FUNC = 1
-  LOGICAL :: JGS_BLOCK_GAUSS_SEIDEL = .TRUE.
-  LOGICAL :: JGS_USE_JACOBI = .TRUE.
-  LOGICAL :: JGS_SOURCE_NONLINEAR = .FALSE.
-  LOGICAL :: JGS_LGSE = .FALSE. 
-  INTEGER :: JGS_GSE_METHOD = 1
-  REAL(8) :: JGS_GSE_TS = 1.d0
-  LOGICAL :: UGOBCAUTO = .FALSE.
-  LOGICAL :: UGBCCFL   = .FALSE.
-  LOGICAL :: EXPFSN    = .TRUE.
-  LOGICAL :: EXPFSPSI  = .FALSE.
-  LOGICAL :: EXPFSFCT  = .FALSE.
-  LOGICAL :: IMPFSN    = .FALSE.
-  LOGICAL :: EXPTOTAL  = .FALSE.
-  LOGICAL :: IMPTOTAL  = .FALSE.
-  LOGICAL :: IMPREFRACTION = .FALSE.
-  LOGICAL :: IMPFREQSHIFT = .FALSE.
-  LOGICAL :: IMPSOURCE = .FALSE.
-  LOGICAL :: SETUP_APPLY_WLV = .FALSE.
-  INTEGER :: JGS_MAXITER=100
+  LOGICAL :: JGS_TERMINATE_MAXITER
+  LOGICAL :: JGS_TERMINATE_DIFFERENCE
+  LOGICAL :: JGS_TERMINATE_NORM
+  LOGICAL :: JGS_LIMITER
+  INTEGER :: JGS_LIMITER_FUNC
+  LOGICAL :: JGS_BLOCK_GAUSS_SEIDEL
+  LOGICAL :: JGS_USE_JACOBI
+  LOGICAL :: JGS_SOURCE_NONLINEAR
+  LOGICAL :: UGOBCAUTO
+  LOGICAL :: UGBCCFL
+  LOGICAL :: EXPFSN
+  LOGICAL :: EXPFSPSI
+  LOGICAL :: EXPFSFCT
+  LOGICAL :: IMPFSN
+  LOGICAL :: EXPTOTAL
+  LOGICAL :: IMPTOTAL
+  LOGICAL :: IMPREFRACTION
+  LOGICAL :: IMPFREQSHIFT
+  LOGICAL :: IMPSOURCE
+  LOGICAL :: SETUP_APPLY_WLV
+  INTEGER :: JGS_MAXITER
+  LOGICAL :: JGS_LGSE 
+  INTEGER :: JGS_GSE_METHOD 
+  REAL(8) :: JGS_GSE_TS 
   INTEGER :: nbSel
   INTEGER :: UNSTSCHEMES(6)
   INTEGER :: UNSTSCHEME
-  INTEGER :: JGS_NLEVEL = 0
-  REAL*8  :: JGS_PMIN = 0.
-  REAL*8  :: JGS_DIFF_THR = 1.E-10
-  REAL*8  :: JGS_NORM_THR = 1.E-20
-  REAL*8  :: SOLVERTHR_SETUP = 1.E-20
-  REAL*8  :: CRIT_DEP_SETUP = 0.
+  INTEGER :: JGS_NLEVEL
+  REAL*8  :: JGS_PMIN
+  REAL*8  :: JGS_DIFF_THR
+  REAL*8  :: JGS_NORM_THR
+  REAL*8  :: SOLVERTHR_SETUP
+  REAL*8  :: CRIT_DEP_SETUP
   !
   CHARACTER               :: UGOBCFILE*60
   REAL                    :: UGOBCDEPTH