82 |
& EmPmRfile, surfQfile, surfQswfile, |
& EmPmRfile, surfQfile, surfQswfile, |
83 |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
84 |
& dQdTfile, ploadFile, |
& dQdTfile, ploadFile, |
85 |
& eosType, pickupSuff |
& 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 |
CHARACTER*(10) pickupSuff |
107 |
|
|
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 |
599 |
_RL bottomDragLinear |
_RL bottomDragLinear |
600 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
601 |
|
|
602 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
603 |
& Lamba_theta |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
604 |
_RL HeatCapacity_Cp |
_RL HeatCapacity_Cp |
|
_RL Lamba_theta |
|
605 |
_RL recip_Cp |
_RL recip_Cp |
606 |
|
|
607 |
C Atmospheric physical parameters (Ideal Gas EOS, ...) |
C-- COMMON /PARM_ATM/ Atmospheric physical parameters (Ideal Gas EOS, ...) |
608 |
|
C celsius2K :: convert centigrade (Celsius) degree to Kelvin |
609 |
C atm_Po :: standard reference pressure |
C atm_Po :: standard reference pressure |
610 |
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 |
611 |
C atm_Rd :: gas constant for dry air |
C atm_Rd :: gas constant for dry air |
614 |
C (still a subject of discussions ...) |
C (still a subject of discussions ...) |
615 |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
C selectFindRoSurf :: select the way surf. ref. pressure (=Ro_surf) is |
616 |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
C derived from the orography. Implemented: 0,1 (see INI_P_GROUND) |
617 |
COMMON /PARM_ATM/ atm_Cp, atm_Rd, atm_kappa, atm_Po, |
COMMON /PARM_ATM/ |
618 |
& integr_GeoPot, selectFindRoSurf |
& celsius2K, |
619 |
|
& atm_Cp, atm_Rd, atm_kappa, atm_Po, |
620 |
|
& integr_GeoPot, selectFindRoSurf |
621 |
|
_RL celsius2K |
622 |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa |
623 |
INTEGER integr_GeoPot, selectFindRoSurf |
INTEGER integr_GeoPot, selectFindRoSurf |
624 |
|
|
627 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
628 |
LOGICAL useOBCS |
LOGICAL useOBCS |
629 |
LOGICAL useAIM |
LOGICAL useAIM |
630 |
|
LOGICAL useLand |
631 |
LOGICAL useGrdchk |
LOGICAL useGrdchk |
632 |
LOGICAL useECCO |
LOGICAL useECCO |
633 |
LOGICAL useSHAP_FILT |
LOGICAL useSHAP_FILT |
641 |
LOGICAL useThermSEAICE |
LOGICAL useThermSEAICE |
642 |
cswdblk --- end add --- |
cswdblk --- end add --- |
643 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
644 |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, |
& useKPP, useGMRedi, useOBCS, useAIM, useLand, useECCO, |
645 |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
646 |
& usePTRACERS, useSBO, useSEAICE, |
& usePTRACERS, useSBO, useSEAICE, |
647 |
cswdblk -- add --- |
cswdblk -- add --- |