/[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.46 by m_bates, Wed Sep 18 01:41:05 2013 UTC revision 1.47 by m_bates, Wed Sep 18 22:04:27 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  #ifdef ALLOW_EDDYPSI
833          diagName  = 'TAUXEDDY'        diagName  = 'TAUXEDDY'
834          diagTitle = 'Zonal Eddy Stress'        diagTitle = 'Zonal Eddy Stress'
835          diagUnits = 'N/m**2          '        diagUnits = 'N/m**2          '
836          diagCode  = 'UU P    MR      '        diagCode  = 'UU P    MR      '
837          diagMate  = diagNum        diagMate  = diagNum
838          CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
839       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
840                    
841          diagName  = 'TAUYEDDY'        diagName  = 'TAUYEDDY'
842          diagTitle = 'Meridional Eddy Stress'        diagTitle = 'Meridional Eddy Stress'
843          diagUnits = 'N/m**2          '        diagUnits = 'N/m**2          '
844          diagCode  = 'VV P    MR      '        diagCode  = 'VV P    MR      '
845          diagMate  = diagNum        diagMate  = diagNum
846          CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
847       I    diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
848  #endif /* ALLOW_DIAGNOSTICS */  
849    #ifdef ALLOW_GMREDI
850          diagName  = 'UVELMEAN'
851          diagTitle = 'Zonal Component of Mean Velocity (m/s)'
852          diagUnits = 'm/s             '
853          diagCode  = 'UUR     MR      '
854          diagMate  = diagNum + 2
855          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
856         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
857            
858          diagName  = 'VVELMEAN'
859          diagTitle = 'Meridional Component of Mean Velocity (m/s)'
860          diagUnits = 'm/s             '
861          diagCode  = 'VVR     MR      '
862          diagMate  = diagNum
863          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
864         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
865    
866    #endif /* ALLOW_GMREDI */
867    
868    #endif /* ALLOW_EDDYPSI */
869    
870        RETURN        RETURN
871        END        END
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22