function h2o_vapor_pres_clegg,t

;------------------------------------------------------------------
; Purpose:
;   Compute the saturation vapor pressure of h2o over liquid water
;   according to Clegg and Brimblecombe , J. Chem. Eng., p43, 1995.
;
; Input:
;     t.......temp in K
;
; Output:
;     p_sat...saturation vapor pressure (mb)
;
; Source:  Mark Hervig
;------------------------------------------------------------------

   p_sat = exp(18.452406985 - 3505.1578807/t - 330918.55082/(t^2)  + 12725068.262/(t^3))

   return,p_sat

   end