63 |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
64 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
65 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
66 |
& EmPmRfile,surfQfile |
& EmPmRfile, surfQfile, |
67 |
|
& uVelInitFile, vVelInitFile |
68 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
69 |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
70 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
76 |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
77 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
78 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
79 |
|
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
80 |
|
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
81 |
|
|
82 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
83 |
C cg2dMaxIters - Maximum number of iterations in the |
C cg2dMaxIters - Maximum number of iterations in the |
108 |
& cg2dChkResFreq, |
& cg2dChkResFreq, |
109 |
& cg3dMaxIters, |
& cg3dMaxIters, |
110 |
& cg3dChkResFreq, |
& cg3dChkResFreq, |
111 |
& nIter0, nTimeSteps, |
& nIter0, nTimeSteps, nEndIter, |
112 |
& numStepsPerPickup, |
& numStepsPerPickup, |
113 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
114 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
119 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
120 |
INTEGER nIter0 |
INTEGER nIter0 |
121 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
122 |
|
INTEGER nEndIter |
123 |
INTEGER numStepsPerPickup |
INTEGER numStepsPerPickup |
124 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
125 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
373 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
374 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
375 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
376 |
& latFFTFiltLo |
& latFFTFiltLo, ivdc_kappa |
377 |
|
|
378 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
379 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
459 |
_RL horiVertRatio |
_RL horiVertRatio |
460 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
461 |
_RL latFFTFiltLo |
_RL latFFTFiltLo |
462 |
|
_RL ivdc_kappa |
463 |
|
|
464 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
465 |
& Lamba_theta |
& Lamba_theta |