saturation_TP Subroutine

public subroutine saturation_TP(model, kind, z, X, ns, S, F, dF, dFdS)

Arguments

Type IntentOptional Attributes Name
class(ArModel), intent(in) :: model
character(len=*), intent(in) :: kind
real(kind=pr), intent(in) :: z(size(model))
real(kind=pr), intent(in) :: X(:)
integer, intent(in) :: ns
real(kind=pr), intent(in) :: S
real(kind=pr), intent(out) :: F(:)
real(kind=pr), intent(out) :: dF(:,:)
real(kind=pr), intent(out) :: dFdS(:)

Calls

proc~~saturation_tp~~CallsGraph proc~saturation_tp saturation_TP proc~lnphi_pt ArModel%lnphi_pt proc~saturation_tp->proc~lnphi_pt proc~lnphi_vt ArModel%lnphi_vt proc~lnphi_pt->proc~lnphi_vt proc~volume~3 ArModel%volume proc~lnphi_pt->proc~volume~3 residual_helmholtz residual_helmholtz proc~lnphi_vt->residual_helmholtz get_v0 get_v0 proc~volume~3->get_v0 interface~newton newton proc~volume~3->interface~newton proc~newton_1d newton_1d interface~newton->proc~newton_1d

Called by

proc~~saturation_tp~~CalledByGraph proc~saturation_tp saturation_TP none~wrap~2 wrap none~wrap~2->proc~saturation_tp proc~solve_tp solve_TP proc~solve_tp->none~wrap~2 proc~saturation_pressure saturation_pressure proc~saturation_pressure->proc~solve_tp proc~saturation_temperature saturation_temperature proc~saturation_temperature->proc~solve_tp

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public :: K(size(X)-2)
real(kind=pr), public :: P
real(kind=pr), public :: T
real(kind=pr), public :: Vy
real(kind=pr), public :: Vz
real(kind=pr), public :: dlnphi_dn_y(size(X)-2,size(X)-2)
real(kind=pr), public :: dlnphi_dn_z(size(X)-2,size(X)-2)
real(kind=pr), public :: dlnphi_dp_y(size(X)-2)
real(kind=pr), public :: dlnphi_dp_z(size(X)-2)
real(kind=pr), public :: dlnphi_dt_y(size(X)-2)
real(kind=pr), public :: dlnphi_dt_z(size(X)-2)
integer, public :: i
integer, public :: j
character(len=14), public :: kind_y
character(len=14), public :: kind_z
real(kind=pr), public :: lnPhi_y(size(X)-2)
real(kind=pr), public :: lnPhi_z(size(X)-2)
integer, public :: nc
real(kind=pr), public :: y(size(X)-2)