read_molecular_weight Subroutine

public subroutine read_molecular_weight(file, def_comp_mw, scn_mw, plus_mw)

Reads the molecular weights of each component from the input file

Arguments

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

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

set of corresponding molecular weights of defined components
real(kind=pr), intent(out), allocatable :: scn_mw(:)

set of corresponding molecular weights of scn cuts
real(kind=pr), intent(out) :: plus_mw

molecular weight of residual fraction

Calls

proc~~read_molecular_weight~~CallsGraph proc~read_molecular_weight read_molecular_weight proc~read_setup read_setup proc~read_molecular_weight->proc~read_setup

Called by

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

Variables

Type Visibility Attributes Name Initial
integer, public :: def_comp_nc

number of defined components being considered in the oil
integer, public :: funit
integer, public :: numbers_ps

number of pseudos in which the scn fractions grouped
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

Namelists

Namelist nml_molecular_weight


Variables

Name Type Default Description
def_comp_mw real(kind=pr) None

set of corresponding molecular weights of defined components
scn_mw real(kind=pr) None

set of corresponding molecular weights of scn cuts
plus_mw real(kind=pr) None

molecular weight of residual fraction