268 |
C pickup_write_immed :: echo the pickup immediately (for conversion) |
C pickup_write_immed :: echo the pickup immediately (for conversion) |
269 |
C timeave_mdsio :: use mdsio for timeave output |
C timeave_mdsio :: use mdsio for timeave output |
270 |
C snapshot_mdsio :: use mdsio for "snapshot" (dumpfreq/diagfreq) output |
C snapshot_mdsio :: use mdsio for "snapshot" (dumpfreq/diagfreq) output |
271 |
C monitor_mdsio :: use mdsio for monitor output |
C monitor_stdio :: use stdio for monitor output |
272 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
273 |
& usingCurvilinearGrid, usingCylindricalGrid, |
& usingCurvilinearGrid, usingCylindricalGrid, |
274 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
297 |
& usePickupBeforeC35, usePickupBeforeC54, debugMode, |
& usePickupBeforeC35, usePickupBeforeC54, debugMode, |
298 |
& readPickupWithTracer, writePickupWithTracer, |
& readPickupWithTracer, writePickupWithTracer, |
299 |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
300 |
& timeave_mdsio, snapshot_mdsio, monitor_mdsio |
& timeave_mdsio, snapshot_mdsio, monitor_stdio |
301 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
302 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
303 |
LOGICAL usingCylindricalGrid |
LOGICAL usingCylindricalGrid |
370 |
LOGICAL writePickupWithTracer |
LOGICAL writePickupWithTracer |
371 |
LOGICAL pickup_read_mdsio, pickup_write_mdsio |
LOGICAL pickup_read_mdsio, pickup_write_mdsio |
372 |
LOGICAL pickup_write_immed |
LOGICAL pickup_write_immed |
373 |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_mdsio |
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio |
374 |
|
|
375 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
376 |
C cg2dTargetResidual |
C cg2dTargetResidual |