14 |
C udiag - physical units of the diagnostic field |
C udiag - physical units of the diagnostic field |
15 |
C - diagnostics contains the large array containing diagnostic fields |
C - diagnostics contains the large array containing diagnostic fields |
16 |
C qdiag - diagnostic fields array |
C qdiag - diagnostic fields array |
17 |
|
C qSdiag - storage array for diagnostics of (per level) statistics |
18 |
|
C - diag_choices contains the user-chosen list of fields to store |
19 |
C jdiag - short-list (active diag.) to long-list (available diag.) |
C jdiag - short-list (active diag.) to long-list (available diag.) |
20 |
C pointer |
C pointer |
21 |
C - diag_choices contains the user-chosen list of fields to store |
C - diag_statis contains the user-chosen list of statistics to store |
22 |
C ====================================================================== |
C ====================================================================== |
23 |
|
|
24 |
C diagarrays common |
C diagarrays common |
29 |
integer idiag(ndiagMax) |
integer idiag(ndiagMax) |
30 |
integer kdiag(ndiagMax) |
integer kdiag(ndiagMax) |
31 |
integer ndiag(ndiagMax) |
integer ndiag(ndiagMax) |
32 |
integer mdiag(ndiagMax) |
c integer mdiag(ndiagMax) |
33 |
character*80 tdiag(ndiagMax) |
character*80 tdiag(ndiagMax) |
34 |
character*16 gdiag(ndiagMax) |
character*16 gdiag(ndiagMax) |
35 |
character*16 udiag(ndiagMax) |
character*16 udiag(ndiagMax) |
39 |
common /diagarrays/ idiag |
common /diagarrays/ idiag |
40 |
common /diagarrays/ kdiag |
common /diagarrays/ kdiag |
41 |
common /diagarrays/ ndiag |
common /diagarrays/ ndiag |
42 |
common /diagarrays/ mdiag |
c common /diagarrays/ mdiag |
43 |
common /diagarrays/ tdiag |
common /diagarrays/ tdiag |
44 |
common /diagarrays/ gdiag |
common /diagarrays/ gdiag |
45 |
common /diagarrays/ udiag |
common /diagarrays/ udiag |
1434 |
|
|
1435 |
|
|
1436 |
C diagnostics common |
C diagnostics common |
1437 |
|
C qSdiag - storage array for (per level) statistics |
1438 |
|
|
1439 |
_RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy) |
_RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy) |
1440 |
|
_RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy) |
1441 |
|
|
1442 |
common /diagnostics/ qdiag |
common /diagnostics/ qdiag, qSdiag |
1443 |
|
|
1444 |
|
|
1445 |
C diag_choices common |
C diag_choices common |
1446 |
|
C freq :: frequency (in s) to write output stream # n |
1447 |
|
C phase :: phase (in s) to write output stream # n |
1448 |
C nfields(n) :: number of active diagnostics for output stream # n |
C nfields(n) :: number of active diagnostics for output stream # n |
1449 |
C nActive(n) :: number of active diagnostics (including counters) |
C nActive(n) :: number of active diagnostics (including counters) |
1450 |
C for output stream # n |
C for output stream # n |
1451 |
|
C fflags(n) :: character string with per-file flags |
1452 |
|
|
1453 |
integer nlists |
integer nlists |
1454 |
|
|
1455 |
integer freq(numlists) |
_RL freq(numlists), phase(numlists) |
1456 |
integer nlevels(numlists) |
integer nlevels(numlists) |
1457 |
integer nfields(numlists) |
integer nfields(numlists) |
1458 |
integer nActive(numlists) |
integer nActive(numlists) |
1459 |
_RL levs (numLevels,numlists) |
_RL levs (numLevels,numlists) |
1460 |
integer jdiag(numperlist,numlists) |
integer jdiag(numperlist,numlists) |
1461 |
character*8 flds (numperlist,numlists) |
character*8 flds (numperlist,numlists) |
1462 |
character*8 fnames(numlists) |
character*80 fnames(numlists) |
1463 |
logical diag_mdsio |
character*8 fflags(numlists) |
1464 |
logical diag_mnc |
logical |
1465 |
|
& diag_mdsio, diag_mnc, |
1466 |
|
& diag_pickup_read, diag_pickup_write, |
1467 |
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1468 |
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1469 |
|
|
1470 |
common /diag_choices/ |
common /diag_choices/ |
1471 |
& levs, jdiag, flds, fnames, |
& freq, phase, levs, nlevels, |
1472 |
& freq, nlevels, nfields, nActive, nlists, |
& nfields, nActive, nlists, jdiag, |
1473 |
& diag_mdsio, diag_mnc |
& flds, fnames, fflags, |
1474 |
|
& diag_mdsio, diag_mnc, |
1475 |
|
& diag_pickup_read, diag_pickup_write, |
1476 |
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1477 |
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
1478 |
|
|
1479 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
1480 |
|
|
1481 |
|
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
1482 |
|
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
1483 |
|
CHARACTER*80 diagSt_Fname(numlists) |
1484 |
|
INTEGER iSdiag(ndiagMax) |
1485 |
|
INTEGER jSdiag(numperlist,numlists) |
1486 |
|
INTEGER diagSt_region(0:nRegions,numlists) |
1487 |
|
INTEGER diagSt_nbFlds(numlists) |
1488 |
|
INTEGER diagSt_nbActv(numlists) |
1489 |
|
INTEGER diagSt_nbLists |
1490 |
|
INTEGER diagSt_ioUnit(numlists) |
1491 |
|
LOGICAL diagSt_ascii, diagSt_mnc |
1492 |
|
COMMON / DIAG_STATIS / |
1493 |
|
& diagSt_freq, diagSt_phase, |
1494 |
|
& diagSt_Flds, diagSt_Fname, |
1495 |
|
& iSdiag, jSdiag, diagSt_region, |
1496 |
|
& diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists, |
1497 |
|
& diagSt_ioUnit, |
1498 |
|
& diagSt_Ascii, diagSt_mnc |
1499 |
|
|
1500 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
1501 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |