/[MITgcm]/MITgcm/model/inc/PARAMS.h

Diff of /MITgcm/model/inc/PARAMS.h

Parent Directory | Revision Log | View Revision Graph Revision Graph | View Patch Patch

-revision 1.65 by adcroft,
Fri Sep 28 03:25:15 2001 UTC
+revision 1.123 by edhill,
Tue Sep  7 21:32:09 2004 UTC
 Line 65 
 C     thetaClimFile   :: File containing
  C                       in relaxation term -lambda(theta-theta*)
  C     saltClimFile    :: File containing salt climataology used
  C                       in relaxation term -lambda(salt-salt*)
- C     surfQfile       :: File containing surface heat flux
+ C     surfQfile       :: File containing surface heat flux, excluding SW
- C     surfQswfile     :: File containing surface shortwave radiation
+ C                        (old version, kept for backward compatibility)
+ C     surfQnetFile    :: File containing surface net heat flux
+ C     surfQswFile     :: File containing surface shortwave radiation
  C     dQdTfile        :: File containing thermal relaxation coefficient
  C     EmPmRfile       :: File containing surface fresh water flux
+ C     pLoadFile       :: File containing pressure loading
  C     buoyancyRelation :: Flag used to indicate which relation to use to
  C                        get buoyancy.
+ C     eosType         :: choose the equation of state:
+ C                        LINEAR, POLY3, UNESCO, JMD95Z, JMD95P, MDJWF, IDEALGAS
        COMMON /PARM_C/ checkPtSuff,
       &                bathyFile, topoFile,
       &                hydrogThetaFile, hydrogSaltFile,
       &                zonalWindFile, meridWindFile, thetaClimFile,
       &                saltClimFile, buoyancyRelation,
-      &                EmPmRfile, surfQfile, surfQswfile,
+      &                EmPmRfile, surfQfile, surfQnetFile, surfQswFile,
       &                uVelInitFile, vVelInitFile, pSurfInitFile,
-      &                dQdTfile
+      &                dQdTfile, ploadFile,
+      &                eosType, pickupSuff,
+      &                mdsioLocalDir
        CHARACTER*(5) checkPtSuff(maxNoChkptLev)
        CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile
        CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile
-Line 88 
 C                        get buoyancy.
+Line 95 
 C                        get buoyancy.
        CHARACTER*(MAX_LEN_FNAM) thetaClimFile
        CHARACTER*(MAX_LEN_FNAM) saltClimFile
        CHARACTER*(MAX_LEN_FNAM) surfQfile
-       CHARACTER*(MAX_LEN_FNAM) surfQswfile
+       CHARACTER*(MAX_LEN_FNAM) surfQnetFile
+       CHARACTER*(MAX_LEN_FNAM) surfQswFile
        CHARACTER*(MAX_LEN_FNAM) EmPmRfile
        CHARACTER*(MAX_LEN_FNAM) buoyancyRelation
        CHARACTER*(MAX_LEN_FNAM) uVelInitFile
        CHARACTER*(MAX_LEN_FNAM) vVelInitFile
        CHARACTER*(MAX_LEN_FNAM) pSurfInitFile
        CHARACTER*(MAX_LEN_FNAM) dQdTfile
+       CHARACTER*(MAX_LEN_FNAM) ploadFile
+       CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir
+       CHARACTER*(6) eosType
+       CHARACTER*(10) pickupSuff
  C--   COMMON /PARM_I/ Integer valued parameters used by the model.
  C     cg2dMaxIters        :: Maximum number of iterations in the
  C                           two-dimensional con. grad solver.
  C     cg2dChkResFreq      :: Frequency with which to check residual
  C                           in con. grad solver.
+ C     cg2dPreCondFreq     :: Frequency for updating cg2d preconditioner
+ C                            (non-linear free-surf.)
  C     cg3dMaxIters        :: Maximum number of iterations in the
  C                           three-dimensional con. grad solver.
  C     cg3dChkResFreq      :: Frequency with which to check residual
-Line 115 
 C     readBinaryPrec      :: Precision u
+Line 129 
 C     readBinaryPrec      :: Precision u
  C     nCheckLev           :: Holds current checkpoint level
  C     nonlinFreeSurf      :: option related to non-linear free surface
  C                           =0 Linear free surface ; >0 Non-linear
+ C     select_rStar        :: option related to r* vertical coordinate
+ C                           =0 (default) use r coord. ; > 0 use r*
+ C     tempAdvScheme       :: Temp. Horiz.Advection scheme selector
+ C     tempVertAdvScheme   :: Temp. Vert. Advection scheme selector
+ C     saltAdvScheme       :: Salt. Horiz.advection scheme selector
+ C     saltVertAdvScheme   :: Salt. Vert. Advection scheme selector
+ C     debugLevel          :: debug level selector: higher -> more writing
+ C     mon_iotype          :: flag for monitor output (MNC vs. STDOUT)
        COMMON /PARM_I/
       &        cg2dMaxIters,
-      &        cg2dChkResFreq,
+      &        cg2dChkResFreq, cg2dPreCondFreq,
       &        cg3dMaxIters,
       &        cg3dChkResFreq,
       &        nIter0, nTimeSteps, nEndIter,
       &        numStepsPerPickup,
       &        writeStatePrec, nCheckLev,
       &        writeBinaryPrec, readBinaryPrec,
-      &        nonlinFreeSurf,
+      &        nonlinFreeSurf, select_rStar,
-      &        zonal_filt_sinpow, zonal_filt_cospow,
+      &        tempAdvScheme, tempVertAdvScheme,
-      &        tempAdvScheme, saltAdvScheme, tracerAdvScheme
+      &        saltAdvScheme, saltVertAdvScheme,
+      &        tracerAdvScheme,
+      &        debugLevel,
+      &        mon_iotype
        INTEGER cg2dMaxIters
        INTEGER cg2dChkResFreq
+       INTEGER cg2dPreCondFreq
        INTEGER cg3dMaxIters
        INTEGER cg3dChkResFreq
        INTEGER nIter0
-Line 141 
 C                           =0 Linear fr
+Line 167 
 C                           =0 Linear fr
        INTEGER readBinaryPrec
        INTEGER nCheckLev
        INTEGER nonlinFreeSurf
-       INTEGER zonal_filt_sinpow
+       INTEGER select_rStar
-       INTEGER zonal_filt_cospow
+       INTEGER tempAdvScheme, tempVertAdvScheme
-       INTEGER tempAdvScheme
+       INTEGER saltAdvScheme, saltVertAdvScheme
-       INTEGER saltAdvScheme
        INTEGER tracerAdvScheme
+       INTEGER debugLevel
+       INTEGER mon_iotype
+ C
+       INTEGER debLevZero
+       PARAMETER(debLevZero=0)
+       INTEGER debLevA
+       PARAMETER(debLevA=1)
+       INTEGER debLevB
+       PARAMETER(debLevB=2)
  C--   COMMON /PARM_L/ Logical valued parameters used by the model.
  C     usingCartesianGrid :: If TRUE grid generation will be in a cartesian
  C                          coordinate frame.
  C     usingSphericalPolarGrid :: If TRUE grid generation will be in a
  C                               spherical polar frame.
+ C     usingCylindricalGrid :: If TRUE grid generation will be Cylindrical
  C     no_slip_sides :: Impose "no-slip" at lateral boundaries.
  C     no_slip_bottom :: Impose "no-slip" at bottom boundary.
  C     staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V
-Line 163 
 C     momPressureForcing :: Flag which t
+Line 199 
 C     momPressureForcing :: Flag which t
  C                          on and off.
  C     metricTerms   :: Flag which turns metric terms on or off.
  C     usingSphericalPolarMTerms :: If TRUE use spherical polar metric terms.
+ C     useNHMTerms :: If TRUE use non-hydrostatic metric terms.
  C     useCoriolis   :: Flag which turns the coriolis terms on and off.
  C     tempDiffusion :: Flag which turns diffusion of temperature on
  C                     and off.
-Line 170 
 C     tempAdvection :: Flag which turns
+Line 207 
 C     tempAdvection :: Flag which turns
  C                     and off.
  C     tempForcing   :: Flag which turns external forcing of temperature on
  C                     and off.
- C     saltDiffusion :: Flag which turns diffusion of salinit on
+ C     saltDiffusion :: Flag which turns diffusion of salinity on
  C                     and off.
- C     saltAdvection :: Flag which turns advection of salinit on
+ C     saltAdvection :: Flag which turns advection of salinity on
  C                     and off.
- C     saltForcing   :: Flag which turns external forcing of salinit on
+ C     saltForcing   :: Flag which turns external forcing of salinity on
  C                     and off.
