/[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.2 by jmc, Sat Dec 18 23:53:04 2004 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
16    C         ndiag - counter for number of times diagnostic is added
17    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_choices contains the user-chosen list of fields to store  C  - diag_statis  contains the user-chosen list of statistics to store
23  C ======================================================================  C ======================================================================
24    
25  C diagarrays common  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        integer        mdiag(ndiagMax)  c     integer        ndiag(ndiagMax)
32    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        common /diagarrays/ mdiag  c     common /diagarrays/ ndiag
42    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 1430  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
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)
1445          integer  ndiag(numdiags,nSx,nSy)
1446    
1447        common /diagnostics/ qdiag        common /diagnostics/ qdiag, qSdiag, ndiag
1448    
1449            
1450  C diag_choices common  C diag_choices common
1451    C     freq       :: frequency (in s) to write output stream # n
1452    C     phase      :: phase     (in s) to write output stream # n
1453  C     nfields(n) :: number of active diagnostics for output stream # n  C     nfields(n) :: number of active diagnostics for output stream # n
1454  C     nActive(n) :: number of active diagnostics (including counters)  C     nActive(n) :: number of active diagnostics (including counters)
1455  C                   for output stream # n  C                   for output stream # n
1456    C     fflags(n)  :: character string with per-file flags
1457    
1458        integer nlists        integer nlists
1459    
1460        integer freq(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*8 fnames(numlists)        character*80 fnames(numlists)
1470        logical diag_mdsio        character*8 fflags(numlists)
1471        logical diag_mnc        logical dumpatlast, diag_mdsio,  diag_mnc
1472          logical diag_pickup_read,        diag_pickup_write
1473        common /diag_choices/        logical diag_pickup_read_mdsio,  diag_pickup_write_mdsio
1474       &     levs, jdiag, flds, fnames,        logical diag_pickup_read_mnc,    diag_pickup_write_mnc
1475       &     freq, nlevels, nfields, nActive, nlists,  
1476       &     diag_mdsio, diag_mnc        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,
1482         &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
1483         &     diag_pickup_read_mnc,    diag_pickup_write_mnc,
1484         &     flds, fnames, fflags
1485    
1486    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1487    
1488          _RL       diagSt_freq(numlists), diagSt_phase(numlists)
1489          CHARACTER*8  diagSt_Flds(numperlist,numlists)
1490          CHARACTER*80 diagSt_Fname(numlists)
1491          INTEGER   iSdiag(numperlist,numlists)
1492          INTEGER   jSdiag(numperlist,numlists)
1493          INTEGER   mSdiag(numperlist,numlists)
1494          INTEGER   diagSt_region(0:nRegions,numlists)
1495          INTEGER   diagSt_nbFlds(numlists)
1496          INTEGER   diagSt_nbActv(numlists)
1497          INTEGER   diagSt_nbLists
1498          INTEGER   diagSt_ioUnit(numlists)
1499          LOGICAL   diagSt_ascii, diagSt_mnc
1500          COMMON / DIAG_STATIS /
1501         &     diagSt_freq, diagSt_phase,
1502         &     iSdiag, jSdiag, mSdiag, diagSt_region,
1503         &     diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists,
1504         &     diagSt_ioUnit,
1505         &     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.2  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22