/[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.20 by molod, Tue Aug 16 21:29:38 2005 UTC revision 1.21 by jmc, Thu Aug 25 18:43:35 2005 UTC
# Line 106  C-    state variables of the main code ( Line 106  C-    state variables of the main code (
106       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
107    
108        diagName  = 'ETANSQ  '        diagName  = 'ETANSQ  '
109        diagTitle = 'Square of Perturbation of Sfc (Pa^2,m^2)'        diagTitle = 'Square of Perturbation of Sfc position (r_unit^2)'
110        diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2', myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2', myThid )
111        diagCode  = 'SM      M1      '        diagCode  = 'SM      M1      '
112        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
# Line 126  C-    state variables of the main code ( Line 126  C-    state variables of the main code (
126        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
127       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
128    
129        diagName  = 'SST     '  c     diagName  = 'SST     '
130        diagTitle = 'Sea Surface Temperature (degC,K)'  c     diagTitle = 'Sea Surface Temperature (degC,K)'
131        diagUnits = DIAGS_MK_UNITS( tUnit4c, myThid )  c     diagUnits = DIAGS_MK_UNITS( tUnit4c, myThid )
132        diagCode  = 'SM      M1      '  c     diagCode  = 'SM      M1      '
133        CALL DIAGNOSTICS_ADD2LIST( diagNum,  c     CALL DIAGNOSTICS_ADD2LIST( diagNum,
134       I          diagName, diagCode, diagUnits, diagTitle, myThid )  c    I          diagName, diagCode, diagUnits, diagTitle, myThid )
135    
136        diagName  = 'SALT    '        diagName  = 'SALT    '
137        diagTitle = 'Salt or Water Vapor mixing ratio'        diagTitle = 'Salt or Water Vapor mixing ratio'
# Line 147  C-    state variables of the main code ( Line 147  C-    state variables of the main code (
147        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
148       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
149    
150        diagName  = 'SSS     '  c     diagName  = 'SSS     '
151        diagTitle = 'Sea Surface Salinity '  c     diagTitle = 'Sea Surface Salinity '
152        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )  c     diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
153        diagCode  = 'SM      M1      '  c     diagCode  = 'SM      M1      '
154        CALL DIAGNOSTICS_ADD2LIST( diagNum,  c     CALL DIAGNOSTICS_ADD2LIST( diagNum,
155       I          diagName, diagCode, diagUnits, diagTitle, myThid )  c    I          diagName, diagCode, diagUnits, diagTitle, myThid )
156    
157        diagName  = 'SALTanom'        diagName  = 'SALTanom'
158        diagTitle = 'Salt anomaly (=SALT-35)'        diagTitle = 'Salt anomaly (=SALT-35; g/kg)'
159        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
160        diagCode  = 'SM      MR      '        diagCode  = 'SM      MR      '
161        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
# Line 175  C-    state variables of the main code ( Line 175  C-    state variables of the main code (
175        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
176       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
177    
       diagName  = 'UVEL_k2 '  
       diagTitle = 'Zonal Component of Velocity at level 2 (m/s)'  
       diagUnits = 'm/s             '  
       WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'M1      '  
       CALL DIAGNOSTICS_ADD2LIST( diagNum,  
      I          diagName, diagCode, diagUnits, diagTitle, myThid )  
   
       diagName  = 'VVEL_k2 '  
       diagTitle = 'Meridional Component of Velocity at level 2 (m/s)'  
       diagUnits = 'm/s             '  
       WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'M1      '  
       CALL DIAGNOSTICS_ADD2LIST( diagNum,  
      I          diagName, diagCode, diagUnits, diagTitle, myThid )  
   
178        diagName  = 'WVEL    '        diagName  = 'WVEL    '
179        diagTitle = 'Vertical Component of Velocity (r_units/s)'        diagTitle = 'Vertical Component of Velocity (r_units/s)'
180        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22