mom_transfer_coef_neutral Function

public function mom_transfer_coef_neutral(dist, z0)

Uses

  • proc~~mom_transfer_coef_neutral~~UsesGraph proc~mom_transfer_coef_neutral mom_transfer_coef_neutral module~modglobal modglobal proc~mom_transfer_coef_neutral->module~modglobal

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dist
real, intent(in) :: z0

Return Value real


Called by

proc~~mom_transfer_coef_neutral~~CalledByGraph proc~mom_transfer_coef_neutral mom_transfer_coef_neutral proc~wallfunmom wallfunmom proc~wallfunmom->proc~mom_transfer_coef_neutral proc~ibmwallfun ibmwallfun proc~ibmwallfun->proc~wallfunmom program~dalesurban DALESURBAN program~dalesurban->proc~ibmwallfun

Source Code

   real function mom_transfer_coef_neutral(dist, z0)
     ! calculates the heat transfer coefficient based on the (neutral) log law,
     ! for a distance 'dist' and a momentum roughness length 'z0'.
     use modglobal, only : fkar

     implicit none
     real, intent(in) :: dist, z0

     mom_transfer_coef_neutral = (fkar / log(dist / z0))**2

   end function mom_transfer_coef_neutral