/[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.42 by jmc, Thu Nov 10 22:28:36 2011 UTC revision 1.43 by jmc, Wed Nov 30 20:58:35 2011 UTC
# Line 800  c     diagTitle = 'Free-Surface r-Positi Line 800  c     diagTitle = 'Free-Surface r-Positi
800        diagCode  = 'SMR     MR      '        diagCode  = 'SMR     MR      '
801        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
802       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
803    
804          diagName  = 'gTinAB  '
805          diagTitle = 'Potential Temp. tendency going in Adams-Bashforth'
806          diagUnits = DIAGS_MK_UNITS( tUnit4c//'/s', myThid )
807          diagCode  = 'SMR     MR      '
808          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
809         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
810    
811          diagName  = 'gSinAB  '
812          diagTitle = DIAGS_MK_TITLE(
813         &            sTitle//'tendency going in Adams-Bashforth', myThid )
814          diagUnits = DIAGS_MK_UNITS( sUnit4c//'/s', myThid )
815          diagCode  = 'SMR     MR      '
816          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
817         I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
818  #endif /* ALLOW_GENERIC_ADVDIFF */  #endif /* ALLOW_GENERIC_ADVDIFF */
819    
820        RETURN        RETURN
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22