funct_T_from_roE Function

private function funct_T_from_roE(me, x)

Type Bound

T_from_roE_obj_t

Arguments

Type IntentOptional Attributes Name
class(T_from_roE_obj_t), intent(in) :: me
real(kind=dp), intent(in) :: x

x is T

Return Value real(kind=dp)


Calls

proc~~funct_t_from_roe~~CallsGraph proc~funct_t_from_roe T_from_roE_obj_t%funct_T_from_roE proc~eos_e_terms eos_e_terms proc~funct_t_from_roe->proc~eos_e_terms proc~fill_e_tpart fill_e_Tpart proc~eos_e_terms->proc~fill_e_tpart proc~fill_ff_terms fill_ff_terms proc~eos_e_terms->proc~fill_ff_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~fill_e_tpart->proc~fill_g_dreg_terms

Source Code

function funct_T_from_roE(me,x)
    class(T_from_roE_obj_t), intent(in) :: me
    real(dp),                intent(in) :: x   !! x is T
    real(dp) :: funct_T_from_roE
    type(ThArrays_t) :: ThAr

    call eos_e_terms(me%ro, x, ThAr)
    funct_T_from_roE = me%e - (cp0_Arp-R_cte_gaz_Arp)*x - q0_Arp - sum(ThAr%gg*ThAr%hh)/me%ro
end function funct_T_from_roE