function sc = sc_coeff_o2(T)

%  This function computes and returns the Schmidt coeff of O2 
%  in water at T degC.
%  Data from Keeling et al., GBC, 12, 141-163, 1998.

% Samar Khatiwala (spk@ldeo.columbia.edu)

%FP=sw_fp(S,0.*S); % freezing point
%jf=find(T<=FP);

sc = 1638.0 - 81.83*T + 1.483*(T.^2) - 0.008004*(T.^3);

%sc(jf)=NaN;


