/[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.12 by jmc, Mon Jan 23 22:13:53 2006 UTC revision 1.13 by jmc, Mon Jun 5 18:15:53 2006 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  C ======================================================================  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  - DIAG_DEFINE contains the definition of all available diagnostics
7  C        ndiagt :: total number of available diagnostics  C        ndiagt :: total number of available diagnostics
8  C         kdiag - number of levels associated with the diagnostic  C         kdiag :: number of levels associated with the diagnostic
9  C         cdiag - character names  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  - DIAG_STORE  contains the large array to store 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  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_SELECT  contains the user selection of diagnostics to write
18  C         idiag - slot number in large diagnostic array  C         idiag :: slot number in large diagnostic array
19  C         mdiag - slot number in large diagnostic array for the mate  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 selection of statistics to write
23  C ======================================================================  C ======================================================================
24    
25  C diagarrays common  C--   DIAG_DEFINE common block:
26    C        ndiagt :: total number of available diagnostics
27        integer        ndiagt  C         kdiag :: number of levels associated with the diagnostic
28    C         cdiag :: character names
29        integer        kdiag(ndiagMax)  C         tdiag :: description of field in diagnostic
30        character*8    cdiag(ndiagMax)  C         gdiag :: parser field with CHARACTERistics of the diagnostics
31        character*80   tdiag(ndiagMax)  C         udiag :: physical units of the diagnostic field
32        character*16   gdiag(ndiagMax)  
33        character*16   udiag(ndiagMax)        INTEGER        ndiagt
34          INTEGER        kdiag(ndiagMax)
35        common /diagarrays/ ndiagt        CHARACTER*8    cdiag(ndiagMax)
36        common /diagarrays/ kdiag        CHARACTER*80   tdiag(ndiagMax)
37        common /diagarrays/ cdiag        CHARACTER*16   gdiag(ndiagMax)
38        common /diagarrays/ tdiag        CHARACTER*16   udiag(ndiagMax)
39        common /diagarrays/ gdiag  
40        common /diagarrays/ udiag        COMMON / DIAG_DEFINE /
41         &  ndiagt, kdiag,
42  C diagnostics common       &  cdiag, tdiag, gdiag, udiag
43  C      qSdiag  - storage array for (per level) statistics  
44    C--   DIAG_STORE common block:
45    C       qdiag  :: diagnostic fields array
46    C       qSdiag :: storage array for (per level) statistics
47    C       ndiag  :: counter for number of times diagnostic is added
48    C       pdiag  :: index of current averaging interval within the averaging-cycle
49    
50        _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)
51        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
52        integer  ndiag(numdiags,nSx,nSy)        INTEGER  ndiag(numdiags,nSx,nSy)
53          INTEGER  pdiag(numlists,nSx,nSy)
54    
55        common /diagnostics/ qdiag, qSdiag, ndiag        COMMON / DIAG_STORE / qdiag, qSdiag, ndiag, pdiag
56    
57                    
58  C diag_choices common  C--   DIAG_SELECT common block:
59  C     freq       :: frequency (in s) to write output stream # n  C     freq        :: frequency (in s) to write output stream # n
60  C     phase      :: phase     (in s) to write output stream # n  C     phase       :: phase     (in s) to write output stream # n
61  C     nfields(n) :: number of active diagnostics for output stream # n  C     averageFreq :: frequency (in s) for periodic averaging interval
62  C     nActive(n) :: number of active diagnostics (including counters)  C     averagePhase:: phase     (in s) for periodic averaging interval
63  C                   for output stream # n  C     averageCycle:: number of averaging intervals in 1 cycle
64  C     fflags(n)  :: character string with per-file flags  C     nfields(n)  :: number of active diagnostics for output stream # n
65    C     nActive(n)  :: number of active diagnostics (including counters)
66        integer nlists  C                    for output stream # n
67    C     nlists      :: effective number of output streams
68    C     idiag       :: slot number in large diagnostic array
69    C     mdiag       :: slot number in large diagnostic array for the mate
70    C     jdiag       :: short-list (active diag.) to long-list (available diag.) pointer
71    C     flds(:,n)   :: list of field names in output stream # n
72    C     fnames(n)   :: output file name for output stream # n
73    C     fflags(n)   :: character string with per-file flags
74    
75        _RL freq(numlists), phase(numlists)        _RL freq(numlists), phase(numlists)
76        _RL levs (numLevels,numlists)        _RL levs (numLevels,numlists)
77        integer nlevels(numlists)        _RL averageFreq(numlists), averagePhase(numlists)
78        integer nfields(numlists)        INTEGER averageCycle(numlists)
79        integer nActive(numlists)        INTEGER nlevels(numlists)
80        integer idiag(numperlist,numlists)        INTEGER nfields(numlists)
81        integer mdiag(numperlist,numlists)        INTEGER nActive(numlists)
82        integer jdiag(numperlist,numlists)        INTEGER nlists
83        character*8 flds (numperlist,numlists)        INTEGER idiag(numperlist,numlists)
84        character*80 fnames(numlists)        INTEGER mdiag(numperlist,numlists)
85        character*8 fflags(numlists)        INTEGER jdiag(numperlist,numlists)
86        logical dumpatlast, diag_mdsio,  diag_mnc        CHARACTER*8 flds (numperlist,numlists)
87        logical diag_pickup_read,        diag_pickup_write        CHARACTER*80 fnames(numlists)
88        logical diag_pickup_read_mdsio,  diag_pickup_write_mdsio        CHARACTER*8 fflags(numlists)
89        logical diag_pickup_read_mnc,    diag_pickup_write_mnc        LOGICAL dumpAtLast, diag_mdsio,  diag_mnc
90          LOGICAL diag_pickup_read,        diag_pickup_write
91        common /diag_choices/        LOGICAL diag_pickup_read_mdsio,  diag_pickup_write_mdsio
92       &     freq, phase, levs, nlevels,        LOGICAL diag_pickup_read_mnc,    diag_pickup_write_mnc
93       &     nfields, nActive, nlists,  
94          COMMON / DIAG_SELECT /
95         &     freq, phase, levs,
96         &     averageFreq, averagePhase, averageCycle,
97         &     nlevels, nfields, nActive, nlists,
98       &     idiag, mdiag, jdiag,       &     idiag, mdiag, jdiag,
99       &     dumpatlast, diag_mdsio, diag_mnc,       &     dumpAtLast, diag_mdsio, diag_mnc,
100       &     diag_pickup_read,        diag_pickup_write,       &     diag_pickup_read,        diag_pickup_write,
101       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
102       &     diag_pickup_read_mnc,    diag_pickup_write_mnc,       &     diag_pickup_read_mnc,    diag_pickup_write_mnc,
# Line 87  C     fflags(n)  :: character string wit Line 104  C     fflags(n)  :: character string wit
104    
105  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
106    
107  C  DIAG_STATIS common block:  C--   DIAG_STATIS common block:
108  C     iSdiag :: slot number in large diagnostic array  C     iSdiag :: slot number in large diagnostic array
109  C     mSdiag :: slot number in large diagnostic array for the mate  C     mSdiag :: slot number in large diagnostic array for the mate
110  C     jSdiag :: short-list (active diag.) to long-list (available diag.)  C     jSdiag :: short-list (active diag.) to long-list (available diag.)
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22