/[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.45 by jmc, Wed Feb 6 23:53:20 2013 UTC revision 1.46 by m_bates, Wed Sep 18 01:41:05 2013 UTC
# Line 829  c     diagTitle = 'Free-Surface r-Positi Line 829  c     diagTitle = 'Free-Surface r-Positi
829       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
830  #endif /* ALLOW_GENERIC_ADVDIFF */  #endif /* ALLOW_GENERIC_ADVDIFF */
831    
832    #ifdef ALLOW_DIAGNOSTICS
833            diagName  = 'TAUXEDDY'
834            diagTitle = 'Zonal Eddy Stress'
835            diagUnits = 'N/m**2          '
836            diagCode  = 'UU P    MR      '
837            diagMate  = diagNum
838            CALL DIAGNOSTICS_ADDTOLIST( diagNum,
839         I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
840            
841            diagName  = 'TAUYEDDY'
842            diagTitle = 'Meridional Eddy Stress'
843            diagUnits = 'N/m**2          '
844            diagCode  = 'VV P    MR      '
845            diagMate  = diagNum
846            CALL DIAGNOSTICS_ADDTOLIST( diagNum,
847         I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
848    #endif /* ALLOW_DIAGNOSTICS */
849    
850        RETURN        RETURN
851        END        END
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22