gsw_latentheat_evap_t.f90

Go to the documentation of this file.

!==========================================================================
elemental function gsw_latentheat_evap_t (sa, t)  
!==========================================================================
!
! Calculates latent heat, or enthalpy, of evaporation.
!
! sa     : Absolute Salinity                               [g/kg]
! t      : in-situ temperature                             [deg C]
! 
! gsw_latentheat_evap_t : latent heat of evaporation       [J/kg]
!--------------------------------------------------------------------------

use gsw_mod_toolbox, only : gsw_ct_from_pt, gsw_latentheat_evap_ct

use gsw_mod_kinds

implicit none

real (r8), intent(in) :: sa, t  

real (r8) :: gsw_latentheat_evap_t

real (r8) :: ct

ct = gsw_ct_from_pt(sa,t)

gsw_latentheat_evap_t = gsw_latentheat_evap_ct(sa,ct)

return
end function

!--------------------------------------------------------------------------