/[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.99 by molod, Mon Dec 15 23:00:43 2003 UTC revision 1.119 by jmc, Fri Jul 9 22:31:16 2004 UTC
# Line 110  C     cg2dMaxIters        :: Maximum num Line 110  C     cg2dMaxIters        :: Maximum num
110  C                           two-dimensional con. grad solver.  C                           two-dimensional con. grad solver.
111  C     cg2dChkResFreq      :: Frequency with which to check residual  C     cg2dChkResFreq      :: Frequency with which to check residual
112  C                           in con. grad solver.  C                           in con. grad solver.
113    C     cg2dPreCondFreq     :: Frequency for updating cg2d preconditioner
114    C                            (non-linear free-surf.)
115  C     cg3dMaxIters        :: Maximum number of iterations in the  C     cg3dMaxIters        :: Maximum number of iterations in the
116  C                           three-dimensional con. grad solver.  C                           three-dimensional con. grad solver.
117  C     cg3dChkResFreq      :: Frequency with which to check residual  C     cg3dChkResFreq      :: Frequency with which to check residual
# Line 126  C     nonlinFreeSurf      :: option rela Line 128  C     nonlinFreeSurf      :: option rela
128  C                           =0 Linear free surface ; >0 Non-linear  C                           =0 Linear free surface ; >0 Non-linear
129  C     select_rStar        :: option related to r* vertical coordinate  C     select_rStar        :: option related to r* vertical coordinate
130  C                           =0 (default) use r coord. ; > 0 use r*  C                           =0 (default) use r coord. ; > 0 use r*
131    C     tempAdvScheme       :: Temp. Horiz.Advection scheme selector
132    C     tempVertAdvScheme   :: Temp. Vert. Advection scheme selector
133    C     saltAdvScheme       :: Salt. Horiz.advection scheme selector
134    C     saltVertAdvScheme   :: Salt. Vert. Advection scheme selector
135    C     debugLevel          :: debug level selector: higher -> more writing
136    
137        COMMON /PARM_I/        COMMON /PARM_I/
138       &        cg2dMaxIters,       &        cg2dMaxIters,
139       &        cg2dChkResFreq,       &        cg2dChkResFreq, cg2dPreCondFreq,
140       &        cg3dMaxIters,       &        cg3dMaxIters,
141       &        cg3dChkResFreq,       &        cg3dChkResFreq,
142       &        nIter0, nTimeSteps, nEndIter,       &        nIter0, nTimeSteps, nEndIter,
# Line 137  C                           =0 (default) Line 144  C                           =0 (default)
144       &        writeStatePrec, nCheckLev,       &        writeStatePrec, nCheckLev,
145       &        writeBinaryPrec, readBinaryPrec,       &        writeBinaryPrec, readBinaryPrec,
146       &        nonlinFreeSurf, select_rStar,       &        nonlinFreeSurf, select_rStar,
147       &        tempAdvScheme, saltAdvScheme, tracerAdvScheme,       &        tempAdvScheme, tempVertAdvScheme,
148         &        saltAdvScheme, saltVertAdvScheme,
149         &        tracerAdvScheme,
150       &        debugLevel       &        debugLevel
151        INTEGER cg2dMaxIters        INTEGER cg2dMaxIters
152        INTEGER cg2dChkResFreq        INTEGER cg2dChkResFreq
153          INTEGER cg2dPreCondFreq
154        INTEGER cg3dMaxIters        INTEGER cg3dMaxIters
155        INTEGER cg3dChkResFreq        INTEGER cg3dChkResFreq
156        INTEGER nIter0        INTEGER nIter0
# Line 153  C                           =0 (default) Line 163  C                           =0 (default)
163        INTEGER nCheckLev        INTEGER nCheckLev
164        INTEGER nonlinFreeSurf        INTEGER nonlinFreeSurf
165        INTEGER select_rStar        INTEGER select_rStar
166        INTEGER tempAdvScheme        INTEGER tempAdvScheme, tempVertAdvScheme
167        INTEGER saltAdvScheme        INTEGER saltAdvScheme, saltVertAdvScheme
168        INTEGER tracerAdvScheme        INTEGER tracerAdvScheme
169        INTEGER debugLevel        INTEGER debugLevel
170    
# Line 171  C     usingCartesianGrid :: If TRUE grid Line 181  C     usingCartesianGrid :: If TRUE grid
181  C                          coordinate frame.  C                          coordinate frame.
182  C     usingSphericalPolarGrid :: If TRUE grid generation will be in a  C     usingSphericalPolarGrid :: If TRUE grid generation will be in a
183  C                               spherical polar frame.  C                               spherical polar frame.
184    C     usingCylindricalGrid :: If TRUE grid generation will be Cylindrical
185  C     no_slip_sides :: Impose "no-slip" at lateral boundaries.  C     no_slip_sides :: Impose "no-slip" at lateral boundaries.
186  C     no_slip_bottom :: Impose "no-slip" at bottom boundary.  C     no_slip_bottom :: Impose "no-slip" at bottom boundary.
187  C     staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V  C     staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V
# Line 213  C     useBetaPlaneF :: Coriolis paramete Line 224  C     useBetaPlaneF :: Coriolis paramete
224  C     useSphereF    :: Coriolis parameter set to 2.omega.sin(phi)  C     useSphereF    :: Coriolis parameter set to 2.omega.sin(phi)
225  C     useCDscheme   :: use CD-scheme to calculate Coriolis terms.  C     useCDscheme   :: use CD-scheme to calculate Coriolis terms.
226  C     useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986)  C     useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986)
227    C     useJamartMomAdv :: Use wet-point method for V.I. non-linear term
228    C     SadournyCoriolis :: use the enstrophy conserving scheme by Sadourny
229    C     upwindVorticity :: bias interpolation of vorticity in the Coriolis term
230    C     highOrderVorticity :: use 3rd/4th order interp. of vorticity in Coriolis
231    C     useAbsVorticity :: work with f+zeta in Coriolis terms
232  C     implicitDiffusion :: Turns implicit vertical diffusion on  C     implicitDiffusion :: Turns implicit vertical diffusion on
233  C     implicitViscosity :: Turns implicit vertical viscosity on  C     implicitViscosity :: Turns implicit vertical viscosity on
234    C     tempImplVertAdv :: Turns on implicit vertical advection for Temperature
235    C     saltImplVertAdv :: Turns on implicit vertical advection for Salinity
236    C     momImplVertAdv  :: Turns on implicit vertical advection for Momentum
237  C     multiDimAdvection :: Flag that enable multi-dimension advection  C     multiDimAdvection :: Flag that enable multi-dimension advection
238    C     useMultiDimAdvec  :: True if multi-dim advection is used at least once
239  C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution  C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution
240  C                      out off Adams-Bashforth time stepping.  C                      out off Adams-Bashforth time stepping.
241  C     doThetaClimRelax :: Set true if relaxation to temperature  C     doThetaClimRelax :: Set true if relaxation to temperature
# Line 241  C     allowFreezing  :: Allows surface w Line 261  C     allowFreezing  :: Allows surface w
261  C     useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12)  C     useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12)
262  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)
263        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
264       & usingCurvilinearGrid,       & usingCurvilinearGrid, usingCylindricalGrid,
265       & no_slip_sides,no_slip_bottom,       & no_slip_sides,no_slip_bottom,
266       & staggerTimeStep,       & staggerTimeStep,
267       & momViscosity, momAdvection, momForcing, useCoriolis,       & momViscosity, momAdvection, momForcing, useCoriolis,
# Line 254  C     groundAtK1  :: put the surface(k=1 Line 274  C     groundAtK1  :: put the surface(k=1
274       & metricTerms, usingSphericalPolarMTerms, useNHMTerms,       & metricTerms, usingSphericalPolarMTerms, useNHMTerms,
275       & useConstantF, useBetaPlaneF, useSphereF,       & useConstantF, useBetaPlaneF, useSphereF,
276       & useCDscheme,       & useCDscheme,
277       & useEnergyConservingCoriolis, useJamartWetPoints,       & useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv,
278         & SadournyCoriolis, upwindVorticity, highOrderVorticity,
279         & useAbsVorticity,
280       & implicitDiffusion, implicitViscosity,       & implicitDiffusion, implicitViscosity,
281       & multiDimAdvection, forcing_In_AB,       & tempImplVertAdv, saltImplVertAdv, momImplVertAdv,
282         & multiDimAdvection, useMultiDimAdvec, forcing_In_AB,
283       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,
284       & periodicExternalForcing,       & periodicExternalForcing,
285       & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,       & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,
286       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,
287       & allowFreezing, useOldFreezing, groundAtK1,       & allowFreezing, useOldFreezing, groundAtK1,
288       & usePickupBeforeC35, debugMode,       & usePickupBeforeC35, usePickupBeforeC54, debugMode,
289       & readPickupWithTracer, writePickupWithTracer       & readPickupWithTracer, writePickupWithTracer
290        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
291        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
292          LOGICAL usingCylindricalGrid
293        LOGICAL usingCurvilinearGrid        LOGICAL usingCurvilinearGrid
294        LOGICAL usingSphericalPolarMTerms        LOGICAL usingSphericalPolarMTerms
295        LOGICAL useNHMTerms        LOGICAL useNHMTerms
# Line 300  C     groundAtK1  :: put the surface(k=1 Line 324  C     groundAtK1  :: put the surface(k=1
324        LOGICAL useCDscheme        LOGICAL useCDscheme
325        LOGICAL useEnergyConservingCoriolis        LOGICAL useEnergyConservingCoriolis
326        LOGICAL useJamartWetPoints        LOGICAL useJamartWetPoints
327          LOGICAL useJamartMomAdv
328          LOGICAL SadournyCoriolis
329          LOGICAL upwindVorticity
330          LOGICAL highOrderVorticity
331          LOGICAL useAbsVorticity
332        LOGICAL implicitDiffusion        LOGICAL implicitDiffusion
333        LOGICAL implicitViscosity        LOGICAL implicitViscosity
334          LOGICAL tempImplVertAdv
335          LOGICAL saltImplVertAdv
336          LOGICAL momImplVertAdv
337        LOGICAL multiDimAdvection        LOGICAL multiDimAdvection
338          LOGICAL useMultiDimAdvec
339        LOGICAL forcing_In_AB        LOGICAL forcing_In_AB
340        LOGICAL doThetaClimRelax        LOGICAL doThetaClimRelax
341        LOGICAL doSaltClimRelax        LOGICAL doSaltClimRelax
# Line 320  C     groundAtK1  :: put the surface(k=1 Line 353  C     groundAtK1  :: put the surface(k=1
353        LOGICAL useOldFreezing        LOGICAL useOldFreezing
354        LOGICAL groundAtK1        LOGICAL groundAtK1
355        LOGICAL usePickupBeforeC35        LOGICAL usePickupBeforeC35
356          LOGICAL usePickupBeforeC54
357        LOGICAL debugMode        LOGICAL debugMode
358        LOGICAL readPickupWithTracer        LOGICAL readPickupWithTracer
359        LOGICAL writePickupWithTracer        LOGICAL writePickupWithTracer
360    
361  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.  C--   COMMON /PARM_R/ "Real" valued parameters used by the model.
362  C     gg2dTargetResidual  C     cg2dTargetResidual
363  C          :: Target residual for cg2d solver; no unit (RHS normalisation)  C          :: Target residual for cg2d solver; no unit (RHS normalisation)
364  C     cg2dTargetResWunit  C     cg2dTargetResWunit
365  C          :: Target residual for cg2d solver; W unit (No RHS normalisation)  C          :: Target residual for cg2d solver; W unit (No RHS normalisation)
# Line 373  C     viscAr    :: Eddy viscosity coeff. Line 407  C     viscAr    :: Eddy viscosity coeff.
407  C                 momentum vertically ( units of r^2/s )  C                 momentum vertically ( units of r^2/s )
408  C     viscA4    :: Biharmonic viscosity coeff. for mixing of  C     viscA4    :: Biharmonic viscosity coeff. for mixing of
409  C                 momentum laterally ( m^4/s )  C                 momentum laterally ( m^4/s )
410    C     viscC2leith :: Leith non-dimensional viscosity factor
411    C     viscAhMax :: Maximum eddy viscosity coeff. for mixing of
412    C                 momentum laterally ( m^2/s )
413    C     viscA4Max :: Maximum biharmonic viscosity coeff. for mixing of
414    C                 momentum laterally ( m^4/s )
415    C     viscAhGrid:: non-dimensional grid-size dependent viscosity
416    C     viscA4Grid:: non-dimensional grid-size dependent bi-harmonic viscosity
417    C     viscC4leith :: Leith non-dimensional viscosity factor
418  C     diffKhT   :: Laplacian diffusion coeff. for mixing of  C     diffKhT   :: Laplacian diffusion coeff. for mixing of
419  C                 heat laterally ( m^2/s )  C                 heat laterally ( m^2/s )
420  C     diffKrT   :: Laplacian diffusion coeff. for mixing of  C     diffKrT   :: Laplacian diffusion coeff. for mixing of
# Line 385  C     diffKrS   :: Laplacian diffusion c Line 427  C     diffKrS   :: Laplacian diffusion c
427  C                 salt vertically ( units of r^2/s )  C                 salt vertically ( units of r^2/s )
428  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of
429  C                 salt laterally ( m^4/s )  C                 salt laterally ( m^4/s )
430    C     diffKrBL79surf :: T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979
431    C     diffKrBL79deep :: T/S deep diffusivity (m^2/s) Bryan and Lewis, 1979
432    C     diffKrBL79scl  :: depth scale for arctan fn (m) Bryan and Lewis, 1979
433    C     diffKrBL79Ho   :: depth offset for arctan fn (m) Bryan and Lewis, 1979
434  C     deltaT    :: Default timestep ( s )  C     deltaT    :: Default timestep ( s )
435  C     deltaTClock  :: Timestep used as model "clock". This determines the  C     deltaTClock  :: Timestep used as model "clock". This determines the
436  C                    IO frequencies and is used in tagging output. It can  C                    IO frequencies and is used in tagging output. It can
# Line 464  C      --"-"--  Quadratic  ( linear: 1/s Line 510  C      --"-"--  Quadratic  ( linear: 1/s
510       & abeps, startTime,       & abeps, startTime,
511       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,
512       & fCori, fCoriG, fCoriCos,       & fCori, fCoriG, fCoriCos,
513       & viscAh,  viscA4,  viscAr, viscAstrain, viscAtension,       & viscAh,  viscAhMax, viscAhGrid, viscC2leith,
514         & viscA4,  viscA4Max, viscA4Grid, viscC4leith,
515         & viscAr, viscAstrain, viscAtension,
516       & diffKhT, diffK4T, diffKrT,       & diffKhT, diffK4T, diffKrT,
517       & diffKhS, diffK4S, diffKrS,       & diffKhS, diffK4S, diffKrS,
518         & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
519       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
520       & hFacMin, hFacMinDz, hFacInf, hFacSup,       & hFacMin, hFacMinDz, hFacInf, hFacSup,
521       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
522       & recip_rhoConst, rhoConst,       & recip_rhoConst, rhoConst,
523       & rhoConstFresh, convertEmP2rUnit, tRef, sRef,       & rhoConstFresh, convertEmP2rUnit, tRef, sRef,
524       & endTime, chkPtFreq, pchkPtFreq, dumpFreq,       & endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq,
525       & diagFreq, taveFreq, tave_lastIter, monitorFreq,       & diagFreq, taveFreq, tave_lastIter, monitorFreq,
526       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,
527       & cosPower, cAdjFreq, omega, rotationPeriod,       & cosPower, cAdjFreq, omega, rotationPeriod,
# Line 484  C      --"-"--  Quadratic  ( linear: 1/s Line 533  C      --"-"--  Quadratic  ( linear: 1/s
533       & hFacMinDr, hFacMinDp,       & hFacMinDr, hFacMinDp,
534       & horiVertRatio, recip_horiVertRatio,       & horiVertRatio, recip_horiVertRatio,
535       & ivdc_kappa, Ro_SeaLevel,       & ivdc_kappa, Ro_SeaLevel,
536       & bottomDragLinear,bottomDragQuadratic       & bottomDragLinear,bottomDragQuadratic,
537         & tCyl
538    
539        _RL cg2dTargetResidual        _RL cg2dTargetResidual
540        _RL cg2dTargetResWunit        _RL cg2dTargetResWunit
# Line 516  C      --"-"--  Quadratic  ( linear: 1/s Line 566  C      --"-"--  Quadratic  ( linear: 1/s
566        _RL hFacSup        _RL hFacSup
567        _RL beta        _RL beta
568        _RL viscAh        _RL viscAh
569          _RL viscAhMax
570          _RL viscAhGrid
571          _RL viscC2leith
572        _RL viscAstrain        _RL viscAstrain
573        _RL viscAtension        _RL viscAtension
574        _RL viscAr        _RL viscAr
575        _RL viscA4        _RL viscA4
576          _RL viscA4Max
577          _RL viscA4Grid
578          _RL viscC4leith
579        _RL diffKhT        _RL diffKhT
580        _RL diffKrT        _RL diffKrT
581        _RL diffK4T        _RL diffK4T
582        _RL diffKhS        _RL diffKhS
583        _RL diffKrS        _RL diffKrS
584        _RL diffK4S        _RL diffK4S
585          _RL diffKrBL79surf
586          _RL diffKrBL79deep
587          _RL diffKrBL79scl
588          _RL diffKrBL79Ho
589        _RL delt        _RL delt
590        _RL tauCD        _RL tauCD
591        _RL rCD        _RL rCD
# Line 548  C      --"-"--  Quadratic  ( linear: 1/s Line 608  C      --"-"--  Quadratic  ( linear: 1/s
608        _RL chkPtFreq        _RL chkPtFreq
609        _RL pChkPtFreq        _RL pChkPtFreq
610        _RL dumpFreq        _RL dumpFreq
611          _RL adjDumpFreq
612        _RL diagFreq        _RL diagFreq
613        _RL taveFreq        _RL taveFreq
614        _RL tave_lastIter        _RL tave_lastIter
# Line 581  C      --"-"--  Quadratic  ( linear: 1/s Line 642  C      --"-"--  Quadratic  ( linear: 1/s
642        _RL Ro_SeaLevel        _RL Ro_SeaLevel
643        _RL bottomDragLinear        _RL bottomDragLinear
644        _RL bottomDragQuadratic        _RL bottomDragQuadratic
645          _RL tCyl
646    
647  C--   COMMON /PARM_A/ Thermodynamics constants ?  C--   COMMON /PARM_A/ Thermodynamics constants ?
648        COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp        COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp
# Line 625  C Logical flags for selecting packages Line 687  C Logical flags for selecting packages
687        LOGICAL useThSIce        LOGICAL useThSIce
688        LOGICAL usefizhi        LOGICAL usefizhi
689        LOGICAL usegridalt        LOGICAL usegridalt
690          LOGICAL usediagnostics
691          LOGICAL useEBM
692        COMMON /PARM_PACKAGES/        COMMON /PARM_PACKAGES/
693       &        useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,       &        useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,
694       &        useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT,       &        useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT,
695       &        usePTRACERS,  useSBO, useSEAICE,       &        usePTRACERS,  useSBO, useSEAICE, useThSIce, useBulkForce,
696       &        useThSIce, useBulkForce, usefizhi,  usegridalt       &        usefizhi,  usegridalt, usediagnostics, useEBM
697    
698    C     Run-time flags for early-initialization of MNC
699          LOGICAL
700         &     useMNC,
701         &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
702         &     mnc_echo_gvtypes, mnc_pickup_write, mnc_pickup_read,
703         &     mnc_use_for_mon
704          CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
705          CHARACTER*(MAX_LEN_FNAM) mnc_indir_str
706          COMMON /PARM_MNC/
707         &     useMNC,
708         &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
709         &     mnc_echo_gvtypes, mnc_pickup_write, mnc_pickup_read,
710         &     mnc_outdir_str, mnc_indir_str,
711         &     mnc_use_for_mon
712    
713    
714    CEH3 ;;; Local Variables: ***
715    CEH3 ;;; mode:fortran ***
716    CEH3 ;;; End: ***
Legend:
Removed from v.1.99  
changed lines
  Added in v.1.119
  ViewVC Help
Powered by ViewVC 1.1.22