/[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.42 by jmc, Thu Nov 10 22:28:36 2011 UTC
# Line 501  C---+----1----+----2----+----3----+----4 Line 501  C---+----1----+----2----+----3----+----4
501       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
502    
503        diagName  = 'WRHOMASS'        diagName  = 'WRHOMASS'
504        diagTitle = 'Vertical Transport of Potential Density'        diagTitle = 'Vertical Transport of Density'
505          diagUnits = 'kg/m^2/s        '
506          diagCode  = 'WM      LR      '
507          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
508         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
509    
510          diagName  = 'WdRHO_P '
511          diagTitle = 'Vertical velocity times delta^k(Rho)_at-const-P'
512          diagUnits = 'kg/m^2/s        '
513          diagCode  = 'WM      LR      '
514          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
515         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
516    
517          diagName  = 'WdRHOdP '
518          diagTitle = 'Vertical velocity times delta^k(Rho)_at-const-T,S'
519        diagUnits = 'kg/m^2/s        '        diagUnits = 'kg/m^2/s        '
520        diagCode  = 'WM      LR      '        diagCode  = 'WM      LR      '
521        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
# Line 746  c     diagTitle = 'Free-Surface r-Positi Line 760  c     diagTitle = 'Free-Surface r-Positi
760        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
761       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
762    
763          diagName  = 'AB_gU   '
764          diagTitle = 'U momentum tendency from Adams-Bashforth'
765          diagUnits = 'm/s^2           '
766          diagCode  = 'UUR     MR      '
767          diagMate  = diagNum + 2
768          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
769         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
770    
771          diagName  = 'AB_gV   '
772          diagTitle = 'V momentum tendency from Adams-Bashforth'
773          diagUnits = 'm/s^2           '
774          diagCode  = 'VVR     MR      '
775          diagMate  = diagNum
776          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
777         I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
778    
779    #ifdef ALLOW_NONHYDROSTATIC
780          diagName  = 'AB_gW   '
781          diagTitle = 'W momentum tendency from Adams-Bashforth'
782          diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s^2', myThid )
783          diagCode  = 'WM      LR      '
784          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
785         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
786    #endif /* ALLOW_NONHYDROSTATIC */
787    
788    #ifdef ALLOW_GENERIC_ADVDIFF
789          diagName  = 'AB_gT   '
790          diagTitle = 'Potential Temp. tendency from Adams-Bashforth'
791          diagUnits = DIAGS_MK_UNITS( tUnit4c//'/s', myThid )
792          diagCode  = 'SMR     MR      '
793          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
794         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
795    
796          diagName  = 'AB_gS   '
797          diagTitle = DIAGS_MK_TITLE(
798         &            sTitle//'tendency from Adams-Bashforth', myThid )
799          diagUnits = DIAGS_MK_UNITS( sUnit4c//'/s', myThid )
800          diagCode  = 'SMR     MR      '
801          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
802         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
803    #endif /* ALLOW_GENERIC_ADVDIFF */
804    
805        RETURN        RETURN
806        END        END
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22