/[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.9 by jmc, Thu Feb 10 15:01:34 2005 UTC revision 1.12 by dimitri, Fri May 6 03:46:40 2005 UTC
# Line 120  C-    state variables of the main code ( Line 120  C-    state variables of the main code (
120        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
121       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
122    
123          diagName  = 'SST     '
124          diagTitle = 'Sea Surface Temperature (degC,K)'
125          diagUnits = DIAGS_MK_UNITS( tUnit4c, myThid )
126          diagCode  = 'SM      M1      '
127          CALL DIAGNOSTICS_ADD2LIST( diagNum,
128         I          diagName, diagCode, diagUnits, diagTitle, myThid )
129    
130        diagName  = 'SALT    '        diagName  = 'SALT    '
131        diagTitle = 'Salt or Water Vapor mixing ratio (g/kg)'        diagTitle = 'Salt or Water Vapor mixing ratio (g/kg)'
132        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
# Line 127  C-    state variables of the main code ( Line 134  C-    state variables of the main code (
134        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
135       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
136    
137          diagName  = 'SSS     '
138          diagTitle = 'Sea Surface Salinity (g/kg)'
139          diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
140          diagCode  = 'SM      M1      '
141          CALL DIAGNOSTICS_ADD2LIST( diagNum,
142         I          diagName, diagCode, diagUnits, diagTitle, myThid )
143    
144          diagName  = 'SALTanom'
145          diagTitle = 'Salt anomaly (=SALT-35; g/kg)'
146          diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
147          diagCode  = 'SM      MR      '
148          CALL DIAGNOSTICS_ADD2LIST( diagNum,
149         I          diagName, diagCode, diagUnits, diagTitle, myThid )
150    
151        diagName  = 'UVEL    '        diagName  = 'UVEL    '
152        diagTitle = 'Zonal Component of Velocity (m/s)'        diagTitle = 'Zonal Component of Velocity (m/s)'
153        diagUnits = 'm/s             '        diagUnits = 'm/s             '
# Line 141  C-    state variables of the main code ( Line 162  C-    state variables of the main code (
162        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
163       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
164    
165          diagName  = 'UVEL_k2 '
166          diagTitle = 'Zonal Component of Velocity at level 2 (m/s)'
167          diagUnits = 'm/s             '
168          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'M1      '
169          CALL DIAGNOSTICS_ADD2LIST( diagNum,
170         I          diagName, diagCode, diagUnits, diagTitle, myThid )
171    
172          diagName  = 'VVEL_k2 '
173          diagTitle = 'Meridional Component of Velocity at level 2 (m/s)'
174          diagUnits = 'm/s             '
175          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'M1      '
176          CALL DIAGNOSTICS_ADD2LIST( diagNum,
177         I          diagName, diagCode, diagUnits, diagTitle, myThid )
178    
179        diagName  = 'WVEL    '        diagName  = 'WVEL    '
180        diagTitle = 'Vertical Component of Velocity (r_units/s)'        diagTitle = 'Vertical Component of Velocity (r_units/s)'
181        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )
# Line 162  C-    state variables of the main code ( Line 197  C-    state variables of the main code (
197        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
198       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
199    
200          diagName  = 'SALTSQan'
201          diagTitle = 'Square of Salt anomaly (=SALTSQ-35^2 (g^2/kg^2)'
202          diagUnits = DIAGS_MK_UNITS( '('//sUnit4c//')^2', myThid )
203          diagCode  = 'SM      MR      '
204          CALL DIAGNOSTICS_ADD2LIST( diagNum,
205         I          diagName, diagCode, diagUnits, diagTitle, myThid )
206    
207        diagName  = 'UVELSQ  '        diagName  = 'UVELSQ  '
208        diagTitle = 'Square of Zonal Comp of Velocity (m^2/s^2)'        diagTitle = 'Square of Zonal Comp of Velocity (m^2/s^2)'
209        diagUnits = 'm^2/s^2         '        diagUnits = 'm^2/s^2         '
# Line 228  C-    state variables of the main code ( Line 270  C-    state variables of the main code (
270        diagName  = 'WVELMASS'        diagName  = 'WVELMASS'
271        diagTitle = 'Vertical Mass-Weighted Comp of Velocity (m/s)'        diagTitle = 'Vertical Mass-Weighted Comp of Velocity (m/s)'
272        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )
273        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
274        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
275       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
276    
# Line 249  C-    state variables of the main code ( Line 291  C-    state variables of the main code (
291        diagName  = 'WTHMASS '        diagName  = 'WTHMASS '
292        diagTitle = 'Vertical Mass-Weight Transp of Pot Temp (K.m/s)'        diagTitle = 'Vertical Mass-Weight Transp of Pot Temp (K.m/s)'
293        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )
294        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
295        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
296       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
297    
# Line 270  C-    state variables of the main code ( Line 312  C-    state variables of the main code (
312        diagName  = 'WSLTMASS'        diagName  = 'WSLTMASS'
313        diagTitle = 'Vertical Mass-Weight Transp of Salt (g/kg.m/s)'        diagTitle = 'Vertical Mass-Weight Transp of Salt (g/kg.m/s)'
314        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )
315        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
316        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
317       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
318    
# Line 291  C-    state variables of the main code ( Line 333  C-    state variables of the main code (
333        diagName  = 'WVELTH  '        diagName  = 'WVELTH  '
334        diagTitle = 'Vertical Transp of Pot Temp (K.m/s)'        diagTitle = 'Vertical Transp of Pot Temp (K.m/s)'
335        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )
336        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
337        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
338       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
339    
# Line 312  C-    state variables of the main code ( Line 354  C-    state variables of the main code (
354        diagName  = 'WVELSLT '        diagName  = 'WVELSLT '
355        diagTitle = 'Vertical Transp of Salt (g/kg.m/s)'        diagTitle = 'Vertical Transp of Salt (g/kg.m/s)'
356        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )
357        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
358        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
359       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
360    
# Line 325  C---+----1----+----2----+----3----+----4 Line 367  C---+----1----+----2----+----3----+----4
367        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
368       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
369    
370          diagName  = 'RHOANOSQ'
371          diagTitle = 'Square of Density Anomaly (=(Rho-rhoConst)^2)'
372          diagUnits = 'kg^2/m^6          '
373          diagCode  = 'SM      MR      '
374          CALL DIAGNOSTICS_ADD2LIST( diagNum,
375         I          diagName, diagCode, diagUnits, diagTitle, myThid )
376    
377          diagName  = 'URHOMASS'
378          diagTitle = 'Zonal Transport of Density'
379          diagUnits = 'kg/m^2/s        '
380          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
381          CALL DIAGNOSTICS_ADD2LIST( diagNum,
382         I          diagName, diagCode, diagUnits, diagTitle, myThid )
383    
384          diagName  = 'VRHOMASS'
385          diagTitle = 'Meridional Transport of Density'
386          diagUnits = 'kg/m^2/s        '
387          WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
388          CALL DIAGNOSTICS_ADD2LIST( diagNum,
389         I          diagName, diagCode, diagUnits, diagTitle, myThid )
390    
391          diagName  = 'WRHOMASS'
392          diagTitle = 'Vertical Transport of Potential Density'
393          diagUnits = 'kg/m^2/s        '
394          diagCode  = 'WM      LR      '
395          CALL DIAGNOSTICS_ADD2LIST( diagNum,
396         I          diagName, diagCode, diagUnits, diagTitle, myThid )
397    
398        diagName  = 'PHIHYD  '        diagName  = 'PHIHYD  '
399        diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'        diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'
400        diagUnits = 'm^2/s^2         '        diagUnits = 'm^2/s^2         '
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22