mass_fractions Subroutine

public subroutine mass_fractions(file, w, product_z_mw_def_comp, product_z_mw_scn, sum_z_mw_i, product_z_mw_plus, def_comp_w, scn_w, plus_w)

This routine obtains the mass fractions of the fluid’s compounds from the input file, additionally, it calculates the product

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: file

file name
real(kind=pr), intent(out), allocatable :: w(:)

mass fractions of the fluid’s compounds
real(kind=pr), intent(out), allocatable :: product_z_mw_def_comp(:)

product between composition and molecular weight of defind components
real(kind=pr), intent(out), allocatable :: product_z_mw_scn(:)

product between composition and molecular weight of scn fractions
real(kind=pr), intent(out) :: sum_z_mw_i

sum of the product between composition and molecular weight of the fluid’s compounds
real(kind=pr), intent(out) :: product_z_mw_plus

product between composition and molecular weight of residual fraction
real(kind=pr), intent(out), allocatable :: def_comp_w(:)
real(kind=pr), intent(out), allocatable :: scn_w(:)
real(kind=pr), intent(out) :: plus_w

Calls

proc~~mass_fractions~~CallsGraph proc~mass_fractions mass_fractions proc~read_composition read_composition proc~mass_fractions->proc~read_composition proc~read_molecular_weight read_molecular_weight proc~mass_fractions->proc~read_molecular_weight proc~read_setup read_setup proc~mass_fractions->proc~read_setup proc~read_composition->proc~read_setup proc~read_molecular_weight->proc~read_setup

Called by

proc~~mass_fractions~~CalledByGraph proc~mass_fractions mass_fractions proc~data_from_file data_from_file proc~data_from_file->proc~mass_fractions proc~characterize characterize proc~characterize->proc~data_from_file

Variables

Type Visibility Attributes Name Initial
real(kind=pr), public, allocatable :: def_comp_mw(:)

set of corresponding molecular weights of defined components
integer, public :: def_comp_nc

number of defined components being considered in the oil
real(kind=pr), public, allocatable :: def_comp_z(:)

set of corresponding mole fractions of defined components
integer, public :: funit
integer, public :: numbers_ps

number of pseudos in which the scn fractions grouped
real(kind=pr), public :: plus_mw

molecular weight of residual fraction
real(kind=pr), public :: plus_z

composition of residual fraction
real(kind=pr), public, allocatable :: product_z_mw_i(:)
real(kind=pr), public, allocatable :: scn_mw(:)

set of corresponding molecular weights of scn cuts
integer, public :: scn_nc

number of single cuts being considered in the oil
integer, public :: scn_nc_ps

CN from which all SCN fractions will be lumped into the specified number of pseudos
real(kind=pr), public, allocatable :: scn_z(:)

set of corresponding mole fractions of scn cuts