Calculate residual enthalpy given volume and temperature.
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 | Intent | Optional | 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)) |
|
| 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)) |