get_z Subroutine

public subroutine get_z(alpha, z_0, z_inj, z, dzda)

Calculate the fluid composition based on an amount of addition of second fluid.

The injection can be considered as two kinds of injection: - Displacement: - Addition:

Arguments

Type IntentOptional Attributes Name
real(kind=pr), intent(in) :: alpha

Addition percentaje

real(kind=pr), intent(in) :: z_0(:)
real(kind=pr), intent(in) :: z_inj(:)
real(kind=pr), intent(out) :: z(size(z_0))

New composition
real(kind=pr), intent(out), optional :: dzda(size(z_0))

Derivative wrt


Called by

proc~~get_z~~CalledByGraph proc~get_z get_z none~foo~3 foo none~foo~3->proc~get_z none~foo~4 foo none~foo~4->proc~get_z proc~get_values_from_x PXEnvelMP%get_values_from_X proc~get_values_from_x->proc~get_z proc~get_values_from_x~2 get_values_from_X proc~get_values_from_x~2->proc~get_z proc~get_values_from_x~5 TXEnvelMP%get_values_from_X proc~get_values_from_x~5->proc~get_z proc~px_envelope_2ph px_envelope_2ph proc~px_envelope_2ph->proc~get_z proc~px_envelope_2ph->none~foo~4 proc~px_f_np px_F_NP proc~px_f_np->proc~get_z proc~px_f_three_phases px_F_three_phases proc~px_f_three_phases->proc~get_z proc~tx_envelope_2ph tx_envelope_2ph proc~tx_envelope_2ph->proc~get_z proc~tx_envelope_2ph->none~foo~3 proc~tx_f_np tx_F_NP proc~tx_f_np->proc~get_z proc~px_envelope px_envelope proc~px_envelope->proc~get_values_from_x proc~solve_point PXEnvelMP%solve_point proc~px_envelope->proc~solve_point proc~px_envelope_3ph px_envelope_3ph proc~px_envelope_3ph->proc~get_values_from_x~2 proc~solve_point~2 solve_point proc~px_envelope_3ph->proc~solve_point~2 proc~solve_point->proc~px_f_np proc~solve_point~2->proc~px_f_three_phases proc~solve_point~7 TXEnvelMP%solve_point proc~solve_point~7->proc~tx_f_np proc~tx_envelope tx_envelope proc~tx_envelope->proc~get_values_from_x~5 proc~tx_envelope->proc~solve_point~7