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 |
684 |
INTEGER integr_GeoPot, selectFindRoSurf |
INTEGER integr_GeoPot, selectFindRoSurf |
685 |
|
|
686 |
C Logical flags for selecting packages |
C Logical flags for selecting packages |
687 |
|
LOGICAL useOPPS |
688 |
LOGICAL usePP81 |
LOGICAL usePP81 |
689 |
LOGICAL useMY82 |
LOGICAL useMY82 |
690 |
|
LOGICAL useGGL90 |
691 |
LOGICAL useKPP |
LOGICAL useKPP |
692 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
693 |
LOGICAL useOBCS |
LOGICAL useOBCS |
712 |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useGrdchk, useFLT, |
713 |
& usePTRACERS, useSBO, useSEAICE, useThSIce, useBulkForce, |
& usePTRACERS, useSBO, useSEAICE, useThSIce, useBulkForce, |
714 |
& usefizhi, usegridalt, usediagnostics, useEBM, |
& usefizhi, usegridalt, usediagnostics, useEBM, |
715 |
& usePP81, useMY82 |
& usePP81, useMY82, useOPPS, useGGL90 |
716 |
|
|
717 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
718 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |