/[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.40 by jmc, Tue Jul 19 23:51:21 2011 UTC revision 1.41 by jmc, Mon Nov 7 15:53:31 2011 UTC
# Line 746  c     diagTitle = 'Free-Surface r-Positi Line 746  c     diagTitle = 'Free-Surface r-Positi
746        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
747       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
748    
749          diagName  = 'AB_gU   '
750          diagTitle = 'U momentum tendency from Adams-Bashforth'
751          diagUnits = 'm/s^2           '
752          diagCode  = 'UUR     MR      '
753          diagMate  = diagNum + 2
754          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
755         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
756    
757          diagName  = 'AB_gV   '
758          diagTitle = 'V momentum tendency from Adams-Bashforth'
759          diagUnits = 'm/s^2           '
760          diagCode  = 'VVR     MR      '
761          diagMate  = diagNum
762          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
763         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
764    
765    #ifdef ALLOW_NONHYDROSTATIC
766          diagName  = 'AB_gW   '
767          diagTitle = 'W momentum tendency from Adams-Bashforth'
768          diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s^2', myThid )
769          diagCode  = 'WM      LR      '
770          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
771         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
772    #endif /* ALLOW_NONHYDROSTATIC */
773    
774    #ifdef ALLOW_GENERIC_ADVDIFF
775          diagName  = 'AB_gT   '
776          diagTitle = 'Potential Temp. tendency from Adams-Bashforth'
777          diagUnits = DIAGS_MK_UNITS( tUnit4c//'/s', myThid )
778          diagCode  = 'SMR     MR      '
779          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
780         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
781    
782          diagName  = 'AB_gS   '
783          diagTitle = DIAGS_MK_TITLE(
784         &            sTitle//'tendency from Adams-Bashforth', myThid )
785          diagUnits = DIAGS_MK_UNITS( sUnit4c//'/s', myThid )
786          diagCode  = 'SMR     MR      '
787          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
788         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
789    #endif /* ALLOW_GENERIC_ADVDIFF */
790    
791        RETURN        RETURN
792        END        END
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22