function h2o_vapr_ice_marti,t ;------------------------------------------------------------------ ; Purpose: ; Compute the saturation vapor pressure of h2o over ice ; according to Marti and Mauersberger, 1993 ; ; Input: ; t.......temp in K ; ; Output: ; p_sat...saturation vapor pressure (mb) ; ; Source: Mark Hervig ;------------------------------------------------------------------ p_sat = 0.01 * exp(28.868 - 6132.935 / T) return,p_sat end