/[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.7 by cnh, Thu May 21 18:28:50 1998 UTC revision 1.14 by adcroft, Mon Jun 8 18:45:28 1998 UTC
# Line 9  C     | stored into the variables held h Line 9  C     | stored into the variables held h
9  C     | the parameters can also be found here.                   |  C     | the parameters can also be found here.                   |
10  C     \==========================================================/  C     \==========================================================/
11    
12    C     Macros for special grid options
13    #include "PARAMS_MACROS.h"
14    
15  C--   Contants  C--   Contants
16  C     Useful physical values  C     Useful physical values
17        Real*8 PI        Real*8 PI
# Line 72  C     momViscosity  - Flag which turns m Line 75  C     momViscosity  - Flag which turns m
75  C     momAdvection  - Flag which turns advection of momentum on and off.  C     momAdvection  - Flag which turns advection of momentum on and off.
76  C     momForcing    - Flag which turns external forcing of momentum on  C     momForcing    - Flag which turns external forcing of momentum on
77  C                     and off.  C                     and off.
78    C     momPressureForcing - Flag which turns pressure term in momentum equation
79    C                          on and off.
80  C     useCoriolis   - Flag which turns the coriolis terms on and off.  C     useCoriolis   - Flag which turns the coriolis terms on and off.
81  C     tempDiffusion - Flag which turns diffusion of temperature on  C     tempDiffusion - Flag which turns diffusion of temperature on
82  C                     and off.  C                     and off.
# Line 85  C     saltAdvection - Flag which turns a Line 90  C     saltAdvection - Flag which turns a
90  C                     and off.  C                     and off.
91  C     saltForcing   - Flag which turns external forcing of salinit on  C     saltForcing   - Flag which turns external forcing of salinit on
92  C                     and off.  C                     and off.
93    C     implicitFreeSurface - Set to true to use implcit free surface
94    C     rigidLid            - Set to true to use rigid lid
95    C     momStepping   - Turns momentum equation time-stepping off
96    C     momStepping   - Turns temperature equation time-stepping off
97    C     implicitDiffusion - Turns implicit vertical diffusion on
98        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
99       & momViscosity, momAdvection, momForcing, useCoriolis,       & momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing,
100       & tempDiffusion, tempAdvection, tempForcing,       & tempDiffusion, tempAdvection, tempForcing,
101       & saltDiffusion, saltAdvection, saltForcing       & saltDiffusion, saltAdvection, saltForcing,
102         & implicitFreeSurface, rigidLid, momStepping, tempStepping,
103         & implicitDiffusion
104        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
105        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
106        LOGICAL momViscosity        LOGICAL momViscosity
107        LOGICAL momAdvection        LOGICAL momAdvection
108        LOGICAL momForcing        LOGICAL momForcing
109          LOGICAL momPressureForcing
110        LOGICAL useCoriolis        LOGICAL useCoriolis
111        LOGICAL tempDiffusion        LOGICAL tempDiffusion
112        LOGICAL tempAdvection        LOGICAL tempAdvection
# Line 101  C                     and off. Line 114  C                     and off.
114        LOGICAL saltDiffusion        LOGICAL saltDiffusion
115        LOGICAL saltAdvection        LOGICAL saltAdvection
116        LOGICAL saltForcing        LOGICAL saltForcing
117          LOGICAL implicitFreeSurface
118          LOGICAL rigidLid
119          LOGICAL momStepping
120          LOGICAL tempStepping
121          LOGICAL implicitDiffusion
122    
123  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.
124  C     cg2dTargetResidual  C     cg2dTargetResidual
# Line 124  C                 between "w" surfaces. Line 142  C                 between "w" surfaces.
142  C     delX      - Separation between cell faces (m) or (deg), depending  C     delX      - Separation between cell faces (m) or (deg), depending
143  C     delY        on input flags.  C     delY        on input flags.
144  C     gravity   - Accel. due to gravity ( m/s^2 )  C     gravity   - Accel. due to gravity ( m/s^2 )
145    C     gBaro     - Accel. due to gravity used in barotropic equation ( m/s^2 )
146  C     ronil     - Reference density  C     ronil     - Reference density
147  C     startTime - Start time for model ( s )  C     startTime - Start time for model ( s )
148  C     phiMin    - Latitude of southern most cell face.  C     phiMin    - Latitude of southern most cell face.
# Line 161  C                    Frequency of checkp Line 180  C                    Frequency of checkp
180  C                    are referenced to this clock. ( s )  C                    are referenced to this clock. ( s )
181  C     deltaTMom    - Timestep for momemtum equations ( s )  C     deltaTMom    - Timestep for momemtum equations ( s )
182  C     deltaTtracer - Timestep for tracer equations ( s )  C     deltaTtracer - Timestep for tracer equations ( s )
183    C     freesurfFac  - Parameter to turn implicit free surface term on or off
184    C                    freesurfac = 1. uses implicit free surface
185    C                    freesurfac = 0. uses rigid lid
186  C     tauCD     - CD scheme coupling timescale ( 1/s )  C     tauCD     - CD scheme coupling timescale ( 1/s )
187  C     rCD       - CD scheme normalised coupling parameter ( 0-1 )  C     rCD       - CD scheme normalised coupling parameter ( 0-1 )
188  C     GMmaxslope  - max. slope allowed in GM/Redi tensor  C     GMmaxslope  - max. slope allowed in GM/Redi tensor
189  C     GMlength  - Length to use in Visbeck et al. formula for K  C     GMlength  - Length to use in Visbeck et al. formula for K (m)
190  C     GMalpha   - alpha to use in Visbeck et al. formula for K  C     GMalpha   - alpha to use in Visbeck et al. formula for K
191  C     GMdepth   - Depth over which to integrate Richardson # (Visbeck et al.)  C     GMdepth   - Depth over which to integrate Richardson # (Visbeck et al.)
192  C     GMbackground - background value of GM/Redi coefficient  C     GMkbackground - background value of GM/Redi coefficient
193  C     startTime - Starting time for this integration ( s ).  C     startTime - Starting time for this integration ( s ).
194  C     endTime   - Ending time for this integration ( s ).  C     endTime   - Ending time for this integration ( s ).
195  C     chkPtFreq  - Frequency of rolling check pointing ( s ).  C     chkPtFreq  - Frequency of rolling check pointing ( s ).
196  C     pChkPtFreq - Frequency of permanent check pointing ( s ).  C     pChkPtFreq - Frequency of permanent check pointing ( s ).
197  C     dumpFreq  - Frequency with which model state is written to  C     dumpFreq  - Frequency with which model state is written to
198  C                 post-processing files ( s ).  C                 post-processing files ( s ).
199    C     afFacMom  - Advection of momentum term scaling parameter
200    C     vfFacMom  - Momentum viscosity scaling parameter
201    C     pfFacMom  - Momentum pressure forcing parameter
202    C     cfFacMom  - Coriolis term scaling parameter
203    C     foFacMom  - Momentum forcing scaling parameter
204    C     cAdjFreq  - Frequency of convective adjustment
205        COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, delZ, delX, delY,        COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, delZ, delX, delY,
206       & deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin,       & deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin,
207       & thetaMin, rSphere, f0, fCori, beta, viscAh, viscAz, viscA4,       & thetaMin, rSphere, f0, fCori, beta, viscAh, viscAz, viscA4,
208       & diffKhT, diffKzT, diffK4T, diffKhS, diffKzS, diffK4S, delT,       & diffKhT, diffKzT, diffK4T, diffKhS, diffKzS, diffK4S, delT,
209       & tauCD, rCD,       & tauCD, rCD, freeSurfFac,
210       & GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground,       & GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground,
211       & gravity, rhonil, tRef, sRef,       & gravity, gBaro, rhonil, tRef, sRef,
212       & endTime, chkPtFreq, pchkPtFreq, dumpFreq       & endTime, chkPtFreq, pchkPtFreq, dumpFreq,
213         & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom,
214         & cAdjFreq
215        _RL cg2dTargetResidual        _RL cg2dTargetResidual
216        _RL cg2dpcOffDFac        _RL cg2dpcOffDFac
217        _RL delZ(Nz)        _RL delZ(Nz)
# Line 196  C                 post-processing files Line 226  C                 post-processing files
226        _RL thetaMin        _RL thetaMin
227        _RL rSphere        _RL rSphere
228        _RL f0        _RL f0
229          _RL freeSurfFac
230        _RL beta        _RL beta
231        _RL viscAh        _RL viscAh
232        _RL viscAz        _RL viscAz
# Line 215  C                 post-processing files Line 246  C                 post-processing files
246        _RL GMdepth        _RL GMdepth
247        _RL GMkbackground        _RL GMkbackground
248        _RL gravity        _RL gravity
249          _RL gBaro
250        _RL rhonil        _RL rhonil
251        _RL tRef(Nz)        _RL tRef(Nz)
252        _RL sRef(Nz)        _RL sRef(Nz)
253        _RL Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
254        _RL startTime        _RL startTime
255        _RL endTime        _RL endTime
256        _RL chkPtFreq        _RL chkPtFreq
257        _RL pChkPtFreq        _RL pChkPtFreq
258        _RL dumpFreq        _RL dumpFreq
259          _RL afFacMom
260          _RL vfFacMom
261          _RL pfFacMom
262          _RL cfFacMom
263          _RL foFacMom
264          _RL cAdjFreq
265    
266        COMMON /PARM_A/ HeatCapacity_Cp,        COMMON /PARM_A/ HeatCapacity_Cp,
267       &                Lamba_theta       &                Lamba_theta
# Line 232  C                 post-processing files Line 270  C                 post-processing files
270    
271  C Equation of State (polynomial coeffients)  C Equation of State (polynomial coeffients)
272        COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS        COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
273        _RL eosC(Nz+1,9),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1)        _RL eosC(9,Nz+1),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1)
274  C Linear equation of state  C Linear equation of state
275  C     tAlpha    - Linear EOS thermal expansion coefficient ( 1/degree ).  C     tAlpha    - Linear EOS thermal expansion coefficient ( 1/degree ).
276  C     sBeta     - Linear EOS haline contraction coefficient.  C     sBeta     - Linear EOS haline contraction coefficient.
277        COMMON /PARM_EOS_LIN/ tAlpha,sBeta        COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType
278        _RL tAlpha        _RL tAlpha
279        _RL sBeta        _RL sBeta
280          character*(6) eosType
281    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22