+ C     useRealFreshWaterFlux :: if True (=Natural BCS), treats P+R-E flux
+ C                         as a real Fresh Water (=> changes the Sea Level)
+ C                         if F, converts P+R-E to salt flux (no SL effect)
  C     rigidLid            :: Set to true to use rigid lid
  C     implicitFreeSurface :: Set to true to use implcit free surface
  C     exactConserv        :: Set to true to conserve exactly the total Volume
-Line 188 
 C     tr1Stepping   :: Turns passive tra
+Line 228 
 C     tr1Stepping   :: Turns passive tra
  C     useConstantF  :: Coriolis parameter set to f0
  C     useBetaPlaneF :: Coriolis parameter set to f0 + beta.y
  C     useSphereF    :: Coriolis parameter set to 2.omega.sin(phi)
+ C     useCDscheme   :: use CD-scheme to calculate Coriolis terms.
+ C     useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986)
+ C     useJamartMomAdv :: Use wet-point method for V.I. non-linear term
+ C     SadournyCoriolis :: use the enstrophy conserving scheme by Sadourny
+ C     upwindVorticity :: bias interpolation of vorticity in the Coriolis term
+ C     highOrderVorticity :: use 3rd/4th order interp. of vorticity in Coriolis
+ C     useAbsVorticity :: work with f+zeta in Coriolis terms
  C     implicitDiffusion :: Turns implicit vertical diffusion on
  C     implicitViscosity :: Turns implicit vertical viscosity on
+ C     tempImplVertAdv :: Turns on implicit vertical advection for Temperature
+ C     saltImplVertAdv :: Turns on implicit vertical advection for Salinity
+ C     momImplVertAdv  :: Turns on implicit vertical advection for Momentum
+ C     multiDimAdvection :: Flag that enable multi-dimension advection
+ C     useMultiDimAdvec  :: True if multi-dim advection is used at least once
+ C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution
+ C                      out off Adams-Bashforth time stepping.
  C     doThetaClimRelax :: Set true if relaxation to temperature
  C                        climatology is required.
  C     doSaltClimRelax  :: Set true if relaxation to salinity
  C                        climatology is required.
  C     periodicExternalForcing :: Set true if forcing is time-dependant
  C     usingPCoords     :: Set to indicate that we are working in pressure
- C                        coords.
+ C                        coords. (jmc: is it still used ?)
  C     usingZCoords     :: Set to indicate that we are working in height
- C                        coords.
+ C                        coords. (jmc: is it still used ?)
+ C     useDynP_inEos_Zc :: use the dynamical pressure in EOS (with Z-coord.)
+ C                         this requires specific code for restart & exchange
+ C     setCenterDr    :: set cell Center depth and put Interface at the middle
  C     nonHydrostatic :: Using non-hydrostatic terms
+ C     quasiHydrostatic :: Using non-hydrostatic terms in hydrostatic algorithm
  C     globalFiles    :: Selects between "global" and "tiled" files
- C     allowFreezing  :: Allows water to freeze and form ice
+ C     useSingleCpuIO :: On SGI platforms, option globalFiles is either
+ C                       slow (f77) or does not work (f90).  When
+ C                       useSingleCpuIO is set, mdsio_writefield.F
+ C                       outputs from master mpi process only.
+ C     allowFreezing  :: Allows surface water to freeze and form ice
+ C     useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12)
  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)
        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
-      & usingCurvilinearGrid,
+      & usingCurvilinearGrid, usingCylindricalGrid,
       & no_slip_sides,no_slip_bottom,
       & staggerTimeStep,
       & momViscosity, momAdvection, momForcing, useCoriolis,
       & momPressureForcing, vectorInvariantMomentum,
       & tempDiffusion, tempAdvection, tempForcing,
       & saltDiffusion, saltAdvection, saltForcing,
+      & useRealFreshWaterFlux,
       & rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf,
       & momStepping, tempStepping, saltStepping, tr1Stepping,
-      & metricTerms, usingSphericalPolarMTerms,
+      & metricTerms, usingSphericalPolarMTerms, useNHMTerms,
       & useConstantF, useBetaPlaneF, useSphereF,
+      & useCDscheme,
+      & useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv,
+      & SadournyCoriolis, upwindVorticity, highOrderVorticity,
+      & useAbsVorticity,
       & implicitDiffusion, implicitViscosity,
