/[MITgcm]/MITgcm/pkg/mom_common/mom_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_diagnostics_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by baylor, Fri Jul 7 18:52:10 2006 UTC revision 1.9 by jmc, Thu Jul 13 21:30:12 2006 UTC
# Line 359  C--    add diagnostics of tendencies fro Line 359  C--    add diagnostics of tendencies fro
359    
360  #endif /* ALLOW_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
361    
362    #ifdef ALLOW_NONHYDROSTATIC
363    C-     vertical momentum tendencies
364           IF ( usingPCoords ) THEN
365             diagUnits = 'Pa/s^2          '
366           ELSE
367             diagUnits = 'm/s^2           '
368           ENDIF
369           diagName  = 'WSidDrag'
370           diagTitle = 'Vertical momentum tendency from Side Drag'
371           diagCode  = 'WM      LR      '
372           CALL DIAGNOSTICS_ADD2LIST( diagNum,
373         I              diagName, diagCode, diagUnits, diagTitle, myThid )
374    #endif /* ALLOW_NONHYDROSTATIC */
375    
376  C--    add diagnostics of advective & viscous flux :  C--    add diagnostics of advective & viscous flux :
377         IF ( usingPCoords ) THEN         IF ( usingPCoords ) THEN
378           diagUnits = 'Pa.m^3/s^2      '           diagUnits = 'Pa.m^3/s^2      '
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22