--- MITgcm/pkg/kpp/kpp_routines.F	2002/07/13 03:12:30	1.10
+++ MITgcm/pkg/kpp/kpp_routines.F	2002/09/18 16:38:02	1.11
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/kpp/kpp_routines.F,v 1.10 2002/07/13 03:12:30 heimbach Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/kpp/kpp_routines.F,v 1.11 2002/09/18 16:38:02 mlosch Exp $
 C $Name:  $
 
 #include "KPP_OPTIONS.h"
@@ -1340,17 +1340,17 @@
 c calculate density, alpha, beta in surface layer, and set dbsfc to zero
 
       call FIND_RHO(
-     I     bi, bj, ibot, itop, jbot, jtop, 1, 1, eosType,
+     I     bi, bj, ibot, itop, jbot, jtop, 1, 1,
      I     theta, salt,
      O     WORK1,
      I     myThid )
 
       call FIND_ALPHA(
-     I     bi, bj, ibot, itop, jbot, jtop, 1, 1, eosType,
+     I     bi, bj, ibot, itop, jbot, jtop, 1, 1,
      O     WORK2 )
 
       call FIND_BETA(
-     I     bi, bj, ibot, itop, jbot, jtop, 1, 1, eosType,
+     I     bi, bj, ibot, itop, jbot, jtop, 1, 1,
      O     WORK3 )
 
       DO J = jbot, jtop
@@ -1368,29 +1368,29 @@
       DO K = 2, Nr
 
          call FIND_RHO(
-     I        bi, bj, ibot, itop, jbot, jtop, K, K, eosType,
+     I        bi, bj, ibot, itop, jbot, jtop, K, K,
      I        theta, salt,
      O        RHOK,
      I        myThid )
 
          call FIND_RHO(
-     I        bi, bj, ibot, itop, jbot, jtop, K-1, K, eosType,
+     I        bi, bj, ibot, itop, jbot, jtop, K-1, K,
      I        theta, salt,
      O        RHOKM1,
      I        myThid )
 
          call FIND_RHO(
-     I        bi, bj, ibot, itop, jbot, jtop, 1, K, eosType,
+     I        bi, bj, ibot, itop, jbot, jtop, 1, K,
      I        theta, salt,
      O        RHO1K,
      I        myThid )
 
          call FIND_ALPHA(
-     I        bi, bj, ibot, itop, jbot, jtop, K, K, eosType,
+     I        bi, bj, ibot, itop, jbot, jtop, K, K,
      O        WORK1 )
 
          call FIND_BETA(
-     I        bi, bj, ibot, itop, jbot, jtop, K, K, eosType,
+     I        bi, bj, ibot, itop, jbot, jtop, K, K,
      O        WORK2 )
 
          DO J = jbot, jtop