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

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

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

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.3 by jmc, Thu Dec 16 21:48:43 2004 UTC
# Line 58  C     !INPUT PARAMETERS: Line 58  C     !INPUT PARAMETERS:
58  CEOP  CEOP
59    
60  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
61          INTEGER       diagNum
62        CHARACTER*8   diagName        CHARACTER*8   diagName
63        CHARACTER*16  diagCode        CHARACTER*16  diagCode
64        CHARACTER*16  diagUnits        CHARACTER*16  diagUnits
# Line 69  C     specify Name (cdiag, 8c), Descript Line 70  C     specify Name (cdiag, 8c), Descript
70  C         and Type/Parms (location on C grid, 2D/3D, ...) (gdiag, 16c)  C         and Type/Parms (location on C grid, 2D/3D, ...) (gdiag, 16c)
71  C----------------------------------------------------------------------  C----------------------------------------------------------------------
72    
73          diagName  = 'PHIHYD  '
74          diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'
75          diagUnits = 'm2/s2           '
76          diagCode  = 'SM      MR      '
77          CALL DIAGNOSTICS_ADD2LIST( diagNum,
78         I          diagName, diagCode, diagUnits, diagTitle, myThid )
79    
80          diagName  = 'PHIBOT  '
81          diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'
82          diagUnits = 'm2/s2           '
83          diagCode  = 'SM      MR      '
84          CALL DIAGNOSTICS_ADD2LIST( diagNum,
85         I          diagName, diagCode, diagUnits, diagTitle, myThid )
86    
87          diagName  = 'PHIBOTSQ'
88          diagTitle = 'Square of ocean bottom pressure / top. geo-Potential'
89          diagUnits = 'm4/s4           '
90          diagCode  = 'SM      M1      '
91          CALL DIAGNOSTICS_ADD2LIST( diagNum,
92         I          diagName, diagCode, diagUnits, diagTitle, myThid )
93    
94        diagName  = 'DRHODR  '        diagName  = 'DRHODR  '
95        diagTitle = 'Stratification: d.Sigma/dr (kg/m3/r_unit)       '        diagTitle = 'Stratification: d.Sigma/dr (kg/m3/r_unit)       '
96        diagUnits = 'kg/m4           '        diagUnits = 'kg/m4           '
97        diagCode  = 'SM      LR      '        diagCode  = 'SM      LR      '
98        CALL DIAGNOSTICS_ADD2LIST(        CALL DIAGNOSTICS_ADD2LIST( diagNum,
99       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
100    
101        diagName  = 'DETADT2 '        diagName  = 'DETADT2 '
102        diagTitle = 'Square of Eta (Surf.P,SSH) Tendency ((r_unit/s)^2)'        diagTitle = 'Square of Eta (Surf.P,SSH) Tendency ((r_unit/s)^2)'
103        diagUnits = 'm2 or Pa2 /sec2 '        diagUnits = 'm2 or Pa2 /sec2 '
104        diagCode  = 'SM      M1      '        diagCode  = 'SM      M1      '
105        CALL DIAGNOSTICS_ADD2LIST(        CALL DIAGNOSTICS_ADD2LIST( diagNum,
106       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
107    
108  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22