299 |
& readPickupWithTracer, writePickupWithTracer, |
& readPickupWithTracer, writePickupWithTracer, |
300 |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
301 |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
302 |
& outputTypesInclusive |
& outputTypesInclusive, |
303 |
|
& inAdMode, inAdTrue, inAdFalse, inAdExact |
304 |
|
|
305 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
306 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
375 |
LOGICAL pickup_write_immed |
LOGICAL pickup_write_immed |
376 |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
377 |
LOGICAL outputTypesInclusive |
LOGICAL outputTypesInclusive |
378 |
|
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
379 |
|
|
380 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
381 |
C cg2dTargetResidual |
C cg2dTargetResidual |
560 |
& recip_rhoConst, rhoConst, |
& recip_rhoConst, rhoConst, |
561 |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, |
562 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq, |
563 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
564 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
565 |
& cosPower, cAdjFreq, omega, rotationPeriod, |
& cosPower, cAdjFreq, omega, rotationPeriod, |
566 |
& tauThetaClimRelax, lambdaThetaClimRelax, |
& tauThetaClimRelax, lambdaThetaClimRelax, |
572 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
573 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
574 |
& bottomDragLinear,bottomDragQuadratic, |
& bottomDragLinear,bottomDragQuadratic, |
575 |
& tCyl |
& tCylIn, tCylOut |
576 |
|
|
577 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
578 |
_RL cg2dTargetResWunit |
_RL cg2dTargetResWunit |
657 |
_RL taveFreq |
_RL taveFreq |
658 |
_RL tave_lastIter |
_RL tave_lastIter |
659 |
_RL monitorFreq |
_RL monitorFreq |
660 |
|
_RL adjMonitorFreq |
661 |
_RL afFacMom |
_RL afFacMom |
662 |
_RL vfFacMom |
_RL vfFacMom |
663 |
_RL pfFacMom |
_RL pfFacMom |
686 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
687 |
_RL bottomDragLinear |
_RL bottomDragLinear |
688 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
689 |
_RL tCyl |
_RL tCylIn |
690 |
|
_RL tCylOut |
691 |
|
|
692 |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
C-- COMMON /PARM_A/ Thermodynamics constants ? |
693 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp |