/[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.38 by jmc, Tue Jun 14 00:18:37 2011 UTC revision 1.41 by jmc, Mon Nov 7 15:53:31 2011 UTC
# Line 343  C-    use 'UVELMASS' as mate. Line 343  C-    use 'UVELMASS' as mate.
343        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
344       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
345    
346  c     diagName  = 'PsiVEL  '        diagName  = 'PsiVEL  '
347  c     diagTitle = 'Horizontal Velocity Stream-Function'        diagTitle = 'Horizontal Velocity Stream-Function'
348  c     diagUnits = 'm^2/s           '        diagUnits = DIAGS_MK_UNITS( rUnit2c//'.m^2/s', myThid )
349  c     diagUnits = DIAGS_MK_UNITS( rUnit2c//'.m^2/s', myThid )        diagCode  = 'SZ  P   MR      '
 c     diagCode  = 'SZ  P   MR      '  
350  C-    use 'PhiVEL' as mate.  C-    use 'PhiVEL' as mate.
351  c     diagMate  = diagNum        diagMate  = diagNum
352  c     CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
353  c    I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )       I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
354    
355        diagName  = 'UTHMASS '        diagName  = 'UTHMASS '
356        diagTitle = 'Zonal Mass-Weight Transp of Pot Temp'        diagTitle = 'Zonal Mass-Weight Transp of Pot Temp'
# Line 542  c     diagTitle = 'Square of ocean botto Line 541  c     diagTitle = 'Square of ocean botto
541        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
542       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
543    
544    #ifdef NONLIN_FRSURF
545          diagName  = 'PHIHYDcR'
546          diagTitle = DIAGS_MK_TITLE( 'Hydrostatic '
547         I                       //pTitle//' Anomaly @ const r', myThid )
548          diagUnits = 'm^2/s^2         '
549          diagCode  = 'SMR     MR      '
550          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
551         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
552    #endif
553    
554  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
555        diagName  = 'PHI_NH  '        diagName  = 'PHI_NH  '
556        diagTitle = DIAGS_MK_TITLE( 'Non-Hydrostatic '//pTitle, myThid )        diagTitle = DIAGS_MK_TITLE( 'Non-Hydrostatic '//pTitle, myThid )
# Line 737  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.38  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22