moist_flux Function

public function moist_flux(cveg, resa, qtair, qwall, hurel, resc, ress)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: cveg
real, intent(in) :: resa
real, intent(in) :: qtair
real, intent(in) :: qwall
real, intent(in) :: hurel
real, intent(in) :: resc
real, intent(in) :: ress

Return Value real


Called by

proc~~moist_flux~~CalledByGraph proc~moist_flux moist_flux proc~wallfunheat wallfunheat proc~wallfunheat->proc~moist_flux proc~ibmwallfun ibmwallfun proc~ibmwallfun->proc~wallfunheat program~dalesurban DALESURBAN program~dalesurban->proc~ibmwallfun

Source Code

   real function moist_flux(cveg, resa, qtair, qwall, hurel, resc, ress)
     real, intent(in) :: cveg, resa, qtair, qwall, hurel, resc, ress

     moist_flux = min(0., cveg * (qtair - qwall)         / (resa + resc) + &
                     (1 - cveg)* (qtair - qwall * hurel) / (resa + ress))

   end function moist_flux