/[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.17 by jmc, Mon Jun 27 22:23:09 2011 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 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
 C    settingDiags :: internal flag: enable adding/changing available diagnostics list  
 C     dumpAtLast  :: always write time-ave (freq>0) diagnostics at the end of the run  
87  C useMissingValue :: put MissingValue where mask = 0 (NetCDF output only)  C useMissingValue :: put MissingValue where mask = 0 (NetCDF output only)
88    
89        _RL freq(numLists), phase(numLists)        _RL freq(numLists), phase(numLists)
# Line 99  C useMissingValue :: put MissingValue wh Line 102  C useMissingValue :: put MissingValue wh
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  
       LOGICAL diag_mdsio, diag_mnc,    useMissingValue  
       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 116  C useMissingValue :: put MissingValue wh Line 114  C useMissingValue :: put MissingValue wh
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, useMissingValue
118       &     diag_mdsio, diag_mnc, useMissingValue,  
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
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22