68 |
C surfQswFile :: File containing surface shortwave radiation |
C surfQswFile :: File containing surface shortwave radiation |
69 |
C dQdTfile :: File containing thermal relaxation coefficient |
C dQdTfile :: File containing thermal relaxation coefficient |
70 |
C EmPmRfile :: File containing surface fresh water flux |
C EmPmRfile :: File containing surface fresh water flux |
71 |
|
C saltFluxFile :: File containing surface salt flux |
72 |
C pLoadFile :: File containing pressure loading |
C pLoadFile :: File containing pressure loading |
73 |
C buoyancyRelation :: Flag used to indicate which relation to use to |
C buoyancyRelation :: Flag used to indicate which relation to use to |
74 |
C get buoyancy. |
C get buoyancy. |
80 |
& hydrogThetaFile, hydrogSaltFile, |
& hydrogThetaFile, hydrogSaltFile, |
81 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
82 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
83 |
& EmPmRfile, surfQfile, surfQnetFile, surfQswFile, |
& EmPmRfile, saltFluxFile, |
84 |
|
& surfQfile, surfQnetFile, surfQswFile, |
85 |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
86 |
& dQdTfile, ploadFile, |
& dQdTfile, ploadFile, |
87 |
& eosType, pickupSuff, |
& eosType, pickupSuff, |
99 |
CHARACTER*(MAX_LEN_FNAM) surfQnetFile |
CHARACTER*(MAX_LEN_FNAM) surfQnetFile |
100 |
CHARACTER*(MAX_LEN_FNAM) surfQswFile |
CHARACTER*(MAX_LEN_FNAM) surfQswFile |
101 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
102 |
|
CHARACTER*(MAX_LEN_FNAM) saltFluxFile |
103 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
104 |
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
105 |
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
570 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
571 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
572 |
& bottomDragLinear,bottomDragQuadratic, |
& bottomDragLinear,bottomDragQuadratic, |
573 |
& tCyl |
& tCylIn, tCylOut |
574 |
|
|
575 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
576 |
_RL cg2dTargetResWunit |
_RL cg2dTargetResWunit |
683 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
684 |
_RL bottomDragLinear |
_RL bottomDragLinear |
685 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
686 |
_RL tCyl |
_RL tCylIn |
687 |
|
_RL tCylOut |
688 |
|
|
689 |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
690 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |