/[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.2 by jmc, Wed Dec 15 00:20:37 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 73  C--------------------------------------- Line 74  C---------------------------------------
74        diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'        diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'
75        diagUnits = 'm2/s2           '        diagUnits = 'm2/s2           '
76        diagCode  = 'SM      MR      '        diagCode  = 'SM      MR      '
77        CALL DIAGNOSTICS_ADD2LIST(        CALL DIAGNOSTICS_ADD2LIST( diagNum,
78       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
79    
80        diagName  = 'PHIBOT  '        diagName  = 'PHIBOT  '
81        diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'        diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'
82        diagUnits = 'm2/s2           '        diagUnits = 'm2/s2           '
83        diagCode  = 'SM      MR      '        diagCode  = 'SM      MR      '
84        CALL DIAGNOSTICS_ADD2LIST(        CALL DIAGNOSTICS_ADD2LIST( diagNum,
85       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
86    
87        diagName  = 'PHIBOTSQ'        diagName  = 'PHIBOTSQ'
88        diagTitle = 'Square of ocean bottom pressure / top. geo-Potential'        diagTitle = 'Square of ocean bottom pressure / top. geo-Potential'
89        diagUnits = 'm4/s4           '        diagUnits = 'm4/s4           '
90        diagCode  = 'SM      M1      '        diagCode  = 'SM      M1      '
91        CALL DIAGNOSTICS_ADD2LIST(        CALL DIAGNOSTICS_ADD2LIST( diagNum,
92       I          diagName, diagCode, diagUnits, diagTitle, myThid )       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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22