/[MITgcm]/MITgcm/pkg/kpp/kpp_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_calc.F

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

revision 1.38 by molod, Sun Apr 29 19:30:57 2007 UTC revision 1.39 by jmc, Mon Apr 30 13:49:40 2007 UTC
# Line 711  c     matching diffusivities at bottom o Line 711  c     matching diffusivities at bottom o
711        END DO        END DO
712        CALL TIMER_START('KPPMIX [KPP_CALC]', myThid)        CALL TIMER_START('KPPMIX [KPP_CALC]', myThid)
713        CALL KPPMIX (        CALL KPPMIX (
714       I       mytime, mythid,imt, Nr, Nrp1, mdiff, viscAr       I       mytime, mythid
715       I     , work1, shsq, dVsq, ustar       I     , work1, shsq, dVsq, ustar
716       I     , bo, bosol, dbloc, Ritop, work2       I     , bo, bosol, dbloc, Ritop, work2
717       I     , KPPdiffKzS(1-Olx,1-Oly,1,bi,bj)       I     , KPPdiffKzS(1-Olx,1-Oly,1,bi,bj)
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22