/[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.3 by dimitri, Fri May 30 22:24:25 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_InMomAsStress,
50       &          GM_isopycK,       &          GM_isopycK,
51       &          GM_background_K,       &          GM_background_K,
52       &          GM_taper_scheme,       &          GM_taper_scheme,
# Line 57  C     GM_slopeSqCutoff :: slope^2 cut-of Line 59  C     GM_slopeSqCutoff :: slope^2 cut-of
59       &          GM_Visbeck_maxval_K,       &          GM_Visbeck_maxval_K,
60       &          GM_Scrit,       &          GM_Scrit,
61       &          GM_Sd,       &          GM_Sd,
62       &          GM_MNC       &          GM_MNC,
63         &          GM_SM_Ce,
64         &          GM_SM_Lf,
65         &          GM_SM_tau
66  c     &          GM_dumpFreq,  c     &          GM_dumpFreq,
67  c     &          GM_taveFreq  c     &          GM_taveFreq
68    
# Line 69  C     the package is active. Line 74  C     the package is active.
74    
75  C--   Default values GM/Redi  C--   Default values GM/Redi
76        GM_AdvForm          = .FALSE.        GM_AdvForm          = .FALSE.
77          GM_ExtraDiag        = .FALSE.
78        GM_AdvSeparate      = .FALSE.        GM_AdvSeparate      = .FALSE.
79          GM_InMomAsStress    = .FALSE.
80        GM_isopycK          = -999.        GM_isopycK          = -999.
81        GM_background_K     = 0. _d 0        GM_background_K     = 0. _d 0
82        GM_maxslope         = 1. _d -2        GM_maxslope         = 1. _d -2
# Line 80  C--   Default values GM/Redi Line 87  C--   Default values GM/Redi
87        GM_Scrit            = 0.004 _d 0        GM_Scrit            = 0.004 _d 0
88        GM_Sd               = 0.001 _d 0        GM_Sd               = 0.001 _d 0
89        GM_MNC              = useMNC        GM_MNC              = useMNC
90    CBFK Submesoscale Paramters
91    C     GM_SM_Ce is the efficiency factor.  Nondimensional, typically 0.06
92    C     Will be converted to a dimensional factor later
93    C     Set to zero to kill Submeso at runtime.
94          GM_SM_Ce            = 0.06  _d 0
95    C     GM_SM_Lf is the minimum Front Width scale.  Typically 1-10km
96          GM_SM_Lf            = 5.00  _d 3
97    C     GM_SM_Lmax is the maximum upscale.  Typically 100km
98          GM_SM_Lmax            = 1.00  _d 5
99    C     GM_SM_tau is the momentum mixing timescale: 1/d to 1/week
100          GM_SM_tau           = 8.64  _d 4
101    C     Will be converted to an inverse squared timescale later
102    
103  C--   Default values GM/Redi I/O control  C--   Default values GM/Redi I/O control
104  c     GM_dumpFreq         = -1.  c     GM_dumpFreq         = -1.
# Line 121  C     Some constants Line 140  C     Some constants
140        ELSE        ELSE
141          GM_skewflx = 1.          GM_skewflx = 1.
142          GM_advect  = 0.          GM_advect  = 0.
143          GM_ExtraDiag = GM_isopycK.NE.GM_background_K          GM_ExtraDiag = (GM_isopycK.NE.GM_background_K)
144         &      .or.(GM_SM_Ce.gt.0 _d 0)
145        ENDIF        ENDIF
146    
147  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.3
  ViewVC Help
Powered by ViewVC 1.1.22