/[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.6 by baylor, Thu Sep 29 16:47:16 2005 UTC revision 1.7 by jmc, Thu Sep 29 18:36:42 2005 UTC
# Line 253  C--    add diagnostics of simple derivat Line 253  C--    add diagnostics of simple derivat
253  C--    add diagnostics of tendencies from each terms  C--    add diagnostics of tendencies from each terms
254         diagUnits = 'm/s^2           '         diagUnits = 'm/s^2           '
255    
256           diagName  = 'UBotDrag'
257           diagTitle = 'U momentum tendency from Bottom Drag'
258           WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
259           CALL DIAGNOSTICS_ADD2LIST( diagNum,
260         I              diagName, diagCode, diagUnits, diagTitle, myThid )
261           diagName  = 'VBotDrag'
262           diagTitle = 'V momentum tendency from Bottom Drag'
263           WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '
264           CALL DIAGNOSTICS_ADD2LIST( diagNum,
265         I              diagName, diagCode, diagUnits, diagTitle, myThid )
266           diagName  = 'USidDrag'
267           diagTitle = 'U momentum tendency from Side Drag'
268           WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
269           CALL DIAGNOSTICS_ADD2LIST( diagNum,
270         I              diagName, diagCode, diagUnits, diagTitle, myThid )
271           diagName  = 'VSidDrag'
272           diagTitle = 'V momentum tendency from Side Drag'
273           WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum, 'MR      '
274           CALL DIAGNOSTICS_ADD2LIST( diagNum,
275         I              diagName, diagCode, diagUnits, diagTitle, myThid )
276    
277         diagName  = 'Um_Diss '         diagName  = 'Um_Diss '
278         diagTitle = 'U momentum tendency from Dissipation'         diagTitle = 'U momentum tendency from Dissipation'
279         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '         WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22