funct_ro_from_pT Function

private function funct_ro_from_pT(me, x)

Type Bound

ro_from_pT_obj_t

Arguments

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

x is ro (Arp units)

Return Value real(kind=dp)


Calls

proc~~funct_ro_from_pt~~CallsGraph proc~funct_ro_from_pt ro_from_pT_obj_t%funct_ro_from_pT proc~eos_pt_terms eos_pT_terms proc~funct_ro_from_pt->proc~eos_pt_terms proc~fill_f_terms fill_f_terms proc~eos_pt_terms->proc~fill_f_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~eos_pt_terms->proc~fill_g_dreg_terms

Source Code

function funct_ro_from_pT(me,x)
    class(ro_from_pT_obj_t), intent(in) :: me
    real(dp),                intent(in) :: x   !! x is ro (Arp units)
    real(dp) :: funct_ro_from_pT
    type(ThArrays_t) :: ThAr

    call eos_pT_terms(x, me%T, ThAr)
    funct_ro_from_pT = me%p - x*R_cte_gaz_Arp*me%T - sum(ThAr%f*ThAr%g)
end function funct_ro_from_pT