/[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.22 by jmc, Thu Sep 15 14:51:02 2005 UTC revision 1.25 by molod, Mon Feb 27 17:55:14 2006 UTC
# Line 357  c    I          diagName, diagCode, diag Line 357  c    I          diagName, diagCode, diag
357        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
358       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
359    
360          diagName  = 'UVELPHI '
361          diagTitle = 'Zonal Transp of Geopotential Height (m2/s2.m/s)'
362          diagUnits = 'm^3/s^3         '
363          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
364          CALL DIAGNOSTICS_ADD2LIST( diagNum,
365         I          diagName, diagCode, diagUnits, diagTitle, myThid )
366    
367          diagName  = 'VVELPHI '
368          diagTitle = 'Meridional Transp of Geopotential Height (m2/s2.m/s)'
369          diagUnits = 'm^3/s^3         '
370          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
371          CALL DIAGNOSTICS_ADD2LIST( diagNum,
372         I          diagName, diagCode, diagUnits, diagTitle, myThid )
373    
374  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
375    
376        diagName  = 'RHOAnoma'        diagName  = 'RHOAnoma'
# Line 511  C---+----1----+----2----+----3----+----4 Line 525  C---+----1----+----2----+----3----+----4
525        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
526       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
527    
528          diagName  = 'TOTUTEND'
529          diagTitle = 'Tendency of Zonal Component of Velocity (m/s^2)'
530          diagUnits = 'm/s^2           '
531          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
532          CALL DIAGNOSTICS_ADD2LIST( diagNum,
533         I          diagName, diagCode, diagUnits, diagTitle, myThid )
534    
535          diagName  = 'TOTVTEND'
536          diagTitle = 'Tendency of Meridional Component of Velocity (m/s^2)'
537          diagUnits = 'm/s^2           '
538          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
539          CALL DIAGNOSTICS_ADD2LIST( diagNum,
540         I          diagName, diagCode, diagUnits, diagTitle, myThid )
541    
542          diagName  = 'TOTTTEND'
543          diagTitle = 'Tendency of Potential Temperature (degC,K)'
544          diagUnits = 'deg K/sec'
545          diagCode  = 'SM      MR      '
546          CALL DIAGNOSTICS_ADD2LIST( diagNum,
547         I          diagName, diagCode, diagUnits, diagTitle, myThid )
548    
549          diagName  = 'TOTSTEND'
550          diagTitle = 'Tendency of Salt or Water Vapor mixing ratio'
551          diagUnits = 'kg/kg-sec'
552          diagCode  = 'SM      MR      '
553          CALL DIAGNOSTICS_ADD2LIST( diagNum,
554         I          diagName, diagCode, diagUnits, diagTitle, myThid )
555    
556    
557        RETURN        RETURN
558        END        END
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22