/[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.115 by jmc, Sat Jun 26 02:37:17 2004 UTC revision 1.119 by jmc, Fri Jul 9 22:31:16 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, tCyl       &                mdsioLocalDir
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
       _RL tCyl  
107    
108  C--   COMMON /PARM_I/ Integer valued parameters used by the model.  C--   COMMON /PARM_I/ Integer valued parameters used by the model.
109  C     cg2dMaxIters        :: Maximum number of iterations in the  C     cg2dMaxIters        :: Maximum number of iterations in the
110  C                           two-dimensional con. grad solver.  C                           two-dimensional con. grad solver.
111  C     cg2dChkResFreq      :: Frequency with which to check residual  C     cg2dChkResFreq      :: Frequency with which to check residual
112  C                           in con. grad solver.  C                           in con. grad solver.
113    C     cg2dPreCondFreq     :: Frequency for updating cg2d preconditioner
114    C                            (non-linear free-surf.)
115  C     cg3dMaxIters        :: Maximum number of iterations in the  C     cg3dMaxIters        :: Maximum number of iterations in the
116  C                           three-dimensional con. grad solver.  C                           three-dimensional con. grad solver.
117  C     cg3dChkResFreq      :: Frequency with which to check residual  C     cg3dChkResFreq      :: Frequency with which to check residual
# Line 135  C     debugLevel          :: debug level Line 136  C     debugLevel          :: debug level
136    
137        COMMON /PARM_I/        COMMON /PARM_I/
138       &        cg2dMaxIters,       &        cg2dMaxIters,
139       &        cg2dChkResFreq,       &        cg2dChkResFreq, cg2dPreCondFreq,
140       &        cg3dMaxIters,       &        cg3dMaxIters,
141       &        cg3dChkResFreq,       &        cg3dChkResFreq,
142       &        nIter0, nTimeSteps, nEndIter,       &        nIter0, nTimeSteps, nEndIter,
# Line 149  C     debugLevel          :: debug level Line 150  C     debugLevel          :: debug level
150       &        debugLevel       &        debugLevel
151        INTEGER cg2dMaxIters        INTEGER cg2dMaxIters
152        INTEGER cg2dChkResFreq        INTEGER cg2dChkResFreq
153          INTEGER cg2dPreCondFreq
154        INTEGER cg3dMaxIters        INTEGER cg3dMaxIters
155        INTEGER cg3dChkResFreq        INTEGER cg3dChkResFreq
156        INTEGER nIter0        INTEGER nIter0
# Line 233  C     tempImplVertAdv :: Turns on implic Line 235  C     tempImplVertAdv :: Turns on implic
235  C     saltImplVertAdv :: Turns on implicit vertical advection for Salinity  C     saltImplVertAdv :: Turns on implicit vertical advection for Salinity
236  C     momImplVertAdv  :: Turns on implicit vertical advection for Momentum  C     momImplVertAdv  :: Turns on implicit vertical advection for Momentum
237  C     multiDimAdvection :: Flag that enable multi-dimension advection  C     multiDimAdvection :: Flag that enable multi-dimension advection
238    C     useMultiDimAdvec  :: True if multi-dim advection is used at least once
239  C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution  C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution
240  C                      out off Adams-Bashforth time stepping.  C                      out off Adams-Bashforth time stepping.
241  C     doThetaClimRelax :: Set true if relaxation to temperature  C     doThetaClimRelax :: Set true if relaxation to temperature
# Line 276  C     groundAtK1  :: put the surface(k=1 Line 279  C     groundAtK1  :: put the surface(k=1
279       & useAbsVorticity,       & useAbsVorticity,
280       & implicitDiffusion, implicitViscosity,       & implicitDiffusion, implicitViscosity,
281       & tempImplVertAdv, saltImplVertAdv, momImplVertAdv,       & tempImplVertAdv, saltImplVertAdv, momImplVertAdv,
282       & multiDimAdvection, forcing_In_AB,       & multiDimAdvection, useMultiDimAdvec, forcing_In_AB,
283       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,
284       & periodicExternalForcing,       & periodicExternalForcing,
285       & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,       & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,
286       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,
287       & allowFreezing, useOldFreezing, groundAtK1,       & allowFreezing, useOldFreezing, groundAtK1,
288       & usePickupBeforeC35, debugMode,       & usePickupBeforeC35, usePickupBeforeC54, debugMode,
289       & readPickupWithTracer, writePickupWithTracer       & readPickupWithTracer, writePickupWithTracer
290        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
291        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
# Line 332  C     groundAtK1  :: put the surface(k=1 Line 335  C     groundAtK1  :: put the surface(k=1
335        LOGICAL saltImplVertAdv        LOGICAL saltImplVertAdv
336        LOGICAL momImplVertAdv        LOGICAL momImplVertAdv
337        LOGICAL multiDimAdvection        LOGICAL multiDimAdvection
338          LOGICAL useMultiDimAdvec
339        LOGICAL forcing_In_AB        LOGICAL forcing_In_AB
340        LOGICAL doThetaClimRelax        LOGICAL doThetaClimRelax
341        LOGICAL doSaltClimRelax        LOGICAL doSaltClimRelax
# Line 349  C     groundAtK1  :: put the surface(k=1 Line 353  C     groundAtK1  :: put the surface(k=1
353        LOGICAL useOldFreezing        LOGICAL useOldFreezing
354        LOGICAL groundAtK1        LOGICAL groundAtK1
355        LOGICAL usePickupBeforeC35        LOGICAL usePickupBeforeC35
356          LOGICAL usePickupBeforeC54
357        LOGICAL debugMode        LOGICAL debugMode
358        LOGICAL readPickupWithTracer        LOGICAL readPickupWithTracer
359        LOGICAL writePickupWithTracer        LOGICAL writePickupWithTracer
360    
361  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.
362  C     gg2dTargetResidual  C     cg2dTargetResidual
363  C          :: Target residual for cg2d solver; no unit (RHS normalisation)  C          :: Target residual for cg2d solver; no unit (RHS normalisation)
364  C     cg2dTargetResWunit  C     cg2dTargetResWunit
365  C          :: Target residual for cg2d solver; W unit (No RHS normalisation)  C          :: Target residual for cg2d solver; W unit (No RHS normalisation)
# Line 528  C      --"-"--  Quadratic  ( linear: 1/s Line 533  C      --"-"--  Quadratic  ( linear: 1/s
533       & hFacMinDr, hFacMinDp,       & hFacMinDr, hFacMinDp,
534       & horiVertRatio, recip_horiVertRatio,       & horiVertRatio, recip_horiVertRatio,
535       & ivdc_kappa, Ro_SeaLevel,       & ivdc_kappa, Ro_SeaLevel,
536       & bottomDragLinear,bottomDragQuadratic       & bottomDragLinear,bottomDragQuadratic,
537         & tCyl
538    
539        _RL cg2dTargetResidual        _RL cg2dTargetResidual
540        _RL cg2dTargetResWunit        _RL cg2dTargetResWunit
# Line 636  C      --"-"--  Quadratic  ( linear: 1/s Line 642  C      --"-"--  Quadratic  ( linear: 1/s
642        _RL Ro_SeaLevel        _RL Ro_SeaLevel
643        _RL bottomDragLinear        _RL bottomDragLinear
644        _RL bottomDragQuadratic        _RL bottomDragQuadratic
645          _RL tCyl
646    
647  C--   COMMON /PARM_A/ Thermodynamics constants ?  C--   COMMON /PARM_A/ Thermodynamics constants ?
648        COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp        COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp
Legend:
Removed from v.1.115  
changed lines
  Added in v.1.119
  ViewVC Help
Powered by ViewVC 1.1.22