/[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.5 by baylor, Tue Sep 20 20:41:43 2005 UTC revision 1.6 by baylor, Thu Sep 29 16:47:16 2005 UTC
# Line 286  C--    add diagnostics of tendencies fro Line 286  C--    add diagnostics of tendencies fro
286         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
287       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
288    
289           diagName  = 'Um_Ext  '
290           diagTitle = 'U momentum tendency from external forcing'
291           WRITE(diagCode,'(A,I3.3,A)') 'UU   ', diagNum, 'MR      '
292           CALL DIAGNOSTICS_ADD2LIST( diagNum,
293         I              diagName, diagCode, diagUnits, diagTitle, myThid )
294           diagName  = 'Vm_Ext  '
295           diagTitle = 'V momentum tendency from external forcing'
296           WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '
297           CALL DIAGNOSTICS_ADD2LIST( diagNum,
298         I              diagName, diagCode, diagUnits, diagTitle, myThid )
299    
300  #ifdef ALLOW_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
301         diagName  = 'Um_AdvZ3'         diagName  = 'Um_AdvZ3'
302         diagTitle = 'U momentum tendency from Vorticity Advection'         diagTitle = 'U momentum tendency from Vorticity Advection'
# Line 310  C--    add diagnostics of tendencies fro Line 321  C--    add diagnostics of tendencies fro
321         WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '
322         CALL DIAGNOSTICS_ADD2LIST( diagNum,         CALL DIAGNOSTICS_ADD2LIST( diagNum,
323       I              diagName, diagCode, diagUnits, diagTitle, myThid )       I              diagName, diagCode, diagUnits, diagTitle, myThid )
324    
325  #endif /* ALLOW_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
326    
327  C--    add diagnostics of advective & viscous flux :  C--    add diagnostics of advective & viscous flux :
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22