1461 |
character*8 flds (numperlist,numlists) |
character*8 flds (numperlist,numlists) |
1462 |
character*80 fnames(numlists) |
character*80 fnames(numlists) |
1463 |
character*8 fflags(numlists) |
character*8 fflags(numlists) |
1464 |
logical |
logical dumpatlast, |
1465 |
& diag_mdsio, diag_mnc, |
& diag_mdsio, diag_mnc, |
1466 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
1467 |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1470 |
common /diag_choices/ |
common /diag_choices/ |
1471 |
& freq, phase, levs, nlevels, |
& freq, phase, levs, nlevels, |
1472 |
& nfields, nActive, nlists, jdiag, |
& nfields, nActive, nlists, jdiag, |
1473 |
& flds, fnames, fflags, |
& flds, fnames, fflags, dumpatlast, |
1474 |
& diag_mdsio, diag_mnc, |
& diag_mdsio, diag_mnc, |
1475 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
1476 |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |