/[MITgcm]/MITgcm/pkg/diagnostics/DIAGNOSTICS.h
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/DIAGNOSTICS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by molod, Tue Jun 14 23:06:15 2005 UTC revision 1.10 by jmc, Sun Jun 26 16:51:49 2005 UTC
# Line 5  C ====================================== Line 5  C ======================================
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
# Line 25  C diagarrays common Line 26  C diagarrays common
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
# Line 1432  C ------------------- Line 1435  C -------------------
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
# Line 1453  C     fflags(n)  :: character string wit Line 1458  C     fflags(n)  :: character string wit
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 ***
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22