/[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.34 by cnh, Fri Nov 6 22:44:43 1998 UTC revision 1.37 by adcroft, Mon Mar 22 15:54:03 1999 UTC
# Line 23  C     Symbolic values Line 23  C     Symbolic values
23  C     precXXXX - Used to indicate what precision to use for  C     precXXXX - Used to indicate what precision to use for
24  C                dumping model state.  C                dumping model state.
25        INTEGER precFloat32        INTEGER precFloat32
26        PARAMETER ( precFloat32 = 0 )        PARAMETER ( precFloat32 = 32 )
27        INTEGER precFloat64        INTEGER precFloat64
28        PARAMETER ( precFloat64 = 1 )        PARAMETER ( precFloat64 = 64 )
29  C     UNSET_xxx - Used to indicate variables that have not been given a value  C     UNSET_xxx - Used to indicate variables that have not been given a value
30        Real*8 UNSET_FLOAT8        Real*8 UNSET_FLOAT8
31        PARAMETER ( UNSET_FLOAT8 = 1.234567D5 )        PARAMETER ( UNSET_FLOAT8 = 1.234567D5 )
# Line 55  C     thetaClimFile   - File containing Line 55  C     thetaClimFile   - File containing
55  C                       in relaxation term -lambda(theta-theta*)  C                       in relaxation term -lambda(theta-theta*)
56  C     saltClimFile    - File containing salt climataology used  C     saltClimFile    - File containing salt climataology used
57  C                       in relaxation term -lambda(salt-salt*)  C                       in relaxation term -lambda(salt-salt*)
58    C     surfQfile       - File containing surface heat flux
59    C     EmPmRfile       - File containing surface fresh water flux
60  C     buoyancyRelation - Flag used to indicate which relation to use to  C     buoyancyRelation - Flag used to indicate which relation to use to
61  C                        get buoyancy.  C                        get buoyancy.
62        COMMON /PARM_C/ checkPtSuff,        COMMON /PARM_C/ checkPtSuff,
63       &                bathyFile, hydrogThetaFile, hydrogSaltFile,       &                bathyFile, hydrogThetaFile, hydrogSaltFile,
64       &                zonalWindFile, meridWindFile, thetaClimFile,       &                zonalWindFile, meridWindFile, thetaClimFile,
65       &                saltClimFile, buoyancyRelation       &                saltClimFile, buoyancyRelation,
66         &                EmPmRfile,surfQfile
67        CHARACTER*(5) checkPtSuff(maxNoChkptLev)        CHARACTER*(5) checkPtSuff(maxNoChkptLev)
68        CHARACTER*(MAX_LEN_FNAM) bathyFile        CHARACTER*(MAX_LEN_FNAM) bathyFile
69        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile
# Line 69  C                        get buoyancy. Line 72  C                        get buoyancy.
72        CHARACTER*(MAX_LEN_FNAM) meridWindFile        CHARACTER*(MAX_LEN_FNAM) meridWindFile
73        CHARACTER*(MAX_LEN_FNAM) thetaClimFile        CHARACTER*(MAX_LEN_FNAM) thetaClimFile
74        CHARACTER*(MAX_LEN_FNAM) saltClimFile        CHARACTER*(MAX_LEN_FNAM) saltClimFile
75          CHARACTER*(MAX_LEN_FNAM) surfQfile
76          CHARACTER*(MAX_LEN_FNAM) EmPmRfile
77        CHARACTER*(MAX_LEN_FNAM) buoyancyRelation        CHARACTER*(MAX_LEN_FNAM) buoyancyRelation
78    
79  C--   COMMON /PARM_I/ Integer valued parameters used by the model.  C--   COMMON /PARM_I/ Integer valued parameters used by the model.
# Line 123  C     usingCartesianGrid - If TRUE grid Line 128  C     usingCartesianGrid - If TRUE grid
128  C                          coordinate frame.  C                          coordinate frame.
129  C     usingSphericalPolarGrid - If TRUE grid generation will be in a  C     usingSphericalPolarGrid - If TRUE grid generation will be in a
130  C                               spherical polar frame.  C                               spherical polar frame.
131    C     no_slip_sides - Impose "no-slip" at lateral boundaries.
132    C     no_slip_bottom- Impose "no-slip" at bottom boundary.
133  C     momViscosity  - Flag which turns momentum friction terms on and off.  C     momViscosity  - Flag which turns momentum friction terms on and off.
134  C     momAdvection  - Flag which turns advection of momentum on and off.  C     momAdvection  - Flag which turns advection of momentum on and off.
135  C     momForcing    - Flag which turns external forcing of momentum on  C     momForcing    - Flag which turns external forcing of momentum on
# Line 162  C     usingPCoords     - Set to indicate Line 169  C     usingPCoords     - Set to indicate
169  C                        coords.  C                        coords.
170  C     usingZCoords     - Set to indicate that we are working in height  C     usingZCoords     - Set to indicate that we are working in height
171  C                        coords.  C                        coords.
172    C     openBoundaries - Using open-boundaries
173    C     nonHydrostatic - Using non-hydrostatic terms
174        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
175         & no_slip_sides,no_slip_bottom,
176       & momViscosity, momAdvection, momForcing, useCoriolis,       & momViscosity, momAdvection, momForcing, useCoriolis,
177       & momPressureForcing,tempDiffusion, tempAdvection, tempForcing,       & momPressureForcing,tempDiffusion, tempAdvection, tempForcing,
178       & saltDiffusion, saltAdvection, saltForcing,       & saltDiffusion, saltAdvection, saltForcing,
# Line 171  C                        coords. Line 181  C                        coords.
181       & metricTerms, usingSphericalPolarMTerms,       & metricTerms, usingSphericalPolarMTerms,
182       & useConstantF, useBetaPlaneF, useSphereF,       & useConstantF, useBetaPlaneF, useSphereF,
183       & implicitDiffusion, doThetaClimRelax, doSaltClimRelax,       & implicitDiffusion, doThetaClimRelax, doSaltClimRelax,
184       & periodicExternalForcing, usingPCoords, usingZCoords       & periodicExternalForcing, usingPCoords, usingZCoords,
185         & openBoundaries, nonHydrostatic
186        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
187        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
188        LOGICAL usingSphericalPolarMTerms        LOGICAL usingSphericalPolarMTerms
189          LOGICAL no_slip_sides
190          LOGICAL no_slip_bottom
191        LOGICAL momViscosity        LOGICAL momViscosity
192        LOGICAL momAdvection        LOGICAL momAdvection
193        LOGICAL momForcing        LOGICAL momForcing
# Line 201  C                        coords. Line 214  C                        coords.
214        LOGICAL periodicExternalForcing        LOGICAL periodicExternalForcing
215        LOGICAL usingPCoords        LOGICAL usingPCoords
216        LOGICAL usingZCoords        LOGICAL usingZCoords
217          LOGICAL openBoundaries
218          LOGICAL nonHydrostatic
219    
220  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.
221  C     cg2dTargetResidual  C     cg2dTargetResidual
# Line 430  C                          circles ( see Line 445  C                          circles ( see
445        _RL recip_horiVertRatio        _RL recip_horiVertRatio
446        _RL latFFTFiltLo        _RL latFFTFiltLo
447    
448        COMMON /PARM_A/ HeatCapacity_Cp,        COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp,
449       &                Lamba_theta       &                Lamba_theta
450        _RL HeatCapacity_Cp        _RL HeatCapacity_Cp
451        _RL Lamba_theta        _RL Lamba_theta
452          _RL recip_Cp
453    
454  C Equation of State (polynomial coeffients)  C Equation of State (polynomial coeffients)
455        COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS        COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
# Line 446  C     sBeta     - Linear EOS haline cont Line 462  C     sBeta     - Linear EOS haline cont
462        _RL sBeta        _RL sBeta
463        character*(6) eosType        character*(6) eosType
464    
465    C These are input arrays (of integers) that contain the *absolute*
466    C computational index of an open-boundary (OB) point.
467    C A zero (0) element means there is no corresponding OB in that column/row.
468    C The computational coordinate refers to "tracer" cells.
469    C For a northern/southern OB, the OB V point is to the south/north.
470    C For an eastern/western OB, the OB U point is to the west/east.
471    C eg.
472    C     OB_Jnorth(3)=34  means that:
473    C          T( 3 ,34) is a an OB point
474    C          U(3:4,34) is a an OB point
475    C          V( 4 ,34) is a an OB point
476    C while
477    C     OB_Jsouth(3)=1  means that:
478    C          T( 3 ,1) is a an OB point
479    C          U(3:4,1) is a an OB point
480    C          V( 4 ,2) is a an OB point
481    C
482    C For convenience, negative values for Jnorth/Ieast refer to
483    C points relative to the Northern/Eastern edges of the model
484    C eg. OB_Jnorth(3)=-1  means that the point (3,Ny-1) is a northern O-B.
485    C
486          COMMON /PARM_OB/
487         & OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest
488          INTEGER OB_Jnorth(Nx)
489          INTEGER OB_Jsouth(Nx)
490          INTEGER OB_Ieast(Ny)
491          INTEGER OB_Iwest(Ny)
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22