1452 |
integer jdiag(numperlist,numlists) |
integer jdiag(numperlist,numlists) |
1453 |
character*8 flds (numperlist,numlists) |
character*8 flds (numperlist,numlists) |
1454 |
character*8 fnames(numlists) |
character*8 fnames(numlists) |
1455 |
logical diag_mdsio |
logical |
1456 |
logical diag_mnc |
& diag_mdsio, diag_mnc, |
1457 |
|
& diag_pickup_read, diag_pickup_write, |
1458 |
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1459 |
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1460 |
|
|
1461 |
common /diag_choices/ |
common /diag_choices/ |
1462 |
& levs, jdiag, flds, fnames, |
& levs, jdiag, flds, fnames, |
1463 |
& freq, nlevels, nfields, nActive, nlists, |
& freq, nlevels, nfields, nActive, nlists, |
1464 |
& diag_mdsio, diag_mnc |
& diag_mdsio, diag_mnc, |
1465 |
|
& diag_pickup_read, diag_pickup_write, |
1466 |
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1467 |
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1468 |
|
|
1469 |
|
|
1470 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
1471 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |