enthalpy_residual_vt Subroutine

private subroutine enthalpy_residual_vt(eos, n, V, T, Hr, HrV, HrT, Hrn)

Calculate residual enthalpy given volume and temperature.

Examples

eos = PengRobinson76(Tc, Pc, w)

n = [1.0_pr, 1.0_pr]
T = 300.0_pr
V = 1.0_pr

call eos%enthalpy_residual_vt(&
   n, V, T, Hr=Hr, HrV=HrV, HrT=HrT, Hrn=Hrn &
   )

Type Bound

ArModel

Arguments

Type IntentOptional Attributes Name
class(ArModel), intent(in) :: eos

Model
real(kind=pr), intent(in) :: n(:)

Moles number vector
real(kind=pr), intent(in) :: V

Volume [L]
real(kind=pr), intent(in) :: T

Temperature [K]
real(kind=pr), intent(out), optional :: Hr

Residual enthalpy [bar L]
real(kind=pr), intent(out), optional :: HrV

real(kind=pr), intent(out), optional :: HrT

real(kind=pr), intent(out), optional :: Hrn(size(n))


Calls

proc~~enthalpy_residual_vt~~CallsGraph proc~enthalpy_residual_vt ArModel%enthalpy_residual_vt residual_helmholtz residual_helmholtz proc~enthalpy_residual_vt->residual_helmholtz

Called by

proc~~enthalpy_residual_vt~~CalledByGraph proc~enthalpy_residual_vt ArModel%enthalpy_residual_vt proc~ar_consistency ar_consistency proc~ar_consistency->proc~enthalpy_residual_vt proc~enthalpy_residual_pt ArModel%enthalpy_residual_pt proc~enthalpy_residual_pt->proc~enthalpy_residual_vt

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: Ar
real(kind=pr), private :: ArT
real(kind=pr), private :: ArT2
real(kind=pr), private :: ArTV
real(kind=pr), private :: ArTn(size(n))
real(kind=pr), private :: ArV
real(kind=pr), private :: ArV2
real(kind=pr), private :: ArVn(size(n))
real(kind=pr), private :: Arn(size(n))