88 |
C writeBinaryPrec - Precision used for writing binary files |
C writeBinaryPrec - Precision used for writing binary files |
89 |
C readBinaryPrec - Precision used for reading binary files |
C readBinaryPrec - Precision used for reading binary files |
90 |
C nCheckLev - Holds current checkpoint level |
C nCheckLev - Holds current checkpoint level |
91 |
|
C nShap - "Order" of shapiro filter to apply to |
92 |
|
C model prognositic fields. |
93 |
|
C nShap == 1 => del2 |
94 |
|
C nShap == 2 => del4 |
95 |
|
C nShap == 3 => del6 |
96 |
|
C etc... |
97 |
|
|
98 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
99 |
& cg2dMaxIters, |
& cg2dMaxIters, |
100 |
& cg2dChkResFreq, |
& cg2dChkResFreq, |
103 |
& nIter0, nTimeSteps, |
& nIter0, nTimeSteps, |
104 |
& numStepsPerPickup, |
& numStepsPerPickup, |
105 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
106 |
& writeBinaryPrec, readBinaryPrec |
& writeBinaryPrec, readBinaryPrec, |
107 |
|
& nShap |
108 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
109 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
110 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
116 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
117 |
INTEGER readBinaryPrec |
INTEGER readBinaryPrec |
118 |
INTEGER nCheckLev |
INTEGER nCheckLev |
119 |
|
INTEGER nShap |
120 |
|
|
121 |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
122 |
C usingCartesianGrid - If TRUE grid generation will be in a cartesian |
C usingCartesianGrid - If TRUE grid generation will be in a cartesian |
323 |
C horiVertRatio - Ratio on units in vertical to units in horizontal. |
C horiVertRatio - Ratio on units in vertical to units in horizontal. |
324 |
C recip_horiVertRatio ( 1 if horiz in m and vertical in m ). |
C recip_horiVertRatio ( 1 if horiz in m and vertical in m ). |
325 |
C ( g*rho if horiz in m and vertical in Pa ). |
C ( g*rho if horiz in m and vertical in Pa ). |
326 |
|
C latFFTFiltLo - Low latitude for FFT filtering of latitude |
327 |
|
C circles ( see filter*.F ) |
328 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, |
329 |
& cg3dTargetResidual, |
& cg3dTargetResidual, |
330 |
& delP, delZ, delR, delX, delY, |
& delP, delZ, delR, delX, delY, |
343 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
344 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
345 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
346 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
347 |
|
& latFFTFiltLo |
348 |
|
|
349 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
350 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
428 |
_RL externForcingPeriod |
_RL externForcingPeriod |
429 |
_RL horiVertRatio |
_RL horiVertRatio |
430 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
431 |
|
_RL latFFTFiltLo |
432 |
|
|
433 |
COMMON /PARM_A/ HeatCapacity_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp, |
434 |
& Lamba_theta |
& Lamba_theta |