/[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.93 by heimbach, Fri Jul 18 20:06:45 2003 UTC revision 1.96 by jmc, Wed Oct 29 00:17:44 2003 UTC
# Line 343  C           number of iterations for con Line 343  C           number of iterations for con
343  C           drop form 192 -> 134! Need to investigate this further!  C           drop form 192 -> 134! Need to investigate this further!
344  C           For now I have introduced a parameter cg2dpcOffDFac which  C           For now I have introduced a parameter cg2dpcOffDFac which
345  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  ).  
346  C     delR      :: Vertical grid spacing ( units of r ).  C     delR      :: Vertical grid spacing ( units of r ).
347  C     delRc     :: Vertical grid spacing between cell centers (r unit).  C     delRc     :: Vertical grid spacing between cell centers (r unit).
348  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 367  C     omega     :: Angular velocity ( ra
367  C     rotationPeriod :: Rotation period (s) (= 2.pi/omega)  C     rotationPeriod :: Rotation period (s) (= 2.pi/omega)
368  C     viscAh    :: Eddy viscosity coeff. for mixing of  C     viscAh    :: Eddy viscosity coeff. for mixing of
369  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 )  
370  C     viscAr    :: Eddy viscosity coeff. for mixing of  C     viscAr    :: Eddy viscosity coeff. for mixing of
371  C                 momentum vertically ( units of r^2/s )  C                 momentum vertically ( units of r^2/s )
372  C     viscA4    :: Biharmonic viscosity coeff. for mixing of  C     viscA4    :: Biharmonic viscosity coeff. for mixing of
373  C                 momentum laterally ( m^4/s )  C                 momentum laterally ( m^4/s )
374  C     diffKhT   :: Laplacian diffusion coeff. for mixing of  C     diffKhT   :: Laplacian diffusion coeff. for mixing of
375  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 )  
376  C     diffKrT   :: Laplacian diffusion coeff. for mixing of  C     diffKrT   :: Laplacian diffusion coeff. for mixing of
377  C                 heat vertically ( units of r^2/s )  C                 heat vertically ( units of r^2/s )
378  C     diffK4T   :: Biharmonic diffusion coeff. for mixing of  C     diffK4T   :: Biharmonic diffusion coeff. for mixing of
379  C                 heat laterally ( m^4/s )  C                 heat laterally ( m^4/s )
380  C     diffKhS  ::  Laplacian diffusion coeff. for mixing of  C     diffKhS  ::  Laplacian diffusion coeff. for mixing of
381  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 )  
382  C     diffKrS   :: Laplacian diffusion coeff. for mixing of  C     diffKrS   :: Laplacian diffusion coeff. for mixing of
383  C                 salt vertically ( units of r^2/s )  C                 salt vertically ( units of r^2/s )
384  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of  C     diffK4S   :: Biharmonic diffusion coeff. for mixing of
# Line 448  C     tauThetaClimRelax :: Relaxation to Line 434  C     tauThetaClimRelax :: Relaxation to
434  C     lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ).  C     lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ).
435  C     tauSaltClimRelax :: Relaxation to climatology time scale ( s ).  C     tauSaltClimRelax :: Relaxation to climatology time scale ( s ).
436  C     lambdaSaltClimRelax :: Inverse time scale for relaxation ( 1/s ).  C     lambdaSaltClimRelax :: Inverse time scale for relaxation ( 1/s ).
437    C     latBandClimRelax :: latitude band where Relaxation to Clim. is applied,
438    C                         i.e. where |yC| <= latBandClimRelax
439  C     externForcingPeriod :: Is the period of which forcing varies (eg. 1 month)  C     externForcingPeriod :: Is the period of which forcing varies (eg. 1 month)
440  C     externForcingCycle :: Is the repeat time of the forcing (eg. 1 year)  C     externForcingCycle :: Is the repeat time of the forcing (eg. 1 year)
441  C                          (note: externForcingCycle must be an integer  C                          (note: externForcingCycle must be an integer
# Line 469  C     bottomDragLinear   :: Drag coeffic Line 457  C     bottomDragLinear   :: Drag coeffic
457  C      --"-"--  Quadratic  ( linear: 1/s, quadratic: 1/m )  C      --"-"--  Quadratic  ( linear: 1/s, quadratic: 1/m )
458        COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,        COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit,
459       & cg2dpcOffDFac, cg3dTargetResidual,       & cg2dpcOffDFac, cg3dTargetResidual,
460       & delP, delZ, delR, delRc, delX, delY,       & delR, delRc, delX, delY,
461       & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,       & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock,
462       & abeps, startTime,       & abeps, startTime,
463       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,
464       & fCori, fCoriG, fCoriCos,       & fCori, fCoriG, fCoriCos,
465       & viscAh,  viscAz,  viscA4,  viscAr, viscAstrain, viscAtension,       & viscAh,  viscA4,  viscAr, viscAstrain, viscAtension,
466       & diffKhT, diffKzT, diffK4T, diffKrT,       & diffKhT, diffK4T, diffKrT,
467       & diffKhS, diffKzS, diffK4S, diffKrS,       & diffKhS, diffK4S, diffKrS,
468       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
469       & hFacMin, hFacMinDz, hFacInf, hFacSup,       & hFacMin, hFacMinDz, hFacInf, hFacSup,
470       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
# Line 488  C      --"-"--  Quadratic  ( linear: 1/s Line 476  C      --"-"--  Quadratic  ( linear: 1/s
476       & cosPower, cAdjFreq, omega, rotationPeriod,       & cosPower, cAdjFreq, omega, rotationPeriod,
477       & tauThetaClimRelax, lambdaThetaClimRelax,       & tauThetaClimRelax, lambdaThetaClimRelax,
478       & tauSaltClimRelax, lambdaSaltClimRelax,       & tauSaltClimRelax, lambdaSaltClimRelax,
479       & tauTr1ClimRelax, lambdaTr1ClimRelax,       & tauTr1ClimRelax, lambdaTr1ClimRelax, latBandClimRelax,
480       & externForcingCycle, externForcingPeriod,       & externForcingCycle, externForcingPeriod,
481       & convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,       & convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
482       & viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp,       & hFacMinDr, hFacMinDp,
483       & horiVertRatio, recip_horiVertRatio,       & horiVertRatio, recip_horiVertRatio,
484       & ivdc_kappa, Ro_SeaLevel,       & ivdc_kappa, Ro_SeaLevel,
485       & bottomDragLinear,bottomDragQuadratic       & bottomDragLinear,bottomDragQuadratic
# Line 500  C      --"-"--  Quadratic  ( linear: 1/s Line 488  C      --"-"--  Quadratic  ( linear: 1/s
488        _RL cg2dTargetResWunit        _RL cg2dTargetResWunit
489        _RL cg3dTargetResidual        _RL cg3dTargetResidual
490        _RL cg2dpcOffDFac        _RL cg2dpcOffDFac
       _RL delZ(Nr)  
       _RL delP(Nr)  
491        _RL delR(Nr)        _RL delR(Nr)
492        _RL delRc(Nr+1)        _RL delRc(Nr+1)
493        _RL delX(Nx)        _RL delX(Nx)
# Line 530  C      --"-"--  Quadratic  ( linear: 1/s Line 516  C      --"-"--  Quadratic  ( linear: 1/s
516        _RL viscAh        _RL viscAh
517        _RL viscAstrain        _RL viscAstrain
518        _RL viscAtension        _RL viscAtension
       _RL viscAz  
       _RL viscAp  
519        _RL viscAr        _RL viscAr
520        _RL viscA4        _RL viscA4
521        _RL diffKhT        _RL diffKhT
522        _RL diffKrT        _RL diffKrT
       _RL diffKzT  
       _RL diffKpT  
523        _RL diffK4T        _RL diffK4T
524        _RL diffKhS        _RL diffKhS
525        _RL diffKrS        _RL diffKrS
       _RL diffKzS  
       _RL diffKpS  
526        _RL diffK4S        _RL diffK4S
527        _RL delt        _RL delt
528        _RL tauCD        _RL tauCD
# Line 586  C      --"-"--  Quadratic  ( linear: 1/s Line 566  C      --"-"--  Quadratic  ( linear: 1/s
566        _RL lambdaSaltClimRelax        _RL lambdaSaltClimRelax
567        _RL tauTr1ClimRelax        _RL tauTr1ClimRelax
568        _RL lambdaTr1ClimRelax        _RL lambdaTr1ClimRelax
569          _RL latBandClimRelax
570        _RL externForcingCycle        _RL externForcingCycle
571        _RL externForcingPeriod        _RL externForcingPeriod
572        _RL convertFW2Salt        _RL convertFW2Salt
# Line 610  C     atm_Po    :: standard reference pr Line 591  C     atm_Po    :: standard reference pr
591  C     atm_Cp    :: specific heat (Cp) of the (dry) air at constant pressure  C     atm_Cp    :: specific heat (Cp) of the (dry) air at constant pressure
592  C     atm_Rd    :: gas constant for dry air  C     atm_Rd    :: gas constant for dry air
593  C     atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS)  C     atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS)
594    C     atm_Rq    :: water vapour specific volume anomaly relative to dry air
595    C                  (e.g. typical value = (29/18 -1) 10^-3 with q [g/kg])
596  C     integr_GeoPot :: option to select the way we integrate the geopotential  C     integr_GeoPot :: option to select the way we integrate the geopotential
597  C                     (still a subject of discussions ...)  C                     (still a subject of discussions ...)
598  C     selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is  C     selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is
599  C             derived from the orography. Implemented: 0,1 (see INI_P_GROUND)  C             derived from the orography. Implemented: 0,1 (see INI_P_GROUND)
600        COMMON /PARM_ATM/        COMMON /PARM_ATM/
601       &            celsius2K,       &            celsius2K,
602       &            atm_Cp, atm_Rd, atm_kappa, atm_Po,       &            atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po,
603       &            integr_GeoPot, selectFindRoSurf       &            integr_GeoPot, selectFindRoSurf
604        _RL celsius2K        _RL celsius2K
605        _RL atm_Po, atm_Cp, atm_Rd, atm_kappa        _RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq
606        INTEGER integr_GeoPot, selectFindRoSurf        INTEGER integr_GeoPot, selectFindRoSurf
607    
608  C Logical flags for selecting packages  C Logical flags for selecting packages
Legend:
Removed from v.1.93  
changed lines
  Added in v.1.96
  ViewVC Help
Powered by ViewVC 1.1.22