115 |
& numStepsPerPickup, |
& numStepsPerPickup, |
116 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
117 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
118 |
& nShap |
& nShap, zonal_filt_sinpow, zonal_filt_cospow |
119 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
120 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
121 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
129 |
INTEGER readBinaryPrec |
INTEGER readBinaryPrec |
130 |
INTEGER nCheckLev |
INTEGER nCheckLev |
131 |
INTEGER nShap |
INTEGER nShap |
132 |
|
INTEGER zonal_filt_sinpow |
133 |
|
INTEGER zonal_filt_cospow |
134 |
|
|
135 |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
136 |
C usingCartesianGrid - If TRUE grid generation will be in a cartesian |
C usingCartesianGrid - If TRUE grid generation will be in a cartesian |
378 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
379 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
380 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
381 |
& latFFTFiltLo, ivdc_kappa, Ro_SeaLevel |
& latFFTFiltLo, ivdc_kappa, Ro_SeaLevel, zonal_filt_lat |
382 |
|
|
383 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
384 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
460 |
_RL latFFTFiltLo |
_RL latFFTFiltLo |
461 |
_RL ivdc_kappa |
_RL ivdc_kappa |
462 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
463 |
|
_RL zonal_filt_lat |
464 |
|
|
465 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
466 |
& Lamba_theta |
& Lamba_theta |