+      & tempImplVertAdv, saltImplVertAdv, momImplVertAdv,
+      & multiDimAdvection, useMultiDimAdvec, forcing_In_AB,
       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,
-      & periodicExternalForcing, usingPCoords, usingZCoords,
+      & periodicExternalForcing,
-      & nonHydrostatic, globalFiles,
+      & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,
-      & allowFreezing, groundAtK1,
+      & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,
-      & usePickupBeforeC35, debugMode,
+      & allowFreezing, useOldFreezing, groundAtK1,
-      & readPickupWithTracer, writePickupWithTracer,
+      & usePickupBeforeC35, usePickupBeforeC54, debugMode,
-      & multiDimAdvection, useEnergyConservingCoriolis
+      & readPickupWithTracer, writePickupWithTracer
        LOGICAL usingCartesianGrid
        LOGICAL usingSphericalPolarGrid
+       LOGICAL usingCylindricalGrid
        LOGICAL usingCurvilinearGrid
        LOGICAL usingSphericalPolarMTerms
+       LOGICAL useNHMTerms
        LOGICAL no_slip_sides
        LOGICAL no_slip_bottom
        LOGICAL staggerTimeStep
-Line 242 
 C     groundAtK1  :: put the surface(k=1
+Line 314 
 C     groundAtK1  :: put the surface(k=1
        LOGICAL saltDiffusion
        LOGICAL saltAdvection
        LOGICAL saltForcing
+       LOGICAL useRealFreshWaterFlux
        LOGICAL rigidLid
        LOGICAL implicitFreeSurface
        LOGICAL exactConserv
-Line 254 
 C     groundAtK1  :: put the surface(k=1
+Line 327 
 C     groundAtK1  :: put the surface(k=1
        LOGICAL useConstantF
        LOGICAL useBetaPlaneF
        LOGICAL useSphereF
+       LOGICAL useCDscheme
+       LOGICAL useEnergyConservingCoriolis
+       LOGICAL useJamartWetPoints
+       LOGICAL useJamartMomAdv
+       LOGICAL SadournyCoriolis
+       LOGICAL upwindVorticity
+       LOGICAL highOrderVorticity
+       LOGICAL useAbsVorticity
        LOGICAL implicitDiffusion
        LOGICAL implicitViscosity
+       LOGICAL tempImplVertAdv
+       LOGICAL saltImplVertAdv
+       LOGICAL momImplVertAdv
+       LOGICAL multiDimAdvection
+       LOGICAL useMultiDimAdvec
+       LOGICAL forcing_In_AB
        LOGICAL doThetaClimRelax
        LOGICAL doSaltClimRelax
        LOGICAL doTr1ClimRelax
        LOGICAL periodicExternalForcing
        LOGICAL usingPCoords
        LOGICAL usingZCoords
+       LOGICAL useDynP_inEos_Zc
+       LOGICAL setCenterDr
        LOGICAL nonHydrostatic
+       LOGICAL quasiHydrostatic
        LOGICAL globalFiles
+       LOGICAL useSingleCpuIO
        LOGICAL allowFreezing
+       LOGICAL useOldFreezing
        LOGICAL groundAtK1
        LOGICAL usePickupBeforeC35
+       LOGICAL usePickupBeforeC54
        LOGICAL debugMode
        LOGICAL readPickupWithTracer
        LOGICAL writePickupWithTracer
-       LOGICAL multiDimAdvection
-       LOGICAL useEnergyConservingCoriolis
  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.
- C     gg2dTargetResidual
+ C     cg2dTargetResidual
  C          :: Target residual for cg2d solver; no unit (RHS normalisation)
  C     cg2dTargetResWunit
  C          :: Target residual for cg2d solver; W unit (No RHS normalisation)
-Line 294 
 C           number of iterations for con
+Line 385 
 C           number of iterations for con
  C           drop form 192 -> 134! Need to investigate this further!
  C           For now I have introduced a parameter cg2dpcOffDFac which
  C           defaults to 0.51 but can be set at runtime.
- C     delP      :: Vertical grid spacing ( Pa ).
- C     delZ      :: Vertical grid spacing ( m  ).
  C     delR      :: Vertical grid spacing ( units of r ).
+ C     delRc     :: Vertical grid spacing between cell centers (r unit).
  C     delX      :: Separation between cell faces (m) or (deg), depending
  C     delY        on input flags.
  C     gravity   :: Accel. due to gravity ( m/s^2 )
  C     recip_gravity and its inverse
  C     gBaro     :: Accel. due to gravity used in barotropic equation ( m/s^2 )
- C     ronil     :: Reference density
+ C     rhoNil    :: Reference density for the linear equation of state
  C     rhoConst  :: Vertically constant reference density
+ C     rhoConstFresh :: Constant reference density for fresh water (rain)
  C     startTime :: Start time for model ( s )
  C     phiMin    :: Latitude of southern most cell face.
  C     thetaMin  :: Longitude of western most cell face (this
-Line 315 
 C     f0        :: Reference coriolis pa
+Line 406 
 C     f0        :: Reference coriolis pa
  C                 ( Southern edge f for beta plane )
  C     beta      :: df/dy ( s^-1.m^-1 )
  C     omega     :: Angular velocity ( rad/s )
+ C     rotationPeriod :: Rotation period (s) (= 2.pi/omega)
  C     viscAh    :: Eddy viscosity coeff. for mixing of
  C                 momentum laterally ( m^2/s )
- C     viscAz    :: Eddy viscosity coeff. for mixing of
- C                 momentum vertically ( m^2/s )
- C     viscAp    :: Eddy viscosity coeff. for mixing of
- C                 momentum vertically ( Pa^2/s )
  C     viscAr    :: Eddy viscosity coeff. for mixing of
  C                 momentum vertically ( units of r^2/s )
  C     viscA4    :: Biharmonic viscosity coeff. for mixing of
  C                 momentum laterally ( m^4/s )
+ C     viscC2leith :: Leith non-dimensional viscosity factor
+ C     viscAhMax :: Maximum eddy viscosity coeff. for mixing of
+ C                 momentum laterally ( m^2/s )
+ C     viscA4Max :: Maximum biharmonic viscosity coeff. for mixing of
+ C                 momentum laterally ( m^4/s )
+ C     viscAhGrid:: non-dimensional grid-size dependent viscosity
+ C     viscA4Grid:: non-dimensional grid-size dependent bi-harmonic viscosity
+ C     viscC4leith :: Leith non-dimensional viscosity factor
  C     diffKhT   :: Laplacian diffusion coeff. for mixing of
  C                 heat laterally ( m^2/s )
- C     diffKzT   :: Laplacian diffusion coeff. for mixing of
- C                 heat vertically ( m^2/s )
- C     diffKpT   :: Laplacian diffusion coeff. for mixing of
- C                 heat vertically ( Pa^2/s )
  C     diffKrT   :: Laplacian diffusion coeff. for mixing of
  C                 heat vertically ( units of r^2/s )
  C     diffK4T   :: Biharmonic diffusion coeff. for mixing of
  C                 heat laterally ( m^4/s )
  C     diffKhS  ::  Laplacian diffusion coeff. for mixing of
  C                 salt laterally ( m^2/s )
- C     diffKzS   :: Laplacian diffusion coeff. for mixing of
- C                 salt vertically ( m^2/s )
- C     diffKpS   :: Laplacian diffusion coeff. for mixing of
- C                 salt vertically ( Pa^2/s )
  C     diffKrS   :: Laplacian diffusion coeff. for mixing of
  C                 salt vertically ( units of r^2/s )
  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of
  C                 salt laterally ( m^4/s )
+ C     diffKrBL79surf :: T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979
+ C     diffKrBL79deep :: T/S deep diffusivity (m^2/s) Bryan and Lewis, 1979
+ C     diffKrBL79scl  :: depth scale for arctan fn (m) Bryan and Lewis, 1979
+ C     diffKrBL79Ho   :: depth offset for arctan fn (m) Bryan and Lewis, 1979
  C     deltaT    :: Default timestep ( s )
  C     deltaTClock  :: Timestep used as model "clock". This determines the
  C                    IO frequencies and is used in tagging output. It can
-Line 354 
 C                    Frequency of checkp
+Line 446 
 C                    Frequency of checkp
  C                    are referenced to this clock. ( s )
  C     deltaTMom    :: Timestep for momemtum equations ( s )
  C     deltaTtracer :: Timestep for tracer equations ( s )
+ C     deltaTfreesurf :: Timestep for free-surface equation ( s )
  C     freesurfFac  :: Parameter to turn implicit free surface term on or off
  C                    freesurfac = 1. uses implicit free surface
  C                    freesurfac = 0. uses rigid lid
-Line 386 
 C     mtFacMom      :: Metric terms trac
+Line 479 
 C     mtFacMom      :: Metric terms trac
  C     cosPower      :: Power of cosine of latitude to multiply viscosity
  C     cAdjFreq      :: Frequency of convective adjustment
  C
- C     taveFreq      :: Frequency with which time-averaged model state is written to
+ C     taveFreq      :: Frequency with which time-averaged model state
- C                     post-processing files ( s ).
+ C                      is written to post-processing files ( s ).
+ C     tave_lastIter :: (for state variable only) fraction of the last time
+ C                      step (of each taveFreq period) put in the time average.
+ C                      (fraction for 1rst iter = 1 - tave_lastIter)
  C     tauThetaClimRelax :: Relaxation to climatology time scale ( s ).
  C     lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ).
  C     tauSaltClimRelax :: Relaxation to climatology time scale ( s ).
  C     lambdaSaltClimRelax :: Inverse time scale for relaxation ( 1/s ).
+ C     latBandClimRelax :: latitude band where Relaxation to Clim. is applied,
+ C                         i.e. where |yC| <= latBandClimRelax
  C     externForcingPeriod :: Is the period of which forcing varies (eg. 1 month)
  C     externForcingCycle :: Is the repeat time of the forcing (eg. 1 year)
  C                          (note: externForcingCycle must be an integer
  C                           number times externForcingPeriod)
+ C     convertFW2Salt :: salinity, used to convert Fresh-Water Flux to Salt Flux
+ C                       (use model surface (local) value if set to -1)
+ C     temp_EvPrRn :: temperature of Rain & Evap.
+ C     salt_EvPrRn :: salinity of Rain & Evap.
+ C     trac_EvPrRn :: tracer concentration in Rain & Evap.
+ C        (notes: a) tracer content of Rain/Evap only used if both
+ C                     NonLin_FrSurf & useRealFreshWater are set.
+ C                b) use model surface (local) value if set to UNSET_RL)
  C     horiVertRatio      :: Ratio on units in vertical to units in horizontal.
  C     recip_horiVertRatio  ( 1 if horiz in m and vertical in m ).
  C                          ( g*rho if horiz in m and vertical in Pa ).
- C     latFFTFiltLo       :: Low latitude for FFT filtering of latitude
- C                          circles ( see filter*.F )
  C     Ro_SeaLevel        :: standard position of Sea-Level in "R" coordinate, used as
  C                          starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel)
  C     bottomDragLinear   :: Drag coefficient built in to core dynamics
  C      --"-"--  Quadratic  ( linear: 1/s, quadratic: 1/m )
        COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,
       & cg2dpcOffDFac, cg3dTargetResidual,
-      & delP, delZ, delR, delX, delY,
+      & delR, delRc, delX, delY,
-      & deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime,
+      & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,
+      & abeps, startTime,
       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,
-      & fCori, fCoriG,
+      & fCori, fCoriG, fCoriCos,
-      & viscAh,  viscAz,  viscA4,  viscAr, viscAstrain, viscAtension,
+      & viscAh,  viscAhMax, viscAhGrid, viscC2leith,
-      & diffKhT, diffKzT, diffK4T, diffKrT,
+      & viscA4,  viscA4Max, viscA4Grid, viscC4leith,
-      & diffKhS, diffKzS, diffK4S, diffKrS,
+      & viscAr, viscAstrain, viscAtension,
+      & diffKhT, diffK4T, diffKrT,
+      & diffKhS, diffK4S, diffKrS,
+      & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
       & hFacMin, hFacMinDz, hFacInf, hFacSup,
       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
-      & recip_rhoConst, rhoConst, tRef, sRef,
+      & recip_rhoConst, rhoConst,
-      & endTime, chkPtFreq, pchkPtFreq, dumpFreq,
+      & rhoConstFresh, convertEmP2rUnit, tRef, sRef,
-      & diagFreq, taveFreq, monitorFreq,
+      & endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq,
+      & diagFreq, taveFreq, tave_lastIter, monitorFreq,
       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,
-      & cosPower, cAdjFreq, omega,
+      & cosPower, cAdjFreq, omega, rotationPeriod,
       & tauThetaClimRelax, lambdaThetaClimRelax,
       & tauSaltClimRelax, lambdaSaltClimRelax,
-      & tauTr1ClimRelax, lambdaTr1ClimRelax,
+      & tauTr1ClimRelax, lambdaTr1ClimRelax, latBandClimRelax,
       & externForcingCycle, externForcingPeriod,
-      & viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp,
+      & convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
-      & theta_S, specVol_S, horiVertRatio, recip_horiVertRatio,
+      & hFacMinDr, hFacMinDp,
-      & latFFTFiltLo, ivdc_kappa, Ro_SeaLevel, zonal_filt_lat,
+      & horiVertRatio, recip_horiVertRatio,
-      & bottomDragLinear,bottomDragQuadratic
+      & ivdc_kappa, Ro_SeaLevel,
+      & bottomDragLinear,bottomDragQuadratic,
+      & tCyl
        _RL cg2dTargetResidual
        _RL cg2dTargetResWunit
        _RL cg3dTargetResidual
        _RL cg2dpcOffDFac
-       _RL delZ(Nr)
-       _RL delP(Nr)
        _RL delR(Nr)
+       _RL delRc(Nr+1)
        _RL delX(Nx)
        _RL delY(Ny)
        _RL deltaT
        _RL deltaTClock
        _RL deltaTmom
        _RL deltaTtracer
+       _RL deltaTfreesurf
        _RL abeps
        _RL phiMin
        _RL thetaMin
-Line 461 
 C      --"-"--  Quadratic  ( linear: 1/s
+Line 572 
 C      --"-"--  Quadratic  ( linear: 1/s
        _RL hFacSup
        _RL beta
        _RL viscAh
+       _RL viscAhMax
+       _RL viscAhGrid
+       _RL viscC2leith
        _RL viscAstrain
        _RL viscAtension
-       _RL viscAz
-       _RL viscAp
        _RL viscAr
        _RL viscA4
+       _RL viscA4Max
+       _RL viscA4Grid
+       _RL viscC4leith
        _RL diffKhT
        _RL diffKrT
-       _RL diffKzT
-       _RL diffKpT
        _RL diffK4T
        _RL diffKhS
        _RL diffKrS
-       _RL diffKzS
-       _RL diffKpS
        _RL diffK4S
+       _RL diffKrBL79surf
+       _RL diffKrBL79deep
+       _RL diffKrBL79scl
+       _RL diffKrBL79Ho
        _RL delt
        _RL tauCD
        _RL rCD
-Line 487 
 C      --"-"--  Quadratic  ( linear: 1/s
+Line 602 
 C      --"-"--  Quadratic  ( linear: 1/s
        _RL recip_rhonil
        _RL rhoConst
        _RL recip_rhoConst
-       _RL specVol_S(Nr)
+       _RL rhoConstFresh
+       _RL convertEmP2rUnit
        _RL tRef(Nr)
-       _RL theta_S(Nr)
        _RL sRef(Nr)
        _RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
        _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
+       _RS fCoriCos(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
        _RL startTime
        _RL endTime
        _RL chkPtFreq
        _RL pChkPtFreq
        _RL dumpFreq
+       _RL adjDumpFreq
        _RL diagFreq
        _RL taveFreq
+       _RL tave_lastIter
        _RL monitorFreq
        _RL afFacMom
        _RL vfFacMom
-Line 510 
 C      --"-"--  Quadratic  ( linear: 1/s
+Line 628 
 C      --"-"--  Quadratic  ( linear: 1/s
        _RL cosPower
        _RL cAdjFreq
        _RL omega
+       _RL rotationPeriod
        _RL tauThetaClimRelax
        _RL lambdaThetaClimRelax
        _RL tauSaltClimRelax
        _RL lambdaSaltClimRelax
        _RL tauTr1ClimRelax
        _RL lambdaTr1ClimRelax
+       _RL latBandClimRelax
        _RL externForcingCycle
        _RL externForcingPeriod
+       _RL convertFW2Salt
+       _RL temp_EvPrRn
+       _RL salt_EvPrRn
+       _RL trac_EvPrRn
        _RL horiVertRatio
        _RL recip_horiVertRatio
-       _RL latFFTFiltLo
        _RL ivdc_kappa
        _RL Ro_SeaLevel
-       _RL zonal_filt_lat
        _RL bottomDragLinear
        _RL bottomDragQuadratic
+       _RL tCyl
-       COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp,
+ C--   COMMON /PARM_A/ Thermodynamics constants ?
-      &                Lamba_theta
+       COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp
        _RL HeatCapacity_Cp
-       _RL Lamba_theta
        _RL recip_Cp
- C Equation of State (polynomial coeffients)
+ C--   COMMON /PARM_ATM/ Atmospheric physical parameters (Ideal Gas EOS, ...)
-       COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
+ C     celsius2K :: convert centigrade (Celsius) degree to Kelvin
-       _RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1)
+ C     atm_Po    :: standard reference pressure
- C Linear equation of state
+ C     atm_Cp    :: specific heat (Cp) of the (dry) air at constant pressure
- C     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).
+ C     atm_Rd    :: gas constant for dry air
- C     sBeta     :: Linear EOS haline contraction coefficient.
-       COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType
-       _RL tAlpha
-       _RL sBeta
-       character*(6) eosType
- C Atmospheric physical parameters (Ideal Gas EOS, ...)
- C     atm_po    :: standard reference pressure
- C     atm_cp    :: specific heat (Cp) of the (dry) air at constant pressure
  C     atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS)
- C     Integr_GeoPot :: option to select the way we integrate the geopotential
+ C     atm_Rq    :: water vapour specific volume anomaly relative to dry air
+ C                  (e.g. typical value = (29/18 -1) 10^-3 with q [g/kg])
+ C     integr_GeoPot :: option to select the way we integrate the geopotential
  C                     (still a subject of discussions ...)
-       COMMON /PARM_ATM/ atm_cp, atm_kappa, atm_po,
+ C     selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is
-      &                  Integr_GeoPot
+ C             derived from the orography. Implemented: 0,1 (see INI_P_GROUND)
-       _RL atm_cp, atm_kappa, atm_po
+       COMMON /PARM_ATM/
-       INTEGER Integr_GeoPot
+      &            celsius2K,
+      &            atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po,
+      &            integr_GeoPot, selectFindRoSurf
+       _RL celsius2K
+       _RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq
+       INTEGER integr_GeoPot, selectFindRoSurf
  C Logical flags for selecting packages
+       LOGICAL usePP81
+       LOGICAL useMY82
        LOGICAL useKPP
        LOGICAL useGMRedi
        LOGICAL useOBCS
        LOGICAL useAIM
+       LOGICAL useLand
        LOGICAL useGrdchk
        LOGICAL useECCO
        LOGICAL useSHAP_FILT
+       LOGICAL useZONAL_FILT
        LOGICAL useFLT
+       LOGICAL usePTRACERS
+       LOGICAL useSBO
+       LOGICAL useSEAICE
+       LOGICAL useBulkForce
+       LOGICAL useThSIce
+       LOGICAL usefizhi
+       LOGICAL usegridalt
+       LOGICAL usediagnostics
+       LOGICAL useEBM
        COMMON /PARM_PACKAGES/
-      &        useKPP, useGMRedi, useOBCS, useAIM, useECCO,
+      &        useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,
-      &        useSHAP_FILT, useGrdchk, useFLT
+      &        useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT,
+      &        usePTRACERS,  useSBO, useSEAICE, useThSIce, useBulkForce,
+      &        usefizhi,  usegridalt, usediagnostics, useEBM,
+      &        usePP81, useMY82
+ C     Run-time flags for early-initialization of MNC
+       LOGICAL
+      &     useMNC,
+      &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
+      &     mnc_echo_gvtypes, mnc_pickup_write, mnc_pickup_read,
+      &     mnc_use_for_mon
+       CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
+       CHARACTER*(MAX_LEN_FNAM) mnc_indir_str
+       CHARACTER*(MAX_LEN_FNAM) the_run_name
+       COMMON /PARM_MNC/
+      &     useMNC,
+      &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
+      &     mnc_echo_gvtypes, mnc_pickup_write, mnc_pickup_read,
+      &     mnc_use_for_mon,
+      &     mnc_outdir_str, mnc_indir_str,
+      &     the_run_name
+ CEH3 ;;; Local Variables: ***
+ CEH3 ;;; mode:fortran ***
+ CEH3 ;;; End: ***

 Legend:



Removed from v.1.65
 


changed lines


 
Added in v.1.123
 Legend:



Removed from v.1.65
 


changed lines


 
Added in v.1.123
-Removed from v.1.65
+Added in v.1.123

	ViewVC Help
Powered by ViewVC 1.1.22