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

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

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

revision 1.8 by heimbach, Sun Mar 25 22:33:55 2001 UTC revision 1.9 by heimbach, Tue Sep 18 20:30:59 2001 UTC
# Line 674  C     break data flow dependence on diff Line 674  C     break data flow dependence on diff
674    
675        do ki = 1, Nr        do ki = 1, Nr
676           do i = 1, imt           do i = 1, imt
677              if     (kmtj(i) .EQ. 0      ) then              if     (kmtj(i) .LE. 1      ) then
678                 diffus(i,ki,1) = 0.                 diffus(i,ki,1) = 0.
679                 diffus(i,ki,2) = 0.                 diffus(i,ki,2) = 0.
680              elseif (ki      .GE. kmtj(i)) then              elseif (ki      .GE. kmtj(i)) then
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22