c_ ---------------------------------------------------------------------
c_ RCS lines preceded by "c_ "
c_ ---------------------------------------------------------------------
c_
c_ $Source: /home/orr/WWW/Biotic/boundcond/RCS/sco2.f,v $ 
c_ $Revision: 1.1 $
c_ $Date: 1999/03/22 12:57:48 $   ;  $State: Exp $
c_ $Author: orr $ ;  $Locker:  $
c_
c_ ---------------------------------------------------------------------
c_ $Log: sco2.f,v $
c_ Revision 1.1  1999/03/22 12:57:48  orr
c_ Initial revision
c_
c_ ---------------------------------------------------------------------
c_ 
      function sco2(t)
c
c*********************************************************************
c
c  Computes the Schmidt number of oxygen in seawater using the
c  formulation proposed by Keeling et al. (1998, Global Biogeochem.
c  Cycles, 12, 141-163).  Input is temperature in deg C.
c
c*********************************************************************
c
      sco2 = 1638.0 - 81.83*t + 1.483*t**2 - 0.008004*t**3
c
      return
      end