1442 |
C nActive(n) :: number of active diagnostics (including counters) |
C nActive(n) :: number of active diagnostics (including counters) |
1443 |
C for output stream # n |
C for output stream # n |
1444 |
C fflags(n) :: character string with per-file flags |
C fflags(n) :: character string with per-file flags |
1445 |
|
C freq :: frequency (in s) to write output stream # n |
1446 |
|
C phase :: phase (in s) to write output stream # n |
1447 |
|
|
1448 |
integer nlists |
integer nlists |
1449 |
|
|
1450 |
_RL freq(numlists) |
_RL freq(numlists), phase(numlists) |
1451 |
integer nlevels(numlists) |
integer nlevels(numlists) |
1452 |
integer nfields(numlists) |
integer nfields(numlists) |
1453 |
integer nActive(numlists) |
integer nActive(numlists) |
1464 |
|
|
1465 |
common /diag_choices/ |
common /diag_choices/ |
1466 |
& levs, jdiag, flds, fnames, fflags, |
& levs, jdiag, flds, fnames, fflags, |
1467 |
& freq, nlevels, nfields, nActive, nlists, |
& freq, phase, nlevels, nfields, nActive, nlists, |
1468 |
& diag_mdsio, diag_mnc, |
& diag_mdsio, diag_mnc, |
1469 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
1470 |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |