64 |
C averageFreq :: frequency (in s) for periodic averaging interval |
C averageFreq :: frequency (in s) for periodic averaging interval |
65 |
C averagePhase:: phase (in s) for periodic averaging interval |
C averagePhase:: phase (in s) for periodic averaging interval |
66 |
C averageCycle:: number of averaging intervals in 1 cycle |
C averageCycle:: number of averaging intervals in 1 cycle |
67 |
|
C misvalFlt(n):: missing value for floats to use in output stream #n |
68 |
|
C misvalInt(n):: missing value for integers to use in output stream #n |
69 |
C nfields(n) :: number of active diagnostics for output stream # n |
C nfields(n) :: number of active diagnostics for output stream # n |
70 |
C nActive(n) :: number of active diagnostics (including counters) |
C nActive(n) :: number of active diagnostics (including counters) |
71 |
C for output stream # n |
C for output stream # n |
80 |
_RL freq(numlists), phase(numlists) |
_RL freq(numlists), phase(numlists) |
81 |
_RL levs (numLevels,numlists) |
_RL levs (numLevels,numlists) |
82 |
_RL averageFreq(numlists), averagePhase(numlists) |
_RL averageFreq(numlists), averagePhase(numlists) |
83 |
|
_RL misvalFlt(numlists) |
84 |
|
INTEGER misvalInt(numlists) |
85 |
INTEGER averageCycle(numlists) |
INTEGER averageCycle(numlists) |
86 |
INTEGER nlevels(numlists) |
INTEGER nlevels(numlists) |
87 |
INTEGER nfields(numlists) |
INTEGER nfields(numlists) |
101 |
COMMON / DIAG_SELECT / |
COMMON / DIAG_SELECT / |
102 |
& freq, phase, levs, |
& freq, phase, levs, |
103 |
& averageFreq, averagePhase, averageCycle, |
& averageFreq, averagePhase, averageCycle, |
104 |
|
& misvalFlt, misvalInt, |
105 |
& nlevels, nfields, nActive, nlists, |
& nlevels, nfields, nActive, nlists, |
106 |
& idiag, mdiag, jdiag, |
& idiag, mdiag, jdiag, |
107 |
& dumpAtLast, diag_mdsio, diag_mnc, |
& dumpAtLast, diag_mdsio, diag_mnc, |