/[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.18 by jmc, Fri Jul 1 18:28:52 2011 UTC revision 1.19 by jmc, Wed Feb 6 21:25:49 2013 UTC
# Line 56  C       qSdiag :: storage array for (per Line 56  C       qSdiag :: storage array for (per
56  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)
57  C       pdiag  :: index of current averaging interval within the averaging-cycle  C       pdiag  :: index of current averaging interval within the averaging-cycle
58    
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)
# Line 70  C     phase(n)    :: phase     (in s) to Line 70  C     phase(n)    :: phase     (in s) to
70  C     averageFreq :: frequency (in s) for periodic averaging interval  C     averageFreq :: frequency (in s) for periodic averaging interval
71  C     averagePhase:: phase     (in s) for periodic averaging interval  C     averagePhase:: phase     (in s) for periodic averaging interval
72  C     averageCycle:: number of averaging intervals in 1 cycle  C     averageCycle:: number of averaging intervals in 1 cycle
73  C     misvalFlt(n):: missing value for floats   to use in output stream #n  C     misValFlt(n):: missing value for floats   to use in output stream #n
74  C     misvalInt(n):: missing value for integers to use in output stream #n  Cc    misValInt(n):: missing value for integers to use in output stream #n
75  C     levs(:,n)   :: list of selected levels to write for output stream # n  C     levs(:,n)   :: list of selected levels to write for output stream # n
76  C     nlevels(n)  :: number of levels to write for output stream # n  C     nlevels(n)  :: number of levels to write for output stream # n
77  C     nfields(n)  :: number of active diagnostics for output stream # n  C     nfields(n)  :: number of active diagnostics for output stream # n
# Line 88  C useMissingValue :: put MissingValue wh Line 88  C useMissingValue :: put MissingValue wh
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)  c     INTEGER misValInt(numLists)
95        INTEGER nlevels(numLists)        INTEGER nlevels(numLists)
96        INTEGER nfields(numLists)        INTEGER nfields(numLists)
97        INTEGER nActive(numLists)        INTEGER nActive(numLists)
# Line 106  C useMissingValue :: put MissingValue wh Line 106  C useMissingValue :: put MissingValue wh
106    
107        COMMON / DIAG_SELECT_R /        COMMON / DIAG_SELECT_R /
108       &     freq, phase, averageFreq, averagePhase,       &     freq, phase, averageFreq, averagePhase,
109       &     misvalFlt, levs       &     misValFlt, levs
110        COMMON / DIAG_SELECT_I /        COMMON / DIAG_SELECT_I /
111       &     averageCycle, misvalInt,       &     averageCycle,
112       &     nlevels, nfields, nActive,       &     nlevels, nfields, nActive,
113       &     nlists, idiag, mdiag, jdiag       &     nlists, idiag, mdiag, jdiag
114    c    &   , misValInt
115        COMMON / DIAG_SELECT_C /        COMMON / DIAG_SELECT_C /
116       &     flds, fnames, fflags       &     flds, fnames, fflags
117        COMMON / DIAG_SELECT_L /        COMMON / DIAG_SELECT_L /
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22