--- MITgcm/pkg/kpp/kpp_routines.F	2001/02/04 14:38:50	1.7
+++ MITgcm/pkg/kpp/kpp_routines.F	2001/09/18 20:30:59	1.9
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/kpp/kpp_routines.F,v 1.7 2001/02/04 14:38:50 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/kpp/kpp_routines.F,v 1.9 2001/09/18 20:30:59 heimbach Exp $
 C $Name:  $
 
 #include "KPP_OPTIONS.h"
@@ -674,7 +674,7 @@
 
       do ki = 1, Nr
          do i = 1, imt
-            if     (kmtj(i) .EQ. 0      ) then
+            if     (kmtj(i) .LE. 1      ) then
                diffus(i,ki,1) = 0.
                diffus(i,ki,2) = 0.
             elseif (ki      .GE. kmtj(i)) then