1441 |
C nfields(n) :: number of active diagnostics for output stream # n |
C nfields(n) :: number of active diagnostics for output stream # n |
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 |
1445 |
|
|
1446 |
integer nlists |
integer nlists |
1447 |
|
|
1453 |
integer jdiag(numperlist,numlists) |
integer jdiag(numperlist,numlists) |
1454 |
character*8 flds (numperlist,numlists) |
character*8 flds (numperlist,numlists) |
1455 |
character*80 fnames(numlists) |
character*80 fnames(numlists) |
1456 |
|
character*8 fflags(numlists) |
1457 |
logical |
logical |
1458 |
& diag_mdsio, diag_mnc, |
& diag_mdsio, diag_mnc, |
1459 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
1461 |
& diag_pickup_read_mnc, diag_pickup_write_mnc |
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1462 |
|
|
1463 |
common /diag_choices/ |
common /diag_choices/ |
1464 |
& levs, jdiag, flds, fnames, |
& levs, jdiag, flds, fnames, fflags, |
1465 |
& freq, nlevels, nfields, nActive, nlists, |
& freq, nlevels, nfields, nActive, nlists, |
1466 |
& diag_mdsio, diag_mnc, |
& diag_mdsio, diag_mnc, |
1467 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |