friction_factor_laminar Function

public function friction_factor_laminar(Re)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: Re

Return Value real(kind=dp)


Called by

proc~~friction_factor_laminar~~CalledByGraph proc~friction_factor_laminar friction_factor_laminar proc~friction_source_term friction_source_term proc~friction_source_term->proc~friction_factor_laminar proc~main_loop main_loop proc~main_loop->proc~friction_source_term program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

  function friction_factor_laminar(Re)  
    real(dp), intent(in) :: Re
    real(dp) :: friction_factor_laminar
    real(dp) :: a,Remin

    a=16.0_dp
    Remin=1.0e-8_dp

    if(Re>Remin) then
      friction_factor_laminar=a/Re
    else
      friction_factor_laminar=a/Remin
    endif
  end function friction_factor_laminar