PRO COEF, SST, KL19, KL37, KV19, KV37, TOX19, TOX37
;
;     This subroutine calculates the absorption coefficients and
;     the oxygen transmission at 19 and 37 GHz given the SST and
;     parameterizing the effective cloud emission temperature.
;
;     INPUT:
;                SST   -  Sea surface temperature in Kelvin (for a
;                         particular grid box)
;     OUTPUT:
;                KL19  -  Liquid water mass absorption coefficient at 19 GHz [m^2/kg]
;                KL37  -  Liquid water mass absorption coefficient at 37 GHz [m^2/kg]
;                KV19  -  Water vapor mass absorption coefficient at 19 GHz [m^2/kg]
;                KV37  -  Water vapor mass absorption coefficient at 37 GHz [m^2/kg]
;                TOX19 -  Oxygen transmission at 19 GHz
;                TOX37 -  Oxygen transmission at 37 GHz
;
;      REAL SST,KL19,KL37,KV19,KV37,TOX19,TOX37
;
;  Set effective cloud emission temp
      TC = SST - 6.
;  Compute liquid water mass absorption coefficients (m**2/kg)
;  From Petty Ph.D. dissertation, 1990
      TCEL = TC - 273.15
      KL19 = 0.0786 - 0.230E-2*TCEL + 0.448E-4*TCEL^2 - $
              0.464E-6*TCEL^3
      KL37 = 0.267 - 0.673E-2*TCEL + 0.975E-4*TCEL^2 - $
              0.724E-6*TCEL^3

;    Water vapor absoprtion coefficient and oxygen transmittance
;    taken from Greenwald et al. (1993).
      TSCEL = SST - 273.15
      TOX19 = 0.9779 -6.314E-5 * TSCEL + 7.746E-6 * TSCEL^2 - $
           1.003E-7 * TSCEL^3
      TOX37 = 0.9269 -8.525E-5 * TSCEL + 1.807E-5 * TSCEL^2 - $
           2.008E-7 * TSCEL^3
           
      KV19 = 2.58E-3 * (300./SST)^0.477
      KV37 = 2.12E-3

      END