/[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.73 by mlosch, Wed Jul 31 16:38:30 2002 UTC revision 1.78 by adcroft, Tue Nov 5 19:58:21 2002 UTC
# Line 72  C     EmPmRfile       :: File containing Line 72  C     EmPmRfile       :: File containing
72  C     pLoadFile       :: File containing pressure loading  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 79  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, ploadFile       &                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 97  C                        get buoyancy. Line 100  C                        get buoyancy.
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        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 162  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 221  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 237  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 317  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 402  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 433  C      --"-"--  Quadratic  ( linear: 1/s Line 443  C      --"-"--  Quadratic  ( linear: 1/s
443       & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,       & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,
444       & abeps, startTime,       & abeps, startTime,
445       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,
446       & fCori, fCoriG,       & fCori, fCoriG, fCoriCos,
447       & viscAh,  viscAz,  viscA4,  viscAr, viscAstrain, viscAtension,       & viscAh,  viscAz,  viscA4,  viscAr, viscAstrain, viscAtension,
448       & diffKhT, diffKzT, diffK4T, diffKrT,       & diffKhT, diffKzT, diffK4T, diffKrT,
449       & diffKhS, diffKzS, diffK4S, diffKrS,       & diffKhS, diffKzS, diffK4S, diffKrS,
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 513  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)
532        _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
533          _RS fCoriCos(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
534        _RL startTime        _RL startTime
535        _RL endTime        _RL endTime
536        _RL chkPtFreq        _RL chkPtFreq
# Line 524  C      --"-"--  Quadratic  ( linear: 1/s Line 538  C      --"-"--  Quadratic  ( linear: 1/s
538        _RL dumpFreq        _RL dumpFreq
539        _RL diagFreq        _RL diagFreq
540        _RL taveFreq        _RL taveFreq
541          _RL tave_lastIter
542        _RL monitorFreq        _RL monitorFreq
543        _RL afFacMom        _RL afFacMom
544        _RL vfFacMom        _RL vfFacMom
# Line 559  C      --"-"--  Quadratic  ( linear: 1/s Line 574  C      --"-"--  Quadratic  ( linear: 1/s
574        _RL Lamba_theta        _RL Lamba_theta
575        _RL recip_Cp        _RL recip_Cp
576    
577  C Equation of State (polynomial coeffients)  CmlC Equation of State (polynomial coeffients)
578        COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS  Cml      COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
579        _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)
580  C Linear equation of state  CmlC Linear equation of state
581  C     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).  CmlC     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).
582  C     sBeta     :: Linear EOS haline contraction coefficient.  CmlC     sBeta     :: Linear EOS haline contraction coefficient.
583        COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType  Cml      COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType
584        _RL tAlpha  Cml      _RL tAlpha
585        _RL sBeta  Cml      _RL sBeta
       character*(6) eosType  
586    
587  C Atmospheric physical parameters (Ideal Gas EOS, ...)  C Atmospheric physical parameters (Ideal Gas EOS, ...)
588  C     atm_po    :: standard reference pressure  C     atm_po    :: standard reference pressure
Legend:
Removed from v.1.73  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22