/[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.72 by adcroft, Fri Jun 21 18:36:04 2002 UTC revision 1.77 by adcroft, Tue Nov 5 18:48:46 2002 UTC
# Line 69  C     surfQfile       :: File containing Line 69  C     surfQfile       :: File containing
69  C     surfQswfile     :: File containing surface shortwave radiation  C     surfQswfile     :: File containing surface shortwave radiation
70  C     dQdTfile        :: File containing thermal relaxation coefficient  C     dQdTfile        :: File containing thermal relaxation coefficient
71  C     EmPmRfile       :: File containing surface fresh water flux  C     EmPmRfile       :: File containing surface fresh water flux
72    C     pLoadFile       :: File containing pressure loading
73  C     buoyancyRelation :: Flag used to indicate which relation to use to  C     buoyancyRelation :: Flag used to indicate which relation to use to
74  C                        get buoyancy.  C                        get buoyancy.
75    C     eosType         :: choose the equation of state:
76    C                        LINEAR, POLY3, UNESCO, JMD95Z, JMD95P
77        COMMON /PARM_C/ checkPtSuff,        COMMON /PARM_C/ checkPtSuff,
78       &                bathyFile, topoFile,       &                bathyFile, topoFile,
79       &                hydrogThetaFile, hydrogSaltFile,       &                hydrogThetaFile, hydrogSaltFile,
# Line 78  C                        get buoyancy. Line 81  C                        get buoyancy.
81       &                saltClimFile, buoyancyRelation,       &                saltClimFile, buoyancyRelation,
82       &                EmPmRfile, surfQfile, surfQswfile,       &                EmPmRfile, surfQfile, surfQswfile,
83       &                uVelInitFile, vVelInitFile, pSurfInitFile,       &                uVelInitFile, vVelInitFile, pSurfInitFile,
84       &                dQdTfile       &                dQdTfile, ploadFile,
85         &                eosType
86        CHARACTER*(5) checkPtSuff(maxNoChkptLev)        CHARACTER*(5) checkPtSuff(maxNoChkptLev)
87        CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile        CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile
88        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile
# Line 95  C                        get buoyancy. Line 99  C                        get buoyancy.
99        CHARACTER*(MAX_LEN_FNAM) vVelInitFile        CHARACTER*(MAX_LEN_FNAM) vVelInitFile
100        CHARACTER*(MAX_LEN_FNAM) pSurfInitFile        CHARACTER*(MAX_LEN_FNAM) pSurfInitFile
101        CHARACTER*(MAX_LEN_FNAM) dQdTfile        CHARACTER*(MAX_LEN_FNAM) dQdTfile
102          CHARACTER*(MAX_LEN_FNAM) ploadFile
103          CHARACTER*(6) eosType
104    
105  C--   COMMON /PARM_I/ Integer valued parameters used by the model.  C--   COMMON /PARM_I/ Integer valued parameters used by the model.
106  C     cg2dMaxIters        :: Maximum number of iterations in the  C     cg2dMaxIters        :: Maximum number of iterations in the
# Line 160  C     momPressureForcing :: Flag which t Line 166  C     momPressureForcing :: Flag which t
166  C                          on and off.  C                          on and off.
167  C     metricTerms   :: Flag which turns metric terms on or off.  C     metricTerms   :: Flag which turns metric terms on or off.
168  C     usingSphericalPolarMTerms :: If TRUE use spherical polar metric terms.  C     usingSphericalPolarMTerms :: If TRUE use spherical polar metric terms.
169    C     useNHMTerms :: If TRUE use non-hydrostatic metric terms.
170  C     useCoriolis   :: Flag which turns the coriolis terms on and off.  C     useCoriolis   :: Flag which turns the coriolis terms on and off.
171  C     tempDiffusion :: Flag which turns diffusion of temperature on  C     tempDiffusion :: Flag which turns diffusion of temperature on
172  C                     and off.  C                     and off.
# Line 219  C     groundAtK1  :: put the surface(k=1 Line 226  C     groundAtK1  :: put the surface(k=1
226       & useRealFreshWaterFlux,       & useRealFreshWaterFlux,
227       & rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf,       & rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf,
228       & momStepping, tempStepping, saltStepping, tr1Stepping,       & momStepping, tempStepping, saltStepping, tr1Stepping,
229       & metricTerms, usingSphericalPolarMTerms,       & metricTerms, usingSphericalPolarMTerms, useNHMTerms,
230       & useConstantF, useBetaPlaneF, useSphereF,       & useConstantF, useBetaPlaneF, useSphereF,
231       & useEnergyConservingCoriolis, useJamartWetPoints,       & useEnergyConservingCoriolis, useJamartWetPoints,
232       & implicitDiffusion, implicitViscosity,       & implicitDiffusion, implicitViscosity,
# Line 235  C     groundAtK1  :: put the surface(k=1 Line 242  C     groundAtK1  :: put the surface(k=1
242        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
243        LOGICAL usingCurvilinearGrid        LOGICAL usingCurvilinearGrid
244        LOGICAL usingSphericalPolarMTerms        LOGICAL usingSphericalPolarMTerms
245          LOGICAL useNHMTerms
246        LOGICAL no_slip_sides        LOGICAL no_slip_sides
247        LOGICAL no_slip_bottom        LOGICAL no_slip_bottom
248        LOGICAL staggerTimeStep        LOGICAL staggerTimeStep
# Line 315  C     delY        on input flags. Line 323  C     delY        on input flags.
323  C     gravity   :: Accel. due to gravity ( m/s^2 )  C     gravity   :: Accel. due to gravity ( m/s^2 )
324  C     recip_gravity and its inverse  C     recip_gravity and its inverse
325  C     gBaro     :: Accel. due to gravity used in barotropic equation ( m/s^2 )  C     gBaro     :: Accel. due to gravity used in barotropic equation ( m/s^2 )
326  C     ronil     :: Reference density  C     rhoNil    :: Reference density for the linear equation of state
327  C     rhoConst  :: Vertically constant reference density  C     rhoConst  :: Vertically constant reference density
328    C     rhoConstFresh :: Constant reference density for fresh water (rain)
329  C     startTime :: Start time for model ( s )  C     startTime :: Start time for model ( s )
330  C     phiMin    :: Latitude of southern most cell face.  C     phiMin    :: Latitude of southern most cell face.
331  C     thetaMin  :: Longitude of western most cell face (this  C     thetaMin  :: Longitude of western most cell face (this
# Line 400  C     mtFacMom      :: Metric terms trac Line 409  C     mtFacMom      :: Metric terms trac
409  C     cosPower      :: Power of cosine of latitude to multiply viscosity  C     cosPower      :: Power of cosine of latitude to multiply viscosity
410  C     cAdjFreq      :: Frequency of convective adjustment  C     cAdjFreq      :: Frequency of convective adjustment
411  C  C
412  C     taveFreq      :: Frequency with which time-averaged model state is written to  C     taveFreq      :: Frequency with which time-averaged model state
413  C                     post-processing files ( s ).  C                      is written to post-processing files ( s ).
414    C     tave_lastIter :: (for state variable only) fraction of the last time
415    C                      step (of each taveFreq period) put in the time average.
416    C                      (fraction for 1rst iter = 1 - tave_lastIter)
417  C     tauThetaClimRelax :: Relaxation to climatology time scale ( s ).  C     tauThetaClimRelax :: Relaxation to climatology time scale ( s ).
418  C     lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ).  C     lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ).
419  C     tauSaltClimRelax :: Relaxation to climatology time scale ( s ).  C     tauSaltClimRelax :: Relaxation to climatology time scale ( s ).
# Line 438  C      --"-"--  Quadratic  ( linear: 1/s Line 450  C      --"-"--  Quadratic  ( linear: 1/s
450       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
451       & hFacMin, hFacMinDz, hFacInf, hFacSup,       & hFacMin, hFacMinDz, hFacInf, hFacSup,
452       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
453       & recip_rhoConst, rhoConst, tRef, sRef,       & recip_rhoConst, rhoConst,
454         & rhoConstFresh, convertEmP2rUnit, tRef, sRef,
455       & endTime, chkPtFreq, pchkPtFreq, dumpFreq,       & endTime, chkPtFreq, pchkPtFreq, dumpFreq,
456       & diagFreq, taveFreq, monitorFreq,       & diagFreq, taveFreq, tave_lastIter, monitorFreq,
457       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,
458       & cosPower, cAdjFreq, omega,       & cosPower, cAdjFreq, omega,
459       & tauThetaClimRelax, lambdaThetaClimRelax,       & tauThetaClimRelax, lambdaThetaClimRelax,
# Line 511  C      --"-"--  Quadratic  ( linear: 1/s Line 524  C      --"-"--  Quadratic  ( linear: 1/s
524        _RL recip_rhonil        _RL recip_rhonil
525        _RL rhoConst        _RL rhoConst
526        _RL recip_rhoConst        _RL recip_rhoConst
527          _RL rhoConstFresh
528          _RL convertEmP2rUnit
529        _RL tRef(Nr)        _RL tRef(Nr)
530        _RL sRef(Nr)        _RL sRef(Nr)
531        _RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 522  C      --"-"--  Quadratic  ( linear: 1/s Line 537  C      --"-"--  Quadratic  ( linear: 1/s
537        _RL dumpFreq        _RL dumpFreq
538        _RL diagFreq        _RL diagFreq
539        _RL taveFreq        _RL taveFreq
540          _RL tave_lastIter
541        _RL monitorFreq        _RL monitorFreq
542        _RL afFacMom        _RL afFacMom
543        _RL vfFacMom        _RL vfFacMom
# Line 557  C      --"-"--  Quadratic  ( linear: 1/s Line 573  C      --"-"--  Quadratic  ( linear: 1/s
573        _RL Lamba_theta        _RL Lamba_theta
574        _RL recip_Cp        _RL recip_Cp
575    
576  C Equation of State (polynomial coeffients)  CmlC Equation of State (polynomial coeffients)
577        COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS  Cml      COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
578        _RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1)  Cml      _RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1)
579  C Linear equation of state  CmlC Linear equation of state
580  C     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).  CmlC     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).
581  C     sBeta     :: Linear EOS haline contraction coefficient.  CmlC     sBeta     :: Linear EOS haline contraction coefficient.
582        COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType  Cml      COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType
583        _RL tAlpha  Cml      _RL tAlpha
584        _RL sBeta  Cml      _RL sBeta
       character*(6) eosType  
585    
586  C Atmospheric physical parameters (Ideal Gas EOS, ...)  C Atmospheric physical parameters (Ideal Gas EOS, ...)
587  C     atm_po    :: standard reference pressure  C     atm_po    :: standard reference pressure
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.77
  ViewVC Help
Powered by ViewVC 1.1.22