5 |
C Common blocks for diagnostics package. |
C Common blocks for diagnostics package. |
6 |
C - diagarrays contains the master list of diagnostics and parameters |
C - diagarrays contains the master list of diagnostics and parameters |
7 |
C ndiagt :: total number of available diagnostics |
C ndiagt :: total number of available diagnostics |
|
C cdiag - character names |
|
|
C idiag - slot number in large diagnostic array |
|
8 |
C kdiag - number of levels associated with the diagnostic |
C kdiag - number of levels associated with the diagnostic |
9 |
C ndiag - counter for number of times diagnostic is added |
C cdiag - character names |
10 |
C tdiag - description of field in diagnostic |
C tdiag - description of field in diagnostic |
11 |
C gdiag - parser field with characteristics of the diagnostics |
C gdiag - parser field with characteristics of the diagnostics |
12 |
C udiag - physical units of the diagnostic field |
C udiag - physical units of the diagnostic field |
13 |
C - diagnostics contains the large array containing diagnostic fields |
C - diagnostics contains the large array containing diagnostic fields |
14 |
C qdiag - diagnostic fields array |
C qdiag - diagnostic fields array |
15 |
C qSdiag - storage array for diagnostics of (per level) statistics |
C qSdiag - storage array for diagnostics of (per level) statistics |
16 |
|
C ndiag - counter for number of times diagnostic is added |
17 |
C - diag_choices contains the user-chosen list of fields to store |
C - diag_choices contains the user-chosen list of fields to store |
18 |
|
C idiag - slot number in large diagnostic array |
19 |
|
C mdiag - slot number in large diagnostic array for the mate |
20 |
C jdiag - short-list (active diag.) to long-list (available diag.) |
C jdiag - short-list (active diag.) to long-list (available diag.) |
21 |
C pointer |
C pointer |
22 |
C - diag_statis contains the user-chosen list of statistics to store |
C - diag_statis contains the user-chosen list of statistics to store |
26 |
|
|
27 |
integer ndiagt |
integer ndiagt |
28 |
|
|
|
character*8 cdiag(ndiagMax) |
|
|
integer idiag(ndiagMax) |
|
29 |
integer kdiag(ndiagMax) |
integer kdiag(ndiagMax) |
30 |
integer ndiag(ndiagMax) |
c integer idiag(ndiagMax) |
31 |
|
c integer ndiag(ndiagMax) |
32 |
c integer mdiag(ndiagMax) |
c integer mdiag(ndiagMax) |
33 |
|
character*8 cdiag(ndiagMax) |
34 |
character*80 tdiag(ndiagMax) |
character*80 tdiag(ndiagMax) |
35 |
character*16 gdiag(ndiagMax) |
character*16 gdiag(ndiagMax) |
36 |
character*16 udiag(ndiagMax) |
character*16 udiag(ndiagMax) |
37 |
|
|
38 |
common /diagarrays/ ndiagt |
common /diagarrays/ ndiagt |
|
common /diagarrays/ cdiag |
|
|
common /diagarrays/ idiag |
|
39 |
common /diagarrays/ kdiag |
common /diagarrays/ kdiag |
40 |
common /diagarrays/ ndiag |
c common /diagarrays/ idiag |
41 |
|
c common /diagarrays/ ndiag |
42 |
c common /diagarrays/ mdiag |
c common /diagarrays/ mdiag |
43 |
|
common /diagarrays/ cdiag |
44 |
common /diagarrays/ tdiag |
common /diagarrays/ tdiag |
45 |
common /diagarrays/ gdiag |
common /diagarrays/ gdiag |
46 |
common /diagarrays/ udiag |
common /diagarrays/ udiag |
47 |
|
|
48 |
|
#ifdef ALLOW_DIRECT_FILLING_WITH_EQUIV |
49 |
|
|
50 |
CHARACTER*8 CUFLUX |
CHARACTER*8 CUFLUX |
51 |
CHARACTER*8 CVFLUX |
CHARACTER*8 CVFLUX |
52 |
CHARACTER*8 CHFLUX |
CHARACTER*8 CHFLUX |
1435 |
EQUIVALENCE ( NDIAG(236), NGWCU ) |
EQUIVALENCE ( NDIAG(236), NGWCU ) |
1436 |
EQUIVALENCE ( NDIAG(237), NGWCV ) |
EQUIVALENCE ( NDIAG(237), NGWCV ) |
1437 |
|
|
1438 |
|
#endif /* ALLOW_DIRECT_FILLING_WITH_EQUIV */ |
1439 |
|
|
1440 |
C diagnostics common |
C diagnostics common |
1441 |
C qSdiag - storage array for (per level) statistics |
C qSdiag - storage array for (per level) statistics |
1442 |
|
|
1443 |
_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) |
1444 |
_RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy) |
_RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy) |
1445 |
|
integer ndiag(numdiags,nSx,nSy) |
1446 |
|
|
1447 |
common /diagnostics/ qdiag, qSdiag |
common /diagnostics/ qdiag, qSdiag, ndiag |
1448 |
|
|
1449 |
|
|
1450 |
C diag_choices common |
C diag_choices common |
1458 |
integer nlists |
integer nlists |
1459 |
|
|
1460 |
_RL freq(numlists), phase(numlists) |
_RL freq(numlists), phase(numlists) |
1461 |
|
_RL levs (numLevels,numlists) |
1462 |
integer nlevels(numlists) |
integer nlevels(numlists) |
1463 |
integer nfields(numlists) |
integer nfields(numlists) |
1464 |
integer nActive(numlists) |
integer nActive(numlists) |
1465 |
_RL levs (numLevels,numlists) |
integer idiag(numperlist,numlists) |
1466 |
|
integer mdiag(numperlist,numlists) |
1467 |
integer jdiag(numperlist,numlists) |
integer jdiag(numperlist,numlists) |
1468 |
character*8 flds (numperlist,numlists) |
character*8 flds (numperlist,numlists) |
1469 |
character*80 fnames(numlists) |
character*80 fnames(numlists) |
1470 |
character*8 fflags(numlists) |
character*8 fflags(numlists) |
1471 |
logical dumpatlast, |
logical dumpatlast, diag_mdsio, diag_mnc |
1472 |
& diag_mdsio, diag_mnc, |
logical diag_pickup_read, diag_pickup_write |
1473 |
|
logical diag_pickup_read_mdsio, diag_pickup_write_mdsio |
1474 |
|
logical diag_pickup_read_mnc, diag_pickup_write_mnc |
1475 |
|
|
1476 |
|
common /diag_choices/ |
1477 |
|
& freq, phase, levs, nlevels, |
1478 |
|
& nfields, nActive, nlists, |
1479 |
|
& idiag, mdiag, jdiag, |
1480 |
|
& dumpatlast, diag_mdsio, diag_mnc, |
1481 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
1482 |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
1483 |
& diag_pickup_read_mnc, diag_pickup_write_mnc |
& diag_pickup_read_mnc, diag_pickup_write_mnc, |
1484 |
|
& flds, fnames, fflags |
1485 |
|
|
|
common /diag_choices/ |
|
|
& freq, phase, levs, nlevels, |
|
|
& nfields, nActive, nlists, jdiag, |
|
|
& flds, fnames, fflags, dumpatlast, |
|
|
& diag_mdsio, diag_mnc, |
|
|
& diag_pickup_read, diag_pickup_write, |
|
|
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
|
|
& diag_pickup_read_mnc, diag_pickup_write_mnc |
|
|
|
|
1486 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
1487 |
|
|
1488 |
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
1489 |
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
1490 |
CHARACTER*80 diagSt_Fname(numlists) |
CHARACTER*80 diagSt_Fname(numlists) |
1491 |
INTEGER iSdiag(ndiagMax) |
INTEGER iSdiag(numperlist,numlists) |
1492 |
INTEGER jSdiag(numperlist,numlists) |
INTEGER jSdiag(numperlist,numlists) |
1493 |
|
INTEGER mSdiag(numperlist,numlists) |
1494 |
INTEGER diagSt_region(0:nRegions,numlists) |
INTEGER diagSt_region(0:nRegions,numlists) |
1495 |
INTEGER diagSt_nbFlds(numlists) |
INTEGER diagSt_nbFlds(numlists) |
1496 |
INTEGER diagSt_nbActv(numlists) |
INTEGER diagSt_nbActv(numlists) |
1497 |
INTEGER diagSt_nbLists |
INTEGER diagSt_nbLists |
1498 |
INTEGER diagSt_ioUnit(numlists) |
INTEGER diagSt_ioUnit(numlists) |
1499 |
LOGICAL diagSt_ascii, diagSt_mnc |
LOGICAL diagSt_ascii, diagSt_mnc |
1500 |
COMMON / DIAG_STATIS / |
COMMON / DIAG_STATIS / |
1501 |
& diagSt_freq, diagSt_phase, |
& diagSt_freq, diagSt_phase, |
1502 |
& diagSt_Flds, diagSt_Fname, |
& iSdiag, jSdiag, mSdiag, diagSt_region, |
|
& iSdiag, jSdiag, diagSt_region, |
|
1503 |
& diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists, |
& diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists, |
1504 |
& diagSt_ioUnit, |
& diagSt_ioUnit, |
1505 |
& diagSt_Ascii, diagSt_mnc |
& diagSt_Ascii, diagSt_mnc, |
1506 |
|
& diagSt_Flds, diagSt_Fname |
1507 |
|
|
1508 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
1509 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |