/[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.95 by jmc, Wed Oct 15 22:57:43 2003 UTC revision 1.113 by adcroft, Mon Jun 14 17:48:13 2004 UTC
# Line 213  C     useBetaPlaneF :: Coriolis paramete Line 213  C     useBetaPlaneF :: Coriolis paramete
213  C     useSphereF    :: Coriolis parameter set to 2.omega.sin(phi)  C     useSphereF    :: Coriolis parameter set to 2.omega.sin(phi)
214  C     useCDscheme   :: use CD-scheme to calculate Coriolis terms.  C     useCDscheme   :: use CD-scheme to calculate Coriolis terms.
215  C     useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986)  C     useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986)
216    C     useJamartMomAdv :: Use wet-point method for V.I. non-linear term
217    C     SadournyCoriolis :: use the enstrophy conserving scheme by Sadourny
218    C     upwindVorticity :: bias interpolation of vorticity in the Coriolis term
219    C     highOrderVorticity :: use 3rd/4th order interp. of vorticity in Coriolis
220    C     useAbsVorticity :: work with f+zeta in Coriolis terms
221  C     implicitDiffusion :: Turns implicit vertical diffusion on  C     implicitDiffusion :: Turns implicit vertical diffusion on
222  C     implicitViscosity :: Turns implicit vertical viscosity on  C     implicitViscosity :: Turns implicit vertical viscosity on
223    C     tempImplVertAdv :: Turns on implicit vertical advection for Temperature
224    C     saltImplVertAdv :: Turns on implicit vertical advection for Salinity
225    C     momImplVertAdv  :: Turns on implicit vertical advection for Momentum
226  C     multiDimAdvection :: Flag that enable multi-dimension advection  C     multiDimAdvection :: Flag that enable multi-dimension advection
227  C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution  C     forcing_In_AB :: if False, put forcing (Temp,Salt,Tracers) contribution
228  C                      out off Adams-Bashforth time stepping.  C                      out off Adams-Bashforth time stepping.
# Line 237  C     useSingleCpuIO :: On SGI platforms Line 245  C     useSingleCpuIO :: On SGI platforms
245  C                       slow (f77) or does not work (f90).  When  C                       slow (f77) or does not work (f90).  When
246  C                       useSingleCpuIO is set, mdsio_writefield.F  C                       useSingleCpuIO is set, mdsio_writefield.F
247  C                       outputs from master mpi process only.  C                       outputs from master mpi process only.
248  C     allowFreezing  :: Allows water to freeze and form ice  C     allowFreezing  :: Allows surface water to freeze and form ice
249    C     useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12)
250  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)  C     groundAtK1  :: put the surface(k=1) at the Lower Boundary (=ground)
251        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
252       & usingCurvilinearGrid,       & usingCurvilinearGrid,
# Line 253  C     groundAtK1  :: put the surface(k=1 Line 262  C     groundAtK1  :: put the surface(k=1
262       & metricTerms, usingSphericalPolarMTerms, useNHMTerms,       & metricTerms, usingSphericalPolarMTerms, useNHMTerms,
263       & useConstantF, useBetaPlaneF, useSphereF,       & useConstantF, useBetaPlaneF, useSphereF,
264       & useCDscheme,       & useCDscheme,
265       & useEnergyConservingCoriolis, useJamartWetPoints,       & useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv,
266         & SadournyCoriolis, upwindVorticity, highOrderVorticity,
267         & useAbsVorticity,
268       & implicitDiffusion, implicitViscosity,       & implicitDiffusion, implicitViscosity,
269         & tempImplVertAdv, saltImplVertAdv, momImplVertAdv,
270       & multiDimAdvection, forcing_In_AB,       & multiDimAdvection, forcing_In_AB,
271       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,       & doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax,
272       & periodicExternalForcing,       & periodicExternalForcing,
273       & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,       & usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr,
274       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,
275       & allowFreezing, groundAtK1,       & allowFreezing, useOldFreezing, groundAtK1,
276       & usePickupBeforeC35, debugMode,       & usePickupBeforeC35, debugMode,
277       & readPickupWithTracer, writePickupWithTracer       & readPickupWithTracer, writePickupWithTracer
278        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
# Line 299  C     groundAtK1  :: put the surface(k=1 Line 311  C     groundAtK1  :: put the surface(k=1
311        LOGICAL useCDscheme        LOGICAL useCDscheme
312        LOGICAL useEnergyConservingCoriolis        LOGICAL useEnergyConservingCoriolis
313        LOGICAL useJamartWetPoints        LOGICAL useJamartWetPoints
314          LOGICAL useJamartMomAdv
315          LOGICAL SadournyCoriolis
316          LOGICAL upwindVorticity
317          LOGICAL highOrderVorticity
318          LOGICAL useAbsVorticity
319        LOGICAL implicitDiffusion        LOGICAL implicitDiffusion
320        LOGICAL implicitViscosity        LOGICAL implicitViscosity
321          LOGICAL tempImplVertAdv
322          LOGICAL saltImplVertAdv
323          LOGICAL momImplVertAdv
324        LOGICAL multiDimAdvection        LOGICAL multiDimAdvection
325        LOGICAL forcing_In_AB        LOGICAL forcing_In_AB
326        LOGICAL doThetaClimRelax        LOGICAL doThetaClimRelax
# Line 316  C     groundAtK1  :: put the surface(k=1 Line 336  C     groundAtK1  :: put the surface(k=1
336        LOGICAL globalFiles        LOGICAL globalFiles
337        LOGICAL useSingleCpuIO        LOGICAL useSingleCpuIO
338        LOGICAL allowFreezing        LOGICAL allowFreezing
339          LOGICAL useOldFreezing
340        LOGICAL groundAtK1        LOGICAL groundAtK1
341        LOGICAL usePickupBeforeC35        LOGICAL usePickupBeforeC35
342        LOGICAL debugMode        LOGICAL debugMode
# Line 343  C           number of iterations for con Line 364  C           number of iterations for con
364  C           drop form 192 -> 134! Need to investigate this further!  C           drop form 192 -> 134! Need to investigate this further!
365  C           For now I have introduced a parameter cg2dpcOffDFac which  C           For now I have introduced a parameter cg2dpcOffDFac which
366  C           defaults to 0.51 but can be set at runtime.  C           defaults to 0.51 but can be set at runtime.
 C     delP      :: Vertical grid spacing ( Pa ).  
 C     delZ      :: Vertical grid spacing ( m  ).  
367  C     delR      :: Vertical grid spacing ( units of r ).  C     delR      :: Vertical grid spacing ( units of r ).
368  C     delRc     :: Vertical grid spacing between cell centers (r unit).  C     delRc     :: Vertical grid spacing between cell centers (r unit).
369  C     delX      :: Separation between cell faces (m) or (deg), depending  C     delX      :: Separation between cell faces (m) or (deg), depending
# Line 369  C     omega     :: Angular velocity ( ra Line 388  C     omega     :: Angular velocity ( ra
388  C     rotationPeriod :: Rotation period (s) (= 2.pi/omega)  C     rotationPeriod :: Rotation period (s) (= 2.pi/omega)
389  C     viscAh    :: Eddy viscosity coeff. for mixing of  C     viscAh    :: Eddy viscosity coeff. for mixing of
390  C                 momentum laterally ( m^2/s )  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 )  
391  C     viscAr    :: Eddy viscosity coeff. for mixing of  C     viscAr    :: Eddy viscosity coeff. for mixing of
392  C                 momentum vertically ( units of r^2/s )  C                 momentum vertically ( units of r^2/s )
393  C     viscA4    :: Biharmonic viscosity coeff. for mixing of  C     viscA4    :: Biharmonic viscosity coeff. for mixing of
394  C                 momentum laterally ( m^4/s )  C                 momentum laterally ( m^4/s )
395    C     viscC2leith :: Leith non-dimensional viscosity factor
396    C     viscAhMax :: Maximum eddy viscosity coeff. for mixing of
397    C                 momentum laterally ( m^2/s )
398    C     viscA4Max :: Maximum biharmonic viscosity coeff. for mixing of
399    C                 momentum laterally ( m^4/s )
400    C     viscAhGrid:: non-dimensional grid-size dependent viscosity
401    C     viscA4Grid:: non-dimensional grid-size dependent bi-harmonic viscosity
402    C     viscC4leith :: Leith non-dimensional viscosity factor
403  C     diffKhT   :: Laplacian diffusion coeff. for mixing of  C     diffKhT   :: Laplacian diffusion coeff. for mixing of
404  C                 heat laterally ( m^2/s )  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 )  
405  C     diffKrT   :: Laplacian diffusion coeff. for mixing of  C     diffKrT   :: Laplacian diffusion coeff. for mixing of
406  C                 heat vertically ( units of r^2/s )  C                 heat vertically ( units of r^2/s )
407  C     diffK4T   :: Biharmonic diffusion coeff. for mixing of  C     diffK4T   :: Biharmonic diffusion coeff. for mixing of
408  C                 heat laterally ( m^4/s )  C                 heat laterally ( m^4/s )
409  C     diffKhS  ::  Laplacian diffusion coeff. for mixing of  C     diffKhS  ::  Laplacian diffusion coeff. for mixing of
410  C                 salt laterally ( m^2/s )  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 )  
411  C     diffKrS   :: Laplacian diffusion coeff. for mixing of  C     diffKrS   :: Laplacian diffusion coeff. for mixing of
412  C                 salt vertically ( units of r^2/s )  C                 salt vertically ( units of r^2/s )
413  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of
414  C                 salt laterally ( m^4/s )  C                 salt laterally ( m^4/s )
415    C     diffKrBL79surf :: T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979
416    C     diffKrBL79deep :: T/S deep diffusivity (m^2/s) Bryan and Lewis, 1979
417    C     diffKrBL79scl  :: depth scale for arctan fn (m) Bryan and Lewis, 1979
418    C     diffKrBL79Ho   :: depth offset for arctan fn (m) Bryan and Lewis, 1979
419  C     deltaT    :: Default timestep ( s )  C     deltaT    :: Default timestep ( s )
420  C     deltaTClock  :: Timestep used as model "clock". This determines the  C     deltaTClock  :: Timestep used as model "clock". This determines the
421  C                    IO frequencies and is used in tagging output. It can  C                    IO frequencies and is used in tagging output. It can
# Line 471  C     bottomDragLinear   :: Drag coeffic Line 490  C     bottomDragLinear   :: Drag coeffic
490  C      --"-"--  Quadratic  ( linear: 1/s, quadratic: 1/m )  C      --"-"--  Quadratic  ( linear: 1/s, quadratic: 1/m )
491        COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,        COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,
492       & cg2dpcOffDFac, cg3dTargetResidual,       & cg2dpcOffDFac, cg3dTargetResidual,
493       & delP, delZ, delR, delRc, delX, delY,       & delR, delRc, delX, delY,
494       & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,       & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,
495       & abeps, startTime,       & abeps, startTime,
496       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,
497       & fCori, fCoriG, fCoriCos,       & fCori, fCoriG, fCoriCos,
498       & viscAh,  viscAz,  viscA4,  viscAr, viscAstrain, viscAtension,       & viscAh,  viscAhMax, viscAhGrid, viscC2leith,
499       & diffKhT, diffKzT, diffK4T, diffKrT,       & viscA4,  viscA4Max, viscA4Grid, viscC4leith,
500       & diffKhS, diffKzS, diffK4S, diffKrS,       & viscAr, viscAstrain, viscAtension,
501         & diffKhT, diffK4T, diffKrT,
502         & diffKhS, diffK4S, diffKrS,
503         & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
504       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
505       & hFacMin, hFacMinDz, hFacInf, hFacSup,       & hFacMin, hFacMinDz, hFacInf, hFacSup,
506       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
507       & recip_rhoConst, rhoConst,       & recip_rhoConst, rhoConst,
508       & rhoConstFresh, convertEmP2rUnit, tRef, sRef,       & rhoConstFresh, convertEmP2rUnit, tRef, sRef,
509       & endTime, chkPtFreq, pchkPtFreq, dumpFreq,       & endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq,
510       & diagFreq, taveFreq, tave_lastIter, monitorFreq,       & diagFreq, taveFreq, tave_lastIter, monitorFreq,
511       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,       & afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom,
512       & cosPower, cAdjFreq, omega, rotationPeriod,       & cosPower, cAdjFreq, omega, rotationPeriod,
# Line 493  C      --"-"--  Quadratic  ( linear: 1/s Line 515  C      --"-"--  Quadratic  ( linear: 1/s
515       & tauTr1ClimRelax, lambdaTr1ClimRelax, latBandClimRelax,       & tauTr1ClimRelax, lambdaTr1ClimRelax, latBandClimRelax,
516       & externForcingCycle, externForcingPeriod,       & externForcingCycle, externForcingPeriod,
517       & convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,       & convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
518       & viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp,       & hFacMinDr, hFacMinDp,
519       & horiVertRatio, recip_horiVertRatio,       & horiVertRatio, recip_horiVertRatio,
520       & ivdc_kappa, Ro_SeaLevel,       & ivdc_kappa, Ro_SeaLevel,
521       & bottomDragLinear,bottomDragQuadratic       & bottomDragLinear,bottomDragQuadratic
# Line 502  C      --"-"--  Quadratic  ( linear: 1/s Line 524  C      --"-"--  Quadratic  ( linear: 1/s
524        _RL cg2dTargetResWunit        _RL cg2dTargetResWunit
525        _RL cg3dTargetResidual        _RL cg3dTargetResidual
526        _RL cg2dpcOffDFac        _RL cg2dpcOffDFac
       _RL delZ(Nr)  
       _RL delP(Nr)  
