448 |
C lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ). |
C lambdaThetaClimRelax :: Inverse time scale for relaxation ( 1/s ). |
449 |
C tauSaltClimRelax :: Relaxation to climatology time scale ( s ). |
C tauSaltClimRelax :: Relaxation to climatology time scale ( s ). |
450 |
C lambdaSaltClimRelax :: Inverse time scale for relaxation ( 1/s ). |
C lambdaSaltClimRelax :: Inverse time scale for relaxation ( 1/s ). |
451 |
|
C latBandClimRelax :: latitude band where Relaxation to Clim. is applied, |
452 |
|
C i.e. where |yC| <= latBandClimRelax |
453 |
C externForcingPeriod :: Is the period of which forcing varies (eg. 1 month) |
C externForcingPeriod :: Is the period of which forcing varies (eg. 1 month) |
454 |
C externForcingCycle :: Is the repeat time of the forcing (eg. 1 year) |
C externForcingCycle :: Is the repeat time of the forcing (eg. 1 year) |
455 |
C (note: externForcingCycle must be an integer |
C (note: externForcingCycle must be an integer |
490 |
& cosPower, cAdjFreq, omega, rotationPeriod, |
& cosPower, cAdjFreq, omega, rotationPeriod, |
491 |
& tauThetaClimRelax, lambdaThetaClimRelax, |
& tauThetaClimRelax, lambdaThetaClimRelax, |
492 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
493 |
& tauTr1ClimRelax, lambdaTr1ClimRelax, |
& tauTr1ClimRelax, lambdaTr1ClimRelax, latBandClimRelax, |
494 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
495 |
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn, |
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn, trac_EvPrRn, |
496 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
588 |
_RL lambdaSaltClimRelax |
_RL lambdaSaltClimRelax |
589 |
_RL tauTr1ClimRelax |
_RL tauTr1ClimRelax |
590 |
_RL lambdaTr1ClimRelax |
_RL lambdaTr1ClimRelax |
591 |
|
_RL latBandClimRelax |
592 |
_RL externForcingCycle |
_RL externForcingCycle |
593 |
_RL externForcingPeriod |
_RL externForcingPeriod |
594 |
_RL convertFW2Salt |
_RL convertFW2Salt |
613 |
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 |
614 |
C atm_Rd :: gas constant for dry air |
C atm_Rd :: gas constant for dry air |
615 |
C atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS) |
C atm_kappa :: kappa = R/Cp (R: constant of Ideal Gas EOS) |
616 |
|
C atm_Rq :: water vapour specific volume anomaly relative to dry air |
617 |
|
C (e.g. typical value = (29/18 -1) 10^-3 with q [g/kg]) |
618 |
C integr_GeoPot :: option to select the way we integrate the geopotential |
C integr_GeoPot :: option to select the way we integrate the geopotential |
619 |
C (still a subject of discussions ...) |
C (still a subject of discussions ...) |
620 |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
621 |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
622 |
COMMON /PARM_ATM/ |
COMMON /PARM_ATM/ |
623 |
& celsius2K, |
& celsius2K, |
624 |
& atm_Cp, atm_Rd, atm_kappa, atm_Po, |
& atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po, |
625 |
& integr_GeoPot, selectFindRoSurf |
& integr_GeoPot, selectFindRoSurf |
626 |
_RL celsius2K |
_RL celsius2K |
627 |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq |
628 |
INTEGER integr_GeoPot, selectFindRoSurf |
INTEGER integr_GeoPot, selectFindRoSurf |
629 |
|
|
630 |
C Logical flags for selecting packages |
C Logical flags for selecting packages |
641 |
LOGICAL usePTRACERS |
LOGICAL usePTRACERS |
642 |
LOGICAL useSBO |
LOGICAL useSBO |
643 |
LOGICAL useSEAICE |
LOGICAL useSEAICE |
|
cswdblk -- add --- |
|
644 |
LOGICAL useBulkforce |
LOGICAL useBulkforce |
645 |
LOGICAL useThermSEAICE |
LOGICAL useThermSEAICE |
|
cswdblk --- end add --- |
|
646 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
647 |
& useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO, |
& useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO, |
648 |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
649 |
& usePTRACERS, useSBO, useSEAICE, |
& usePTRACERS, useSBO, useSEAICE, |
|
cswdblk -- add --- |
|
650 |
& useThermSEAICE, useBulkforce |
& useThermSEAICE, useBulkforce |
|
cswdblk --- end add --- |
|