82 |
& EmPmRfile, surfQfile, surfQswfile, |
& EmPmRfile, surfQfile, surfQswfile, |
83 |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
84 |
& dQdTfile, ploadFile, |
& dQdTfile, ploadFile, |
85 |
& eosType |
& eosType, pickupSuff, |
86 |
|
& mdsioLocalDir |
87 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
88 |
CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile |
89 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
101 |
CHARACTER*(MAX_LEN_FNAM) pSurfInitFile |
CHARACTER*(MAX_LEN_FNAM) pSurfInitFile |
102 |
CHARACTER*(MAX_LEN_FNAM) dQdTfile |
CHARACTER*(MAX_LEN_FNAM) dQdTfile |
103 |
CHARACTER*(MAX_LEN_FNAM) ploadFile |
CHARACTER*(MAX_LEN_FNAM) ploadFile |
104 |
|
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
105 |
CHARACTER*(6) eosType |
CHARACTER*(6) eosType |
106 |
|
CHARACTER*(10) pickupSuff |
107 |
|
|
108 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
109 |
C cg2dMaxIters :: Maximum number of iterations in the |
C cg2dMaxIters :: Maximum number of iterations in the |
137 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
138 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
139 |
& nonlinFreeSurf, select_rStar, |
& nonlinFreeSurf, select_rStar, |
140 |
& tempAdvScheme, saltAdvScheme, tracerAdvScheme |
& tempAdvScheme, saltAdvScheme, tracerAdvScheme, |
141 |
|
& debugLevel |
142 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
143 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
144 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
156 |
INTEGER tempAdvScheme |
INTEGER tempAdvScheme |
157 |
INTEGER saltAdvScheme |
INTEGER saltAdvScheme |
158 |
INTEGER tracerAdvScheme |
INTEGER tracerAdvScheme |
159 |
|
INTEGER debugLevel |
160 |
|
|
161 |
|
C |
162 |
|
INTEGER debLevZero |
163 |
|
PARAMETER(debLevZero=0) |
164 |
|
INTEGER debLevA |
165 |
|
PARAMETER(debLevA=1) |
166 |
|
INTEGER debLevB |
167 |
|
PARAMETER(debLevB=2) |
168 |
|
|
169 |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
170 |
C usingCartesianGrid :: If TRUE grid generation will be in a cartesian |
C usingCartesianGrid :: If TRUE grid generation will be in a cartesian |
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 |
602 |
_RL bottomDragLinear |
_RL bottomDragLinear |
603 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
604 |
|
|
605 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
606 |
& Lamba_theta |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
607 |
_RL HeatCapacity_Cp |
_RL HeatCapacity_Cp |
|
_RL Lamba_theta |
|
608 |
_RL recip_Cp |
_RL recip_Cp |
609 |
|
|
610 |
C Atmospheric physical parameters (Ideal Gas EOS, ...) |
C-- COMMON /PARM_ATM/ Atmospheric physical parameters (Ideal Gas EOS, ...) |
611 |
|
C celsius2K :: convert centigrade (Celsius) degree to Kelvin |
612 |
C atm_Po :: standard reference pressure |
C atm_Po :: standard reference pressure |
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/ atm_Cp, atm_Rd, atm_kappa, atm_Po, |
COMMON /PARM_ATM/ |
623 |
& integr_GeoPot, selectFindRoSurf |
& celsius2K, |
624 |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
& atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po, |
625 |
|
& integr_GeoPot, selectFindRoSurf |
626 |
|
_RL celsius2K |
627 |
|
_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 |
632 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
633 |
LOGICAL useOBCS |
LOGICAL useOBCS |
634 |
LOGICAL useAIM |
LOGICAL useAIM |
635 |
|
LOGICAL useLand |
636 |
LOGICAL useGrdchk |
LOGICAL useGrdchk |
637 |
LOGICAL useECCO |
LOGICAL useECCO |
638 |
LOGICAL useSHAP_FILT |
LOGICAL useSHAP_FILT |
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, 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 --- |
|