/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_init_early.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_init_early.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by molod, Thu Jun 30 23:09:08 2005 UTC revision 1.11 by jmc, Sat Jul 9 17:19:48 2005 UTC
# Line 13  C     !INTERFACE: Line 13  C     !INTERFACE:
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Initialize available diagnostics list: set the following attributes:  C     Initialize available diagnostics list: set the following attributes:
15  C     name (=cdiag), parsing code (=gdiag), units (=udiag), and title (=tdiag)  C     name (=cdiag), parsing code (=gdiag), units (=udiag), and title (=tdiag)
16  C     Note: 1) diagnostics defined here also appear in equivalence statement  C     Note: 1) diagnostics defined here are not presently filled. To use
17  C           in "DIAGNOSTICS.h" ; this allow a more direct access than  C           one of them, one just needs to add a call to S/R DIAGNOSTICS_FILL
18  C           calling S/R FILL_DIAGNOSTICS.  C           with the diagnostic name 'SDIAG...' or 'UDIAG...'
19  C           2) GDIAG is defined as character*16 and can be to character*1  C           2) GDIAG is defined as character*16 and can be to character*1
20  C           parse(16) with the following codes currently defined:  C           parse(16) with the following codes currently defined:
21    
# Line 73  CEOP Line 73  CEOP
73    
74  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
75  C     For each output variable,  C     For each output variable,
76  C     specify Name (cdiag, 8c), Descriptions (tdiag, *c), Units (udiag, 16c)  C     specify Name (cdiag, 8c), Descriptions (tdiag, *c), Units (udiag, 16c)
77  C         and parsing code (location on C grid, 2D/3D, ...) (gdiag, 16c)  C         and parsing code (location on C grid, 2D/3D, ...) (gdiag, 16c)
78  C----------------------------------------------------------------------  C----------------------------------------------------------------------
79        cdiag( 1)  = 'SDIAG1  '        cdiag( 1)  = 'SDIAG1  '
# Line 179  C--------------------------------------- Line 179  C---------------------------------------
179        cdiag(21) = 'SDIAGC  '        cdiag(21) = 'SDIAGC  '
180        tdiag(21) = 'User-Defined Counted Surface Diagnostic         '        tdiag(21) = 'User-Defined Counted Surface Diagnostic         '
181        udiag(21) = 'user-defined    '        udiag(21) = 'user-defined    '
182        gdiag(21) = 'SM  C188L1      '        gdiag(21) = 'SM  C022L1      '
183    
184        cdiag(22) = 'SDIAGCC '        cdiag(22) = 'SDIAGCC '
185        tdiag(22) = 'User-Defined Counted Surface Diagnostic Counter'        tdiag(22) = 'User-Defined Counted Surface Diagnostic Counter'
186        udiag(22) = 'count           '        udiag(22) = 'count           '
187        gdiag(22) = 'SM  D   L1      '        gdiag(22) = 'SM  D   L1      '
188    
189  c-    set the total number of available diagnostics  c-    set the total number of available diagnostics
190        ndiagt = 22        ndiagt = 22
191    
192  c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22