qsat Function

public function qsat(T)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: T

Return Value real


Called by

proc~~qsat~~CalledByGraph proc~qsat initfac::qsat proc~readfacetfiles initfac::readfacetfiles proc~readfacetfiles->proc~qsat proc~updategr modEB::updateGR proc~updategr->proc~qsat proc~eb modEB::EB proc~eb->proc~updategr program~dalesurban DALESURBAN program~dalesurban->proc~readfacetfiles program~dalesurban->proc~eb

Contents

Source Code

qsat

Source Code

      real function qsat(T)
         implicit none
         real, intent(in) :: T
         real :: gres
         gres = 611.00*exp(17.27*(T - 273.15)/(T - 35.85)) ![Pa] Bolton 1980
         qsat = 0.62198*0.01*gres/(1000-0.01*gres) ![kg/kg] Murphy & Koop 2005 !1000 can be replaced with actual air pressure if desired
      end function qsat