527        _RL delR(Nr)        _RL delR(Nr)
528        _RL delRc(Nr+1)        _RL delRc(Nr+1)
529        _RL delX(Nx)        _RL delX(Nx)
# Line 530  C      --"-"--  Quadratic  ( linear: 1/s Line 550  C      --"-"--  Quadratic  ( linear: 1/s
550        _RL hFacSup        _RL hFacSup
551        _RL beta        _RL beta
552        _RL viscAh        _RL viscAh
553          _RL viscAhMax
554          _RL viscAhGrid
555          _RL viscC2leith
556        _RL viscAstrain        _RL viscAstrain
557        _RL viscAtension        _RL viscAtension
       _RL viscAz  
       _RL viscAp  
558        _RL viscAr        _RL viscAr
559        _RL viscA4        _RL viscA4
560          _RL viscA4Max
561          _RL viscA4Grid
562          _RL viscC4leith
563        _RL diffKhT        _RL diffKhT
564        _RL diffKrT        _RL diffKrT
       _RL diffKzT  
       _RL diffKpT  
565        _RL diffK4T        _RL diffK4T
566        _RL diffKhS        _RL diffKhS
567        _RL diffKrS        _RL diffKrS
       _RL diffKzS  
       _RL diffKpS  
568        _RL diffK4S        _RL diffK4S
569          _RL diffKrBL79surf
570          _RL diffKrBL79deep
571          _RL diffKrBL79scl
572          _RL diffKrBL79Ho
573        _RL delt        _RL delt
574        _RL tauCD        _RL tauCD
575        _RL rCD        _RL rCD
# Line 568  C      --"-"--  Quadratic  ( linear: 1/s Line 592  C      --"-"--  Quadratic  ( linear: 1/s
592        _RL chkPtFreq        _RL chkPtFreq
593        _RL pChkPtFreq        _RL pChkPtFreq
594        _RL dumpFreq        _RL dumpFreq
595          _RL adjDumpFreq
596        _RL diagFreq        _RL diagFreq
597        _RL taveFreq        _RL taveFreq
598        _RL tave_lastIter        _RL tave_lastIter
# Line 641  C Logical flags for selecting packages Line 666  C Logical flags for selecting packages
666        LOGICAL usePTRACERS        LOGICAL usePTRACERS
667        LOGICAL useSBO        LOGICAL useSBO
668        LOGICAL useSEAICE        LOGICAL useSEAICE
669        LOGICAL useBulkforce        LOGICAL useBulkForce
670        LOGICAL useThermSEAICE        LOGICAL useThSIce
671          LOGICAL usefizhi
672          LOGICAL usegridalt
673          LOGICAL usediagnostics
674          LOGICAL useEBM
675        COMMON /PARM_PACKAGES/        COMMON /PARM_PACKAGES/
676       &        useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,       &        useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO,
677       &        useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT,       &        useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT,
678       &        usePTRACERS,  useSBO, useSEAICE,       &        usePTRACERS,  useSBO, useSEAICE, useThSIce, useBulkForce,
679       &        useThermSEAICE, useBulkforce       &        usefizhi,  usegridalt, usediagnostics, useEBM
680    
681    C     Run-time flags for early-initialization of MNC
682          LOGICAL
683         &     useMNC,
684         &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
685         &     mnc_echo_gvtypes, mnc_pickup_write, mnc_pickup_read,
686         &     mnc_use_for_mon
687          CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
688          CHARACTER*(MAX_LEN_FNAM) mnc_indir_str
689          COMMON /PARM_MNC/
690         &     useMNC,
691         &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
692         &     mnc_echo_gvtypes, mnc_pickup_write, mnc_pickup_read,
693         &     mnc_outdir_str, mnc_indir_str,
694         &     mnc_use_for_mon
695    
696    
697    CEH3 ;;; Local Variables: ***
698    CEH3 ;;; mode:fortran ***
699    CEH3 ;;; End: ***
Legend:
Removed from v.1.95  
changed lines
  Added in v.1.113
  ViewVC Help
Powered by ViewVC 1.1.22