/[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.16 by jmc, Fri Jan 15 00:24:37 2010 UTC revision 1.18 by jmc, Fri Jul 1 18:28:52 2011 UTC
# Line 15  C  - DIAG_STORE  contains the large arra Line 15  C  - DIAG_STORE  contains the large arra
15  C         qdiag :: storage array for 2D/3D diagnostic fields  C         qdiag :: storage array for 2D/3D diagnostic fields
16  C        qSdiag :: storage array for diagnostics of (per level) statistics  C        qSdiag :: storage array for diagnostics of (per level) statistics
17  C         ndiag :: holds number of times a diagnostic is filled (for time-mean diag)  C         ndiag :: holds number of times a diagnostic is filled (for time-mean diag)
18  C  - DIAG_SELECT  contains the user selection of diagnostics to write  C  - DIAG_SELECT contains the user selection of diagnostics to write
19  C         idiag :: slot number in large diagnostic array  C         idiag :: slot number in large diagnostic array
20  C         mdiag :: slot number in large diagnostic array for the mate  C         mdiag :: slot number in large diagnostic array for the mate
21  C         jdiag :: short-list (active diag.) to long-list (available diag.)  C         jdiag :: short-list (active diag.) to long-list (available diag.)
22  C                  pointer  C                  pointer
23  C  - DIAG_STATIS  contains the user selection of statistics to write  C  - DIAG_PARAMS contains general parameters (used for both 2D/3D & Stats diags)
24    C  - DIAG_STATIS contains the user selection of statistics-diags to write
25  C ======================================================================  C ======================================================================
26    
27  C--   DIAG_DEFINE common block:  C--   DIAG_DEFINE common block:
# Line 31  C       cdiag  :: list of available diag Line 32  C       cdiag  :: list of available diag
32  C       gdiag  :: parser field with characteristics of the diagnostics  C       gdiag  :: parser field with characteristics of the diagnostics
33  C       tdiag  :: description of field in diagnostic  C       tdiag  :: description of field in diagnostic
34  C       udiag  :: physical units of the diagnostic field  C       udiag  :: physical units of the diagnostic field
35    C settingDiags :: internal flag: enable adding/changing available diagnostics list
36    
37        INTEGER        ndiagt        INTEGER        ndiagt
38        INTEGER        kdiag(ndiagMax)        INTEGER        kdiag(ndiagMax)
# Line 39  C       udiag  :: physical units of the Line 41  C       udiag  :: physical units of the
41        CHARACTER*80   tdiag(ndiagMax)        CHARACTER*80   tdiag(ndiagMax)
42        CHARACTER*16   gdiag(ndiagMax)        CHARACTER*16   gdiag(ndiagMax)
43        CHARACTER*16   udiag(ndiagMax)        CHARACTER*16   udiag(ndiagMax)
44          LOGICAL settingDiags
45    
46        COMMON / DIAG_DEFINE_I /        COMMON / DIAG_DEFINE_I /
47       &  ndiagt, kdiag, hdiag       &  ndiagt, kdiag, hdiag
48        COMMON / DIAG_DEFINE_C /        COMMON / DIAG_DEFINE_C /
49       &  cdiag, gdiag, tdiag, udiag       &  cdiag, gdiag, tdiag, udiag
50          COMMON / DIAG_DEFINE_L /
51         &  settingDiags
52    
53  C--   DIAG_STORE common block:  C--   DIAG_STORE common block:
54  C       qdiag  :: storage array for 2D/3D diagnostic fields  C       qdiag  :: storage array for 2D/3D diagnostic fields
# Line 54  C       pdiag  :: index of current avera Line 59  C       pdiag  :: index of current avera
59        _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)
60        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
61        INTEGER  ndiag(numDiags,nSx,nSy)        INTEGER  ndiag(numDiags,nSx,nSy)
62        INTEGER  pdiag(numlists,nSx,nSy)        INTEGER  pdiag(numLists,nSx,nSy)
63    
64        COMMON / DIAG_STORE_R / qdiag, qSdiag        COMMON / DIAG_STORE_R / qdiag, qSdiag
65        COMMON / DIAG_STORE_I / ndiag, pdiag        COMMON / DIAG_STORE_I / ndiag, pdiag
# Line 79  C     jdiag(:,n)  :: short-list (active Line 84  C     jdiag(:,n)  :: short-list (active
84  C     flds(:,n)   :: list of field names in output stream # n  C     flds(:,n)   :: list of field names in output stream # n
85  C     fnames(n)   :: output file name for output stream # n  C     fnames(n)   :: output file name for output stream # n
86  C     fflags(n)   :: character string with per-file flags  C     fflags(n)   :: character string with per-file flags
87  C    settingDiags :: internal flag: enable adding/changing available diagnostics list  C useMissingValue :: put MissingValue where mask = 0 (NetCDF output only)
 C     dumpAtLast  :: always write time-ave (freq>0) diagnostics at the end of the run  
88    
89        _RL freq(numlists), phase(numlists)        _RL freq(numLists), phase(numLists)
90        _RL averageFreq(numlists), averagePhase(numlists)        _RL averageFreq(numLists), averagePhase(numLists)
91        _RL misvalFlt(numlists)        _RL misvalFlt(numLists)
92        _RL levs (numLevels,numlists)        _RL levs (numLevels,numLists)
93        INTEGER averageCycle(numlists)        INTEGER averageCycle(numLists)
94        INTEGER misvalInt(numlists)        INTEGER misvalInt(numLists)
95        INTEGER nlevels(numlists)        INTEGER nlevels(numLists)
96        INTEGER nfields(numlists)        INTEGER nfields(numLists)
97        INTEGER nActive(numlists)        INTEGER nActive(numLists)
98        INTEGER nlists        INTEGER nlists
99        INTEGER idiag(numperlist,numlists)        INTEGER idiag(numperList,numLists)
100        INTEGER mdiag(numperlist,numlists)        INTEGER mdiag(numperList,numLists)
101        INTEGER jdiag(numperlist,numlists)        INTEGER jdiag(numperList,numLists)
102        CHARACTER*8  flds  (numperlist,numlists)        CHARACTER*8  flds  (numperList,numLists)
103        CHARACTER*80 fnames(numlists)        CHARACTER*80 fnames(numLists)
104        CHARACTER*8  fflags(numlists)        CHARACTER*8  fflags(numLists)
105        LOGICAL settingDiags        LOGICAL diag_mdsio, diag_mnc, useMissingValue
       LOGICAL dumpAtLast, diag_mdsio,  diag_mnc  
       LOGICAL diag_pickup_read,        diag_pickup_write  
       LOGICAL diag_pickup_read_mdsio,  diag_pickup_write_mdsio  
       LOGICAL diag_pickup_read_mnc,    diag_pickup_write_mnc  
106    
107        COMMON / DIAG_SELECT_R /        COMMON / DIAG_SELECT_R /
108       &     freq, phase, averageFreq, averagePhase,       &     freq, phase, averageFreq, averagePhase,
# Line 114  C     dumpAtLast  :: always write time-a Line 114  C     dumpAtLast  :: always write time-a
114        COMMON / DIAG_SELECT_C /        COMMON / DIAG_SELECT_C /
115       &     flds, fnames, fflags       &     flds, fnames, fflags
116        COMMON / DIAG_SELECT_L /        COMMON / DIAG_SELECT_L /
117       &     settingDiags, dumpAtLast, diag_mdsio, diag_mnc,       &     diag_mdsio, diag_mnc, useMissingValue
118    
119    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
120    
121    C  - DIAG_PARAMS common block:
122    C    diagLoc_ioUnit :: internal parameter: I/O unit for local diagnostics output
123    C    dumpAtLast :: always write time-ave (freq>0) diagnostics at the end of the run
124          INTEGER diagLoc_ioUnit
125          LOGICAL dumpAtLast
126          LOGICAL diag_pickup_read,        diag_pickup_write
127          LOGICAL diag_pickup_read_mdsio,  diag_pickup_write_mdsio
128          LOGICAL diag_pickup_read_mnc,    diag_pickup_write_mnc
129    
130          COMMON / DIAG_PARAMS_I /
131         &     diagLoc_ioUnit
132          COMMON / DIAG_PARAMS_L /
133         &     dumpAtLast,
134       &     diag_pickup_read,        diag_pickup_write,       &     diag_pickup_read,        diag_pickup_write,
135       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
136       &     diag_pickup_read_mnc,    diag_pickup_write_mnc       &     diag_pickup_read_mnc,    diag_pickup_write_mnc
# Line 138  C     diagSt_ioUnit(n) :: fortran IO uni Line 154  C     diagSt_ioUnit(n) :: fortran IO uni
154  C     diagSt_Flds(:,n) :: list of field names in output stream # n  C     diagSt_Flds(:,n) :: list of field names in output stream # n
155  C     diagSt_Fname(n)  :: output file name for output stream # n  C     diagSt_Fname(n)  :: output file name for output stream # n
156    
157        _RL       diagSt_freq(numlists), diagSt_phase(numlists)        _RL       diagSt_freq(numLists), diagSt_phase(numLists)
158        INTEGER   iSdiag(numperlist,numlists)        INTEGER   iSdiag(numperList,numLists)
159        INTEGER   mSdiag(numperlist,numlists)        INTEGER   mSdiag(numperList,numLists)
160        INTEGER   jSdiag(numperlist,numlists)        INTEGER   jSdiag(numperList,numLists)
161        INTEGER   diagSt_region(0:nRegions,numlists)        INTEGER   diagSt_region(0:nRegions,numLists)
162        INTEGER   diagSt_nbFlds(numlists)        INTEGER   diagSt_nbFlds(numLists)
163        INTEGER   diagSt_nbActv(numlists)        INTEGER   diagSt_nbActv(numLists)
164        INTEGER   diagSt_nbLists        INTEGER   diagSt_nbLists
165        INTEGER   diagSt_ioUnit(numlists)        INTEGER   diagSt_ioUnit(numLists)
166        CHARACTER*8  diagSt_Flds(numperlist,numlists)        CHARACTER*8  diagSt_Flds(numperList,numLists)
167        CHARACTER*80 diagSt_Fname(numlists)        CHARACTER*80 diagSt_Fname(numLists)
168        LOGICAL   diagSt_ascii, diagSt_mnc        LOGICAL   diagSt_ascii, diagSt_mnc
169    
170        COMMON / DIAG_STATIS_R /        COMMON / DIAG_STATIS_R /
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22