/[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.52 by jmc, Sat May 28 23:24:47 2016 UTC
# Line 559  c     diagTitle = 'Square of ocean botto Line 559  c     diagTitle = 'Square of ocean botto
559        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
560       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
561    
562          diagName  = 'PHI_SURF'
563          diagTitle = DIAGS_MK_TITLE('Surface Dynamical '//pTitle,myThid)
564          diagUnits = 'm^2/s^2         '
565          diagCode  = 'SM      M1      '
566          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
567         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
568    
569  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
570        diagName  = 'PHIHYDcR'        diagName  = 'PHIHYDcR'
571        diagTitle = DIAGS_MK_TITLE( 'Hydrostatic '        diagTitle = DIAGS_MK_TITLE( 'Hydrostatic '
# Line 771  c     diagTitle = 'Free-Surface r-Positi Line 778  c     diagTitle = 'Free-Surface r-Positi
778        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
779       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
780    
781    #ifdef ALLOW_FRICTION_HEATING
782          diagName  = 'HeatDiss'
783          diagTitle = 'Heating from frictional dissipation'
784          diagUnits = 'W/m^2           '
785          diagCode  = 'SM      MR      '
786          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
787         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
788    #endif /* ALLOW_FRICTION_HEATING */
789    
790  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
791        diagName  = 'gT_Forc '        diagName  = 'gT_Forc '
792        diagTitle = 'Potential Temp. forcing tendency'        diagTitle = 'Potential Temp. forcing tendency'
# Line 846  c     diagTitle = 'Free-Surface r-Positi Line 862  c     diagTitle = 'Free-Surface r-Positi
862  #ifdef ALLOW_EDDYPSI  #ifdef ALLOW_EDDYPSI
863        diagName  = 'TAUXEDDY'        diagName  = 'TAUXEDDY'
864        diagTitle = 'Zonal Eddy Stress'        diagTitle = 'Zonal Eddy Stress'
865        diagUnits = 'N/m**2          '        diagUnits = 'N/m^2           '
866        diagCode  = 'UU P    MR      '        diagCode  = 'UU      LR      '
867        diagMate  = diagNum        diagMate  = diagNum + 2
868        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
869       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
870    
871        diagName  = 'TAUYEDDY'        diagName  = 'TAUYEDDY'
872        diagTitle = 'Meridional Eddy Stress'        diagTitle = 'Meridional Eddy Stress'
873        diagUnits = 'N/m**2          '        diagUnits = 'N/m^2           '
874        diagCode  = 'VV P    MR      '        diagCode  = 'VV      LR      '
875        diagMate  = diagNum        diagMate  = diagNum
876        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
877       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
878    
879  # ifdef ALLOW_GMREDI  # ifdef ALLOW_GMREDI
880        diagName  = 'UVELMEAN'        diagName  = 'U_EulerM'
881        diagTitle = 'Zonal Component of Mean Velocity (m/s)'        diagTitle = 'Zonal Eulerian-Mean Velocity (m/s)'
882        diagUnits = 'm/s             '        diagUnits = 'm/s             '
883        diagCode  = 'UUR     MR      '        diagCode  = 'UUR     MR      '
884        diagMate  = diagNum + 2        diagMate  = diagNum + 2
885        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
886       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
887    
888        diagName  = 'VVELMEAN'        diagName  = 'V_EulerM'
889        diagTitle = 'Meridional Component of Mean Velocity (m/s)'        diagTitle = 'Meridional Eulerian-Mean Velocity (m/s)'
890        diagUnits = 'm/s             '        diagUnits = 'm/s             '
891        diagCode  = 'VVR     MR      '        diagCode  = 'VVR     MR      '
892        diagMate  = diagNum        diagMate  = diagNum
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22