@@ -897,36 +897,36 @@ MODULE W3GRIDMD
897
897
#ifdef W3_PR3
898
898
REAL :: WDTHCG, WDTHTH
899
899
#endif
900
- LOGICAL :: JGS_TERMINATE_MAXITER = .TRUE.
901
- LOGICAL :: JGS_TERMINATE_DIFFERENCE = .TRUE.
902
- LOGICAL :: JGS_TERMINATE_NORM = .TRUE.
903
- LOGICAL :: JGS_LIMITER = .FALSE.
904
- INTEGER :: JGS_LIMITER_FUNC = 1
905
- LOGICAL :: JGS_BLOCK_GAUSS_SEIDEL = .TRUE.
906
- LOGICAL :: JGS_USE_JACOBI = .TRUE.
907
- LOGICAL :: JGS_SOURCE_NONLINEAR = .FALSE.
908
- LOGICAL :: UGOBCAUTO = .FALSE.
909
- LOGICAL :: UGBCCFL = .FALSE.
910
- LOGICAL :: EXPFSN = .TRUE.
911
- LOGICAL :: EXPFSPSI = .FALSE.
912
- LOGICAL :: EXPFSFCT = .FALSE.
913
- LOGICAL :: IMPFSN = .FALSE.
914
- LOGICAL :: EXPTOTAL = .FALSE.
915
- LOGICAL :: IMPTOTAL = .FALSE.
916
- LOGICAL :: IMPREFRACTION = .FALSE.
917
- LOGICAL :: IMPFREQSHIFT = .FALSE.
918
- LOGICAL :: IMPSOURCE = .FALSE.
919
- LOGICAL :: SETUP_APPLY_WLV = .FALSE.
920
- INTEGER :: JGS_MAXITER= 100
900
+ LOGICAL :: JGS_TERMINATE_MAXITER
901
+ LOGICAL :: JGS_TERMINATE_DIFFERENCE
902
+ LOGICAL :: JGS_TERMINATE_NORM
903
+ LOGICAL :: JGS_LIMITER
904
+ INTEGER :: JGS_LIMITER_FUNC
905
+ LOGICAL :: JGS_BLOCK_GAUSS_SEIDEL
906
+ LOGICAL :: JGS_USE_JACOBI
907
+ LOGICAL :: JGS_SOURCE_NONLINEAR
908
+ LOGICAL :: UGOBCAUTO
909
+ LOGICAL :: UGBCCFL
910
+ LOGICAL :: EXPFSN
911
+ LOGICAL :: EXPFSPSI
912
+ LOGICAL :: EXPFSFCT
913
+ LOGICAL :: IMPFSN
914
+ LOGICAL :: EXPTOTAL
915
+ LOGICAL :: IMPTOTAL
916
+ LOGICAL :: IMPREFRACTION
917
+ LOGICAL :: IMPFREQSHIFT
918
+ LOGICAL :: IMPSOURCE
919
+ LOGICAL :: SETUP_APPLY_WLV
920
+ INTEGER :: JGS_MAXITER
921
921
INTEGER :: nbSel
922
922
INTEGER :: UNSTSCHEMES(6 )
923
923
INTEGER :: UNSTSCHEME
924
- INTEGER :: JGS_NLEVEL = 0
925
- REAL * 8 :: JGS_PMIN = 0 .
926
- REAL * 8 :: JGS_DIFF_THR = 1.E-10
927
- REAL * 8 :: JGS_NORM_THR = 1.E-20
928
- REAL * 8 :: SOLVERTHR_SETUP = 1.E-20
929
- REAL * 8 :: CRIT_DEP_SETUP = 0 .
924
+ INTEGER :: JGS_NLEVEL
925
+ REAL * 8 :: JGS_PMIN
926
+ REAL * 8 :: JGS_DIFF_THR
927
+ REAL * 8 :: JGS_NORM_THR
928
+ REAL * 8 :: SOLVERTHR_SETUP
929
+ REAL * 8 :: CRIT_DEP_SETUP
930
930
!
931
931
CHARACTER :: UGOBCFILE* 60
932
932
REAL :: UGOBCDEPTH
0 commit comments