function_of_pstar_MT Function

public function function_of_pstar_MT(sgnBC, Pstar, Ttank, mdot, AreaPP, p_LR, u_LR, z_LR)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: sgnBC
real(kind=dp), intent(in) :: Pstar
real(kind=dp), intent(in) :: Ttank
real(kind=dp), intent(in) :: mdot
real(kind=dp), intent(in) :: AreaPP
real(kind=dp), intent(in) :: p_LR
real(kind=dp), intent(in) :: u_LR
real(kind=dp), intent(in) :: z_LR

Return Value real(kind=dp)


Calls

proc~~function_of_pstar_mt~~CallsGraph proc~function_of_pstar_mt function_of_pstar_MT proc~t_rop T_roP proc~function_of_pstar_mt->proc~t_rop proc~brent brent proc~t_rop->proc~brent proc~fill_f_terms fill_f_terms proc~t_rop->proc~fill_f_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~t_rop->proc~fill_g_dreg_terms f f proc~brent->f proc~set_error set_error proc~brent->proc~set_error proc~zero zero proc~brent->proc~zero proc~zero->f

Called by

proc~~function_of_pstar_mt~~CalledByGraph proc~function_of_pstar_mt function_of_pstar_MT proc~solve_boundary_mt solve_boundary_MT proc~solve_boundary_mt->proc~function_of_pstar_mt proc~boundary_resolution_from_and_to_ports boundary_resolution_from_and_to_ports proc~boundary_resolution_from_and_to_ports->proc~solve_boundary_mt proc~main_loop main_loop proc~main_loop->proc~boundary_resolution_from_and_to_ports program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

function function_of_pstar_MT(sgnBC,Pstar,Ttank,mdot,AreaPP,p_LR,u_LR,z_LR)

  real(dp), intent(in) :: sgnBC,Pstar,Ttank,mdot,AreaPP,p_LR,u_LR,z_LR
  real(dp) :: function_of_pstar_MT, Ustar, rostar_LR, T_temp

  Ustar=u_LR+sgnBC*(Pstar-p_LR)/z_LR
  rostar_LR=mdot/(Ustar*AreaPP)
  T_temp=T_roP(rostar_LR,Pstar)
  function_of_pstar_MT=T_temp-Ttank

end function function_of_pstar_MT