/[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.13 by jmc, Mon Jun 5 18:15:53 2006 UTC revision 1.14 by jmc, Tue Feb 5 15:13:01 2008 UTC
# Line 6  C  Common blocks for diagnostics package Line 6  C  Common blocks for diagnostics package
6  C  - DIAG_DEFINE contains the definition of all available diagnostics  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 :: list of available diagnostic 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         hdiag :: mate number (in available diag. list) of the diagnostic
13  C         udiag :: physical units of the diagnostic field  C         udiag :: physical units of the diagnostic field
14  C  - DIAG_STORE  contains the large array to store diagnostic fields  C  - DIAG_STORE  contains the large array to store diagnostic fields
15  C         qdiag :: diagnostic fields array  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 :: counter for number of times diagnostic is added  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
# Line 23  C  - DIAG_STATIS  contains the user sele Line 24  C  - DIAG_STATIS  contains the user sele
24  C ======================================================================  C ======================================================================
25    
26  C--   DIAG_DEFINE common block:  C--   DIAG_DEFINE common block:
27  C        ndiagt :: total number of available diagnostics  C       ndiagt :: total number of available diagnostics
28  C         kdiag :: number of levels associated with the diagnostic  C       kdiag  :: number of levels associated with the diagnostic
29  C         cdiag :: character names  C       cdiag  :: list of available diagnostic names
30  C         tdiag :: description of field in diagnostic  C       tdiag  :: description of field in diagnostic
31  C         gdiag :: parser field with CHARACTERistics of the diagnostics  C       gdiag  :: parser field with characteristics of the diagnostics
32  C         udiag :: physical units of the diagnostic field  C       hdiag  :: mate number (in available diag. list) of the diagnostic
33    C       udiag  :: physical units of the diagnostic field
34    
35        INTEGER        ndiagt        INTEGER        ndiagt
36        INTEGER        kdiag(ndiagMax)        INTEGER        kdiag(ndiagMax)
37          INTEGER        hdiag(ndiagMax)
38        CHARACTER*8    cdiag(ndiagMax)        CHARACTER*8    cdiag(ndiagMax)
39        CHARACTER*80   tdiag(ndiagMax)        CHARACTER*80   tdiag(ndiagMax)
40        CHARACTER*16   gdiag(ndiagMax)        CHARACTER*16   gdiag(ndiagMax)
41        CHARACTER*16   udiag(ndiagMax)        CHARACTER*16   udiag(ndiagMax)
42    
43        COMMON / DIAG_DEFINE /        COMMON / DIAG_DEFINE /
44       &  ndiagt, kdiag,       &  ndiagt, kdiag, hdiag,
45       &  cdiag, tdiag, gdiag, udiag       &  cdiag, tdiag, gdiag, udiag
46    
47  C--   DIAG_STORE common block:  C--   DIAG_STORE common block:
48  C       qdiag  :: diagnostic fields array  C       qdiag  :: storage array for 2D/3D diagnostic fields
49  C       qSdiag :: storage array for (per level) statistics  C       qSdiag :: storage array for (per level) statistics
50  C       ndiag  :: counter for number of times diagnostic is added  C       ndiag  :: holds number of times a diagnostic is filled (for time-mean diag)
51  C       pdiag  :: index of current averaging interval within the averaging-cycle  C       pdiag  :: index of current averaging interval within the averaging-cycle
52    
53        _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)
54        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)        _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
55        INTEGER  ndiag(numdiags,nSx,nSy)        INTEGER  ndiag(numDiags,nSx,nSy)
56        INTEGER  pdiag(numlists,nSx,nSy)        INTEGER  pdiag(numlists,nSx,nSy)
57    
58        COMMON / DIAG_STORE / qdiag, qSdiag, ndiag, pdiag        COMMON / DIAG_STORE / qdiag, qSdiag, ndiag, pdiag
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22