excess_enthalpy Subroutine

public subroutine excess_enthalpy(self, n, T, He, HeT, Hen)

Calculate Excess enthalpy and its derivatives.

$$H^E = G^E - T \frac{\partial G^E}{\partial T}$$

References

[1] https://en.wikipedia.org/wiki/Gibbs%E2%80%93Helmholtz_equation

Type Bound

GeModel

Arguments

Type	Intent	Optional	Attributes		Name
class(GeModel),	intent(in)			::	self	Model
real(kind=pr),	intent(in)			::	n(:)	Moles vector
real(kind=pr),	intent(in)			::	T	Temperature [K]
real(kind=pr),	intent(out),	optional		::	He	Excess enthalpy
real(kind=pr),	intent(out),	optional		::	HeT	$\frac{dH^E}{dT}$
real(kind=pr),	intent(out),	optional		::	Hen(:)	$\frac{dH^E}{dn}$

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public		::	Ge
real(kind=pr),	public		::	GeT
real(kind=pr),	public		::	GeT2
real(kind=pr),	public		::	GeTn(size(n))
real(kind=pr),	public		::	Gen(size(n))