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(:)

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)