/[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.50 by jmc, Sat Jul 19 16:46:25 2014 UTC revision 1.51 by jmc, Tue Jan 20 20:50:15 2015 UTC
# Line 771  c     diagTitle = 'Free-Surface r-Positi Line 771  c     diagTitle = 'Free-Surface r-Positi
771        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
772       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
773    
774    #ifdef ALLOW_FRICTION_HEATING
775          diagName  = 'HeatDiss'
776          diagTitle = 'Heating from frictional dissipation'
777          diagUnits = 'W/m^2           '
778          diagCode  = 'SM      MR      '
779          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
780         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
781    #endif /* ALLOW_FRICTION_HEATING */
782    
783  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
784        diagName  = 'gT_Forc '        diagName  = 'gT_Forc '
785        diagTitle = 'Potential Temp. forcing tendency'        diagTitle = 'Potential Temp. forcing tendency'
# Line 846  c     diagTitle = 'Free-Surface r-Positi Line 855  c     diagTitle = 'Free-Surface r-Positi
855  #ifdef ALLOW_EDDYPSI  #ifdef ALLOW_EDDYPSI
856        diagName  = 'TAUXEDDY'        diagName  = 'TAUXEDDY'
857        diagTitle = 'Zonal Eddy Stress'        diagTitle = 'Zonal Eddy Stress'
858        diagUnits = 'N/m**2          '        diagUnits = 'N/m^2           '
859        diagCode  = 'UU P    MR      '        diagCode  = 'UU      LR      '
860        diagMate  = diagNum        diagMate  = diagNum + 2
861        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
862       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
863    
864        diagName  = 'TAUYEDDY'        diagName  = 'TAUYEDDY'
865        diagTitle = 'Meridional Eddy Stress'        diagTitle = 'Meridional Eddy Stress'
866        diagUnits = 'N/m**2          '        diagUnits = 'N/m^2           '
867        diagCode  = 'VV P    MR      '        diagCode  = 'VV      LR      '
868        diagMate  = diagNum        diagMate  = diagNum
869        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
870       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
871    
872  # ifdef ALLOW_GMREDI  # ifdef ALLOW_GMREDI
873        diagName  = 'UVELMEAN'        diagName  = 'U_EulerM'
874        diagTitle = 'Zonal Component of Mean Velocity (m/s)'        diagTitle = 'Zonal Eulerian-Mean Velocity (m/s)'
875        diagUnits = 'm/s             '        diagUnits = 'm/s             '
876        diagCode  = 'UUR     MR      '        diagCode  = 'UUR     MR      '
877        diagMate  = diagNum + 2        diagMate  = diagNum + 2
878        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
879       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
880    
881        diagName  = 'VVELMEAN'        diagName  = 'V_EulerM'
882        diagTitle = 'Meridional Component of Mean Velocity (m/s)'        diagTitle = 'Meridional Eulerian-Mean Velocity (m/s)'
883        diagUnits = 'm/s             '        diagUnits = 'm/s             '
884        diagCode  = 'VVR     MR      '        diagCode  = 'VVR     MR      '
885        diagMate  = diagNum        diagMate  = diagNum
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51
  ViewVC Help
Powered by ViewVC 1.1.22