/[MITgcm]/MITgcm_contrib/submesoscale/code/gmredi_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/gmredi_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by dimitri, Fri May 30 21:51:24 2008 UTC revision 1.2 by dimitri, Fri May 30 22:13:42 2008 UTC
# Line 45  C     GM_Small_Number :: epsilon used in Line 45  C     GM_Small_Number :: epsilon used in
45  C     GM_slopeSqCutoff :: slope^2 cut-off value  C     GM_slopeSqCutoff :: slope^2 cut-off value
46        NAMELIST /GM_PARM01/        NAMELIST /GM_PARM01/
47       &          GM_AdvForm, GM_AdvSeparate,       &          GM_AdvForm, GM_AdvSeparate,
48         &          GM_ExtraDiag,
49       &          GM_isopycK,       &          GM_isopycK,
50       &          GM_background_K,       &          GM_background_K,
51       &          GM_taper_scheme,       &          GM_taper_scheme,
# Line 57  C     GM_slopeSqCutoff :: slope^2 cut-of Line 58  C     GM_slopeSqCutoff :: slope^2 cut-of
58       &          GM_Visbeck_maxval_K,       &          GM_Visbeck_maxval_K,
59       &          GM_Scrit,       &          GM_Scrit,
60       &          GM_Sd,       &          GM_Sd,
61       &          GM_MNC       &          GM_MNC,
62         &          GM_SM_Ce,
63         &          GM_SM_Lf,
64         &          GM_SM_tau
65  c     &          GM_dumpFreq,  c     &          GM_dumpFreq,
66  c     &          GM_taveFreq  c     &          GM_taveFreq
67    
# Line 69  C     the package is active. Line 73  C     the package is active.
73    
74  C--   Default values GM/Redi  C--   Default values GM/Redi
75        GM_AdvForm          = .FALSE.        GM_AdvForm          = .FALSE.
76          GM_ExtraDiag        = .FALSE.
77        GM_AdvSeparate      = .FALSE.        GM_AdvSeparate      = .FALSE.
78        GM_isopycK          = -999.        GM_isopycK          = -999.
79        GM_background_K     = 0. _d 0        GM_background_K     = 0. _d 0
# Line 80  C--   Default values GM/Redi Line 85  C--   Default values GM/Redi
85        GM_Scrit            = 0.004 _d 0        GM_Scrit            = 0.004 _d 0
86        GM_Sd               = 0.001 _d 0        GM_Sd               = 0.001 _d 0
87        GM_MNC              = useMNC        GM_MNC              = useMNC
88    CBFK Submesoscale Paramters
89    C     GM_SM_Ce is the efficiency factor.  Nondimensional, typically 0.06
90    C     Will be converted to a dimensional factor later
91    C     Set to zero to kill Submeso at runtime.
92          GM_SM_Ce            = 0.06  _d 0
93    C     GM_SM_Lf is the minimum Front Width scale.  Typically 1-10km
94          GM_SM_Lf            = 5.00  _d 3
95    C     GM_SM_Lmax is the maximum upscale.  Typically 100km
96          GM_SM_Lmax            = 1.00  _d 5
97    C     GM_SM_tau is the momentum mixing timescale: 1/d to 1/week
98          GM_SM_tau           = 8.64  _d 4
99    C     Will be converted to an inverse squared timescale later
100    
101  C--   Default values GM/Redi I/O control  C--   Default values GM/Redi I/O control
102  c     GM_dumpFreq         = -1.  c     GM_dumpFreq         = -1.
# Line 121  C     Some constants Line 138  C     Some constants
138        ELSE        ELSE
139          GM_skewflx = 1.          GM_skewflx = 1.
140          GM_advect  = 0.          GM_advect  = 0.
141          GM_ExtraDiag = GM_isopycK.NE.GM_background_K          GM_ExtraDiag = (GM_isopycK.NE.GM_background_K)
142         &      .or.(GM_SM_Ce.gt.0 _d 0)
143        ENDIF        ENDIF
144    
145  C     Make sure that we locally honor the global MNC on/off flag  C     Make sure that we locally honor the global MNC on/off flag
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22