/[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.17 by jmc, Mon Jun 27 22:23:09 2011 UTC
# Line 54  C       pdiag  :: index of current avera Line 54  C       pdiag  :: index of current avera
54        _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)
55        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
56        INTEGER  ndiag(numDiags,nSx,nSy)        INTEGER  ndiag(numDiags,nSx,nSy)
57        INTEGER  pdiag(numlists,nSx,nSy)        INTEGER  pdiag(numLists,nSx,nSy)
58    
59        COMMON / DIAG_STORE_R / qdiag, qSdiag        COMMON / DIAG_STORE_R / qdiag, qSdiag
60        COMMON / DIAG_STORE_I / ndiag, pdiag        COMMON / DIAG_STORE_I / ndiag, pdiag
# Line 81  C     fnames(n)   :: output file name fo Line 81  C     fnames(n)   :: output file name fo
81  C     fflags(n)   :: character string with per-file flags  C     fflags(n)   :: character string with per-file flags
82  C    settingDiags :: internal flag: enable adding/changing available diagnostics list  C    settingDiags :: internal flag: enable adding/changing available diagnostics list
83  C     dumpAtLast  :: always write time-ave (freq>0) diagnostics at the end of the run  C     dumpAtLast  :: always write time-ave (freq>0) diagnostics at the end of the run
84    C useMissingValue :: put MissingValue where mask = 0 (NetCDF output only)
85    
86        _RL freq(numlists), phase(numlists)        _RL freq(numLists), phase(numLists)
87        _RL averageFreq(numlists), averagePhase(numlists)        _RL averageFreq(numLists), averagePhase(numLists)
88        _RL misvalFlt(numlists)        _RL misvalFlt(numLists)
89        _RL levs (numLevels,numlists)        _RL levs (numLevels,numLists)
90        INTEGER averageCycle(numlists)        INTEGER averageCycle(numLists)
91        INTEGER misvalInt(numlists)        INTEGER misvalInt(numLists)
92        INTEGER nlevels(numlists)        INTEGER nlevels(numLists)
93        INTEGER nfields(numlists)        INTEGER nfields(numLists)
94        INTEGER nActive(numlists)        INTEGER nActive(numLists)
95        INTEGER nlists        INTEGER nlists
96        INTEGER idiag(numperlist,numlists)        INTEGER idiag(numperList,numLists)
97        INTEGER mdiag(numperlist,numlists)        INTEGER mdiag(numperList,numLists)
98        INTEGER jdiag(numperlist,numlists)        INTEGER jdiag(numperList,numLists)
99        CHARACTER*8  flds  (numperlist,numlists)        CHARACTER*8  flds  (numperList,numLists)
100        CHARACTER*80 fnames(numlists)        CHARACTER*80 fnames(numLists)
101        CHARACTER*8  fflags(numlists)        CHARACTER*8  fflags(numLists)
102        LOGICAL settingDiags        LOGICAL settingDiags
103        LOGICAL dumpAtLast, diag_mdsio,  diag_mnc        LOGICAL dumpAtLast
104          LOGICAL diag_mdsio, diag_mnc,    useMissingValue
105        LOGICAL diag_pickup_read,        diag_pickup_write        LOGICAL diag_pickup_read,        diag_pickup_write
106        LOGICAL diag_pickup_read_mdsio,  diag_pickup_write_mdsio        LOGICAL diag_pickup_read_mdsio,  diag_pickup_write_mdsio
107        LOGICAL diag_pickup_read_mnc,    diag_pickup_write_mnc        LOGICAL diag_pickup_read_mnc,    diag_pickup_write_mnc
# Line 114  C     dumpAtLast  :: always write time-a Line 116  C     dumpAtLast  :: always write time-a
116        COMMON / DIAG_SELECT_C /        COMMON / DIAG_SELECT_C /
117       &     flds, fnames, fflags       &     flds, fnames, fflags
118        COMMON / DIAG_SELECT_L /        COMMON / DIAG_SELECT_L /
119       &     settingDiags, dumpAtLast, diag_mdsio, diag_mnc,       &     settingDiags, dumpAtLast,
120         &     diag_mdsio, diag_mnc, useMissingValue,
121       &     diag_pickup_read,        diag_pickup_write,       &     diag_pickup_read,        diag_pickup_write,
122       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
123       &     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 141  C     diagSt_ioUnit(n) :: fortran IO uni
141  C     diagSt_Flds(:,n) :: list of field names in output stream # n  C     diagSt_Flds(:,n) :: list of field names in output stream # n
142  C     diagSt_Fname(n)  :: output file name for output stream # n  C     diagSt_Fname(n)  :: output file name for output stream # n
143    
144        _RL       diagSt_freq(numlists), diagSt_phase(numlists)        _RL       diagSt_freq(numLists), diagSt_phase(numLists)
145        INTEGER   iSdiag(numperlist,numlists)        INTEGER   iSdiag(numperList,numLists)
146        INTEGER   mSdiag(numperlist,numlists)        INTEGER   mSdiag(numperList,numLists)
147        INTEGER   jSdiag(numperlist,numlists)        INTEGER   jSdiag(numperList,numLists)
148        INTEGER   diagSt_region(0:nRegions,numlists)        INTEGER   diagSt_region(0:nRegions,numLists)
149        INTEGER   diagSt_nbFlds(numlists)        INTEGER   diagSt_nbFlds(numLists)
150        INTEGER   diagSt_nbActv(numlists)        INTEGER   diagSt_nbActv(numLists)
151        INTEGER   diagSt_nbLists        INTEGER   diagSt_nbLists
152        INTEGER   diagSt_ioUnit(numlists)        INTEGER   diagSt_ioUnit(numLists)
153        CHARACTER*8  diagSt_Flds(numperlist,numlists)        CHARACTER*8  diagSt_Flds(numperList,numLists)
154        CHARACTER*80 diagSt_Fname(numlists)        CHARACTER*80 diagSt_Fname(numLists)
155        LOGICAL   diagSt_ascii, diagSt_mnc        LOGICAL   diagSt_ascii, diagSt_mnc
156    
157        COMMON / DIAG_STATIS_R /        COMMON / DIAG_STATIS_R /
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22