/[MITgcm]/MITgcm/model/inc/PARAMS.h
ViewVC logotype

Diff of /MITgcm/model/inc/PARAMS.h

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

revision 1.113 by adcroft, Mon Jun 14 17:48:13 2004 UTC revision 1.115 by jmc, Sat Jun 26 02:37:17 2004 UTC
# Line 83  C                        LINEAR, POLY3, Line 83  C                        LINEAR, POLY3,
83       &                uVelInitFile, vVelInitFile, pSurfInitFile,       &                uVelInitFile, vVelInitFile, pSurfInitFile,
84       &                dQdTfile, ploadFile,       &                dQdTfile, ploadFile,
85       &                eosType, pickupSuff,       &                eosType, pickupSuff,
86       &                mdsioLocalDir       &                mdsioLocalDir, tCyl
87        CHARACTER*(5) checkPtSuff(maxNoChkptLev)        CHARACTER*(5) checkPtSuff(maxNoChkptLev)
88        CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile        CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile
89        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile
# Line 104  C                        LINEAR, POLY3, Line 104  C                        LINEAR, POLY3,
104        CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir        CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir
105        CHARACTER*(6) eosType        CHARACTER*(6) eosType
106        CHARACTER*(10) pickupSuff        CHARACTER*(10) pickupSuff
107          _RL tCyl
108    
109  C--   COMMON /PARM_I/ Integer valued parameters used by the model.  C--   COMMON /PARM_I/ Integer valued parameters used by the model.
110  C     cg2dMaxIters        :: Maximum number of iterations in the  C     cg2dMaxIters        :: Maximum number of iterations in the
# Line 126  C     nonlinFreeSurf      :: option rela Line 127  C     nonlinFreeSurf      :: option rela
127  C                           =0 Linear free surface ; >0 Non-linear  C                           =0 Linear free surface ; >0 Non-linear
128  C     select_rStar        :: option related to r* vertical coordinate  C     select_rStar        :: option related to r* vertical coordinate
129  C                           =0 (default) use r coord. ; > 0 use r*  C                           =0 (default) use r coord. ; > 0 use r*
130    C     tempAdvScheme       :: Temp. Horiz.Advection scheme selector
131    C     tempVertAdvScheme   :: Temp. Vert. Advection scheme selector
132    C     saltAdvScheme       :: Salt. Horiz.advection scheme selector
133    C     saltVertAdvScheme   :: Salt. Vert. Advection scheme selector
134    C     debugLevel          :: debug level selector: higher -> more writing
135    
136        COMMON /PARM_I/        COMMON /PARM_I/
137       &        cg2dMaxIters,       &        cg2dMaxIters,
# Line 137  C                           =0 (default) Line 143  C                           =0 (default)
143       &        writeStatePrec, nCheckLev,       &        writeStatePrec, nCheckLev,
144       &        writeBinaryPrec, readBinaryPrec,       &        writeBinaryPrec, readBinaryPrec,
145       &        nonlinFreeSurf, select_rStar,       &        nonlinFreeSurf, select_rStar,
146       &        tempAdvScheme, saltAdvScheme, tracerAdvScheme,       &        tempAdvScheme, tempVertAdvScheme,
147         &        saltAdvScheme, saltVertAdvScheme,
148         &        tracerAdvScheme,
149       &        debugLevel       &        debugLevel
150        INTEGER cg2dMaxIters        INTEGER cg2dMaxIters
151        INTEGER cg2dChkResFreq        INTEGER cg2dChkResFreq
# Line 153  C                           =0 (default) Line 161  C                           =0 (default)
161        INTEGER nCheckLev        INTEGER nCheckLev
162        INTEGER nonlinFreeSurf        INTEGER nonlinFreeSurf
163        INTEGER select_rStar        INTEGER select_rStar
164        INTEGER tempAdvScheme        INTEGER tempAdvScheme, tempVertAdvScheme
165        INTEGER saltAdvScheme        INTEGER saltAdvScheme, saltVertAdvScheme
166        INTEGER tracerAdvScheme        INTEGER tracerAdvScheme
167        INTEGER debugLevel        INTEGER debugLevel
168    
# Line 171  C     usingCartesianGrid :: If TRUE grid Line 179  C     usingCartesianGrid :: If TRUE grid
179  C                          coordinate frame.  C                          coordinate frame.
180  C     usingSphericalPolarGrid :: If TRUE grid generation will be in a  C     usingSphericalPolarGrid :: If TRUE grid generation will be in a
181  C                               spherical polar frame.  C                               spherical polar frame.
182    C     usingCylindricalGrid :: If TRUE grid generation will be Cylindrical
183  C     no_slip_sides :: Impose "no-slip" at lateral boundaries.  C     no_slip_sides :: Impose "no-slip" at lateral boundaries.
184  C     no_slip_bottom :: Impose "no-slip" at bottom boundary.  C     no_slip_bottom :: Impose "no-slip" at bottom boundary.
185  C     staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V  C     staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V
# Line 249  C     allowFreezing  :: Allows surface w Line 258  C     allowFreezing  :: Allows surface w
258  C     useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12)  C     useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12)
259  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)
260        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
261       & usingCurvilinearGrid,       & usingCurvilinearGrid, usingCylindricalGrid,
262       & no_slip_sides,no_slip_bottom,       & no_slip_sides,no_slip_bottom,
263       & staggerTimeStep,       & staggerTimeStep,
264       & momViscosity, momAdvection, momForcing, useCoriolis,       & momViscosity, momAdvection, momForcing, useCoriolis,
# Line 277  C     groundAtK1  :: put the surface(k=1 Line 286  C     groundAtK1  :: put the surface(k=1
286       & readPickupWithTracer, writePickupWithTracer       & readPickupWithTracer, writePickupWithTracer
287        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
288        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
289          LOGICAL usingCylindricalGrid
290        LOGICAL usingCurvilinearGrid        LOGICAL usingCurvilinearGrid
291        LOGICAL usingSphericalPolarMTerms        LOGICAL usingSphericalPolarMTerms
292        LOGICAL useNHMTerms        LOGICAL useNHMTerms
Legend:
Removed from v.1.113  
changed lines
  Added in v.1.115
  ViewVC Help
Powered by ViewVC 1.1.22