/[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.11 by dimitri, Thu May 5 16:41:54 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'        diagName  = 'SALTanom'
145        diagTitle = 'Salt anomaly (=SALT-35; g/kg)'        diagTitle = 'Salt anomaly (=SALT-35; g/kg)'
146        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
# Line 148  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 )
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22