mus_calc_thermFactor_single Subroutine

  1. mus_eNRTL_module.f90
  2. mus_eNRTL_module
  3. mus_calc_thermFactor_single

private subroutine mus_calc_thermFactor_single(nFields, temp, press, mole_frac, therm_factors)

This routine calculates thermodynamic factor for given mole_frac of all species for single element

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nFields

number of fields in mixture
real(kind=rk), intent(in) :: temp

mixture temperature
real(kind=rk), intent(in) :: press

mixture pressure
real(kind=rk), intent(in) :: mole_frac(nFields)

mole fraction of all species of single element
real(kind=rk), intent(out) :: therm_factors(nFields,nFields)

thermodynamic factor matrix

Calls

proc~~mus_calc_thermfactor_single~~CallsGraph proc~mus_calc_thermfactor_single mus_calc_thermFactor_single interface~calc_therm_factor_loc calc_therm_factor_loc proc~mus_calc_thermfactor_single->interface~calc_therm_factor_loc

Called by

proc~~mus_calc_thermfactor_single~~CalledByGraph proc~mus_calc_thermfactor_single mus_calc_thermFactor_single interface~mus_calc_thermfactor mus_calc_thermFactor interface~mus_calc_thermfactor->proc~mus_calc_thermfactor_single proc~deriveequilvelwtdf_msliquid deriveEquilVelWTDF_MSLiquid proc~deriveequilvelwtdf_msliquid->interface~mus_calc_thermfactor proc~mus_init_msliquid mus_init_MSLiquid proc~mus_init_msliquid->interface~mus_calc_thermfactor proc~applysrc_electricmsliquid_2ndord_wtdf applySrc_electricMSLiquid_2ndOrd_WTDF proc~applysrc_electricmsliquid_2ndord_wtdf->interface~mus_calc_thermfactor proc~spc_molefrac_wtdf spc_moleFrac_wtdf proc~spc_molefrac_wtdf->interface~mus_calc_thermfactor proc~applysrc_electricmsliquid_1stord_wtdf applySrc_electricMSLiquid_1stOrd_WTDF proc~applysrc_electricmsliquid_1stord_wtdf->interface~mus_calc_thermfactor proc~applysrc_forcemsliquid_1stord_wtdf applySrc_forceMSLiquid_1stOrd_WTDF proc~applysrc_forcemsliquid_1stord_wtdf->interface~mus_calc_thermfactor proc~mus_addforcetoauxfield_msl_wtdf mus_addForceToAuxField_MSL_WTDF proc~mus_addforcetoauxfield_msl_wtdf->interface~mus_calc_thermfactor proc~bgk_advrel_d3q19f3_msliquid_wtdf bgk_advRel_d3q19f3_MSLiquid_WTDF proc~bgk_advrel_d3q19f3_msliquid_wtdf->interface~mus_calc_thermfactor proc~mrt_advrel_d3q19f3_msliquid_wtdf mrt_advRel_d3q19f3_MSLiquid_WTDF proc~mrt_advrel_d3q19f3_msliquid_wtdf->interface~mus_calc_thermfactor proc~deriveauxmsliquid_fromstate_wtdf deriveAuxMSLiquid_fromState_WTDF proc~deriveauxmsliquid_fromstate_wtdf->interface~mus_calc_thermfactor proc~deriveequilwtdf_msliquid deriveEquilWTDF_MSLiquid proc~deriveequilwtdf_msliquid->interface~mus_calc_thermfactor proc~mus_addelectrictoauxfield_msl_wtdf mus_addElectricToAuxField_MSL_WTDF proc~mus_addelectrictoauxfield_msl_wtdf->interface~mus_calc_thermfactor proc~applysrc_forcemsliquid_2ndord_wtdf applySrc_forceMSLiquid_2ndOrd_WTDF proc~applysrc_forcemsliquid_2ndord_wtdf->interface~mus_calc_thermfactor proc~bgk_advrel_msliquid_generic_wtdf bgk_advRel_MSLiquid_generic_WTDF proc~bgk_advrel_msliquid_generic_wtdf->interface~mus_calc_thermfactor proc~mrt_advrel_msliquid_generic_wtdf mrt_advRel_MSLiquid_generic_WTDF proc~mrt_advrel_msliquid_generic_wtdf->interface~mus_calc_thermfactor proc~mus_init_byic mus_init_byIC proc~mus_init_byic->proc~mus_init_msliquid proc~mus_init_flow mus_init_flow proc~mus_init_flow->proc~mus_init_byic

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer(kind=c_int), private :: nFields_c
real(kind=c_double), private :: temp_c
real(kind=c_double), private :: press_c
real(kind=c_double), private :: mole_frac_c(nFields)
real(kind=c_double), private :: therm_factors_c(nFields*nFields)
integer, private :: iField
integer, private :: iField_2