state_roE Subroutine

public subroutine state_roE(ro, e, p, T, c)

State from (ro,e): p, T, c for the physical EOS path.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: ro
real(kind=dp), intent(in) :: e
real(kind=dp), intent(out) :: p
real(kind=dp), intent(out) :: T
real(kind=dp), intent(out) :: c

Calls

proc~~state_roe~~CallsGraph proc~state_roe state_roE proc~jacobian_rot jacobian_roT proc~state_roe->proc~jacobian_rot proc~t_roe T_roE proc~state_roe->proc~t_roe proc~eos_terms eos_terms proc~jacobian_rot->proc~eos_terms proc~brent brent proc~t_roe->proc~brent proc~fill_e_tpart fill_e_Tpart proc~t_roe->proc~fill_e_tpart proc~fill_ff_terms fill_ff_terms proc~t_roe->proc~fill_ff_terms f f proc~brent->f proc~set_error set_error proc~brent->proc~set_error proc~zero zero proc~brent->proc~zero proc~eos_e_terms eos_e_terms proc~eos_terms->proc~eos_e_terms proc~fill_f_terms fill_f_terms proc~eos_terms->proc~fill_f_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~fill_e_tpart->proc~fill_g_dreg_terms proc~eos_e_terms->proc~fill_e_tpart proc~eos_e_terms->proc~fill_ff_terms proc~zero->f

Called by

proc~~state_roe~~CalledByGraph proc~state_roe state_roE proc~friction_source_term friction_source_term proc~friction_source_term->proc~state_roe proc~from_sol_to_prim_channel from_sol_to_prim_channel proc~from_sol_to_prim_channel->proc~state_roe proc~sourceterms_notfriction_channel SourceTerms_NOTfriction_channel proc~sourceterms_notfriction_channel->proc~state_roe proc~main_loop main_loop proc~main_loop->proc~friction_source_term proc~main_loop->proc~from_sol_to_prim_channel proc~source_term_definition_channel source_term_definition_channel proc~main_loop->proc~source_term_definition_channel proc~full_physics_definition_channel full_physics_definition_channel proc~main_loop->proc~full_physics_definition_channel proc~source_term_definition_channel->proc~sourceterms_notfriction_channel proc~full_physics_definition_channel->proc~source_term_definition_channel program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine state_roE(ro, e, p, T, c)
    !! State from (ro,e): p, T, c for the physical EOS path.
    real(dp), intent(in)  :: ro, e
    real(dp), intent(out) :: p, T, c
    real(dp) :: dPdRo, dPdT, dTdRo, cv

    T = T_roE(ro, e)
    call jacobian_roT(ro, T, cv, dPdT, dTdRo=dTdRo, p=p)
    dPdRo = -dTdRo*dPdT
    c = sqrt(dPdRo + T*(dPdT**2)/(cv*(ro**2)))
end subroutine state_roE