function x=latent(T);
% LATENT latent heat of vaporization (J/kg)
%
%        x=latent(T)
%
%        where T is temperature (deg C)
%
%        Lv(T) = 2.5008 x 10^6 -2.3 x 10^3 T
%        (from Adrian Gill's Atmosphere-Ocean Dynamics, page 607)

% D Menemenlis, 29 april 2001

x=2.5008e6-2.3e3*T;
