/[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.5 by dimitri, Fri Dec 17 19:17:57 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      M1      '
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 )
107    
108          diagName  = 'TAUX    '
109          diagTitle = 'zonal surface wind stress, >0 increases uVel    '
110          diagUnits = 'N/m2            '
111          diagCode  = 'SU      U1      '
112          CALL DIAGNOSTICS_ADD2LIST( diagNum,
113         I          diagName, diagCode, diagUnits, diagTitle, myThid )
114    
115          diagName  = 'TAUY    '
116          diagTitle = 'meridional surf. wind stress, >0 increases vVel '
117          diagUnits = 'N/m2            '
118          diagCode  = 'SV      U1      '
119          CALL DIAGNOSTICS_ADD2LIST( diagNum,
120         I          diagName, diagCode, diagUnits, diagTitle, myThid )
121    
122          diagName  = 'TFLUX   '
123          diagTitle = 'net surface heat flux, >0 increases theta       '
124          diagUnits = 'W/m2            '
125          diagCode  = 'SM      U1      '
126          CALL DIAGNOSTICS_ADD2LIST( diagNum,
127         I          diagName, diagCode, diagUnits, diagTitle, myThid )
128    
129          diagName  = 'TRELAX  '
130          diagTitle = 'surface temperature relaxation, >0 increases theta'
131          diagUnits = 'W/m2            '
132          diagCode  = 'SM      U1      '
133          CALL DIAGNOSTICS_ADD2LIST( diagNum,
134         I          diagName, diagCode, diagUnits, diagTitle, myThid )
135    
136          diagName  = 'TICE    '
137          diagTitle = 'heat from melt/freeze of sea-ice, >0 increases theta'
138          diagUnits = 'W/m2            '
139          diagCode  = 'SM      U1      '
140          CALL DIAGNOSTICS_ADD2LIST( diagNum,
141         I          diagName, diagCode, diagUnits, diagTitle, myThid )
142    
143          diagName  = 'SFLUX   '
144          diagTitle = 'net surface salt flux, >0 increases salt        '
145          diagUnits = 'g/m2/s          '
146          diagCode  = 'SM      U1      '
147          CALL DIAGNOSTICS_ADD2LIST( diagNum,
148         I          diagName, diagCode, diagUnits, diagTitle, myThid )
149    
150          diagName  = 'SRELAX  '
151          diagTitle = 'surface salinity relaxation, >0 increases salt  '
152          diagUnits = 'g/m2/s          '
153          diagCode  = 'SM      U1      '
154          CALL DIAGNOSTICS_ADD2LIST( diagNum,
155       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
156    
157  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.5
  ViewVC Help
Powered by ViewVC 1.1.22