der_friction_factor_laminar Function

public function der_friction_factor_laminar(Re)

Arguments

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

Return Value real(kind=dp)


Called by

proc~~der_friction_factor_laminar~~CalledByGraph proc~der_friction_factor_laminar der_friction_factor_laminar proc~friction_source_term friction_source_term proc~friction_source_term->proc~der_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 der_friction_factor_laminar(Re)
    real(dp), intent(in) :: Re
    real(dp) :: der_friction_factor_laminar
    real(dp) :: a,Remin

    a=16.0_dp
    Remin=1.0e-8_dp

    if(Re>Remin) then
      der_friction_factor_laminar=-a/(Re**2)
    else
      der_friction_factor_laminar=0.0_dp
    endif
  end function der_friction_factor_laminar