/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.75 by heimbach, Fri Oct 17 18:37:10 2008 UTC revision 1.76 by dfer, Thu Oct 23 18:14:59 2008 UTC
# Line 552  C--     Compute KPP mixing coefficients Line 552  C--     Compute KPP mixing coefficients
552            IF ( debugLevel .GE. debLevB )            IF ( debugLevel .GE. debLevB )
553       &     CALL DEBUG_CALL('KPP_CALC',myThid)       &     CALL DEBUG_CALL('KPP_CALC',myThid)
554  #endif  #endif
555              CALL TIMER_START('KPP_CALC [DO_OCEANIC_PHYS]', myThid)
556            CALL KPP_CALC(            CALL KPP_CALC(
557       I                  bi, bj, myTime, myIter, myThid )       I                  bi, bj, myTime, myIter, myThid )
558              CALL TIMER_STOP ('KPP_CALC [DO_OCEANIC_PHYS]', myThid)
559  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
560          ELSE          ELSE
561            CALL KPP_CALC_DUMMY(            CALL KPP_CALC_DUMMY(
# Line 594  C--     Compute GGL90 mixing coefficient Line 596  C--     Compute GGL90 mixing coefficient
596            IF ( debugLevel .GE. debLevB )            IF ( debugLevel .GE. debLevB )
597       &     CALL DEBUG_CALL('GGL90_CALC',myThid)       &     CALL DEBUG_CALL('GGL90_CALC',myThid)
598  #endif  #endif
599              CALL TIMER_START('GGL90_CALC [DO_OCEANIC_PHYS]', myThid)
600            CALL GGL90_CALC(            CALL GGL90_CALC(
601       I                  bi, bj, myTime, myThid )       I                  bi, bj, myTime, myThid )
602              CALL TIMER_STOP ('GGL90_CALC [DO_OCEANIC_PHYS]', myThid)
603          ENDIF          ENDIF
604  #endif /* ALLOW_GGL90 */  #endif /* ALLOW_GGL90 */
605    
Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76
  ViewVC Help
Powered by ViewVC 1.1.22