83 |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
84 |
& dQdTfile, ploadFile, |
& dQdTfile, ploadFile, |
85 |
& eosType, pickupSuff, |
& eosType, pickupSuff, |
86 |
& mdsioLocalDir, tCyl |
& 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 |
104 |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
105 |
CHARACTER*(6) eosType |
CHARACTER*(6) eosType |
106 |
CHARACTER*(10) pickupSuff |
CHARACTER*(10) pickupSuff |
|
_RL tCyl |
|
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 |
527 |
& hFacMinDr, hFacMinDp, |
& hFacMinDr, hFacMinDp, |
528 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
529 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
530 |
& bottomDragLinear,bottomDragQuadratic |
& bottomDragLinear,bottomDragQuadratic, |
531 |
|
& tCyl |
532 |
|
|
533 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
534 |
_RL cg2dTargetResWunit |
_RL cg2dTargetResWunit |
636 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
637 |
_RL bottomDragLinear |
_RL bottomDragLinear |
638 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
639 |
|
_RL tCyl |
640 |
|
|
641 |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
642 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |