m_rhs.fpp.f90 File Reference

Functions/Subroutines
program	__m_rhs_fpp_f90__
subroutine	s_initialize_rhs_module
	The computation of parameters, the allocation of memory, the association of pointers and/or the execution of any other procedures that are necessary to setup the module.
subroutine	s_compute_rhs (q_cons_vf, q_t_sf, q_prim_vf, rhs_vf, pb, rhs_pb, mv, rhs_mv, t_step, time_avg)
subroutine	s_compute_advection_source_term (idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf)
subroutine	s_compute_additional_physics_rhs (idir, q_prim_vf, rhs_vf, flux_src_n, dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf)

Relaxed pressure, initial partial pressures, function f(p) and its partial
The purpose of this procedure is to infinitely relax the pressures from the internal-energy equations to a unique pressure, from which the corresponding volume fraction of each phase are recomputed. For conservation purpose, this pressure is finally corrected using the mixture-total-energy equation. Parameters q_cons_vf Cell-average conservative variables
real(wp)	pres_relax
real(wp), dimension(num_fluids)	pres_k_init
real(wp)	f_pres
real(wp)	df_pres
real(wp), dimension(num_fluids)	rho_k_s
real(wp), dimension(num_fluids)	alpha_rho
real(wp), dimension(num_fluids)	alpha
real(wp)	sum_alpha
real(wp)	rho
real(wp)	dyn_pres
real(wp)	gamma
real(wp)	pi_inf
real(wp), dimension(2)	re
integer	i
integer	j
integer	k
integer	l
integer	q
integer	iter
	Generic loop iterators.
integer	relax
	Relaxation procedure determination variable.
subroutine	s_reconstruct_cell_boundary_values (v_vf, vl_x, vl_y, vl_z, vr_x, vr_y, vr_z, norm_dir)
	The purpose of this subroutine is to WENO-reconstruct the left and the right cell-boundary values, including values at the Gaussian quadrature points, from the cell-averaged variables.
subroutine	s_reconstruct_cell_boundary_values_first_order (v_vf, vl_x, vl_y, vl_z, vr_x, vr_y, vr_z, norm_dir)
subroutine	s_finalize_rhs_module
	Module deallocation and/or disassociation procedures.

Function/Subroutine Documentation

__m_rhs_fpp_f90__()

program __m_rhs_fpp_f90__

Here is the call graph for this function:

s_compute_additional_physics_rhs()

subroutine __m_rhs_fpp_f90__::s_compute_additional_physics_rhs ( integer, intent(in) idir, type(scalar_field), dimension(sys_size), intent(in) q_prim_vf, type(scalar_field), dimension(sys_size), intent(inout) rhs_vf, type(scalar_field), dimension(sys_size), intent(in) flux_src_n, type(scalar_field), dimension(sys_size), intent(in) dq_prim_dx_vf, type(scalar_field), dimension(sys_size), intent(in) dq_prim_dy_vf, type(scalar_field), dimension(sys_size), intent(in) dq_prim_dz_vf )

private

Here is the call graph for this function:

Here is the caller graph for this function:

s_compute_advection_source_term()

subroutine __m_rhs_fpp_f90__::s_compute_advection_source_term ( integer, intent(in) idir, type(scalar_field), dimension(sys_size), intent(inout) rhs_vf, type(vector_field), intent(inout) q_cons_vf, type(vector_field), intent(inout) q_prim_vf, type(vector_field), intent(inout) flux_src_n_vf )

private

Here is the call graph for this function:

Here is the caller graph for this function:

s_compute_rhs()

subroutine __m_rhs_fpp_f90__::s_compute_rhs ( type(scalar_field), dimension(sys_size), intent(inout) q_cons_vf, type(scalar_field), intent(inout) q_t_sf, type(scalar_field), dimension(sys_size), intent(inout) q_prim_vf, type(scalar_field), dimension(sys_size), intent(inout) rhs_vf, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) pb, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) rhs_pb, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) mv, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) rhs_mv, integer, intent(in) t_step, real(wp), intent(inout) time_avg )

private

Here is the call graph for this function:

Here is the caller graph for this function:

s_finalize_rhs_module()

subroutine __m_rhs_fpp_f90__::s_finalize_rhs_module

private

Module deallocation and/or disassociation procedures.

Here is the caller graph for this function:

s_initialize_rhs_module()

subroutine __m_rhs_fpp_f90__::s_initialize_rhs_module

private

The computation of parameters, the allocation of memory, the association of pointers and/or the execution of any other procedures that are necessary to setup the module.

Here is the caller graph for this function:

s_reconstruct_cell_boundary_values()

subroutine __m_rhs_fpp_f90__::s_reconstruct_cell_boundary_values ( type(scalar_field), dimension(iv%beg:iv%end), intent(in) v_vf, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vl_x, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vl_y, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vl_z, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vr_x, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vr_y, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vr_z, integer, intent(in) norm_dir )

private

The purpose of this subroutine is to WENO-reconstruct the left and the right cell-boundary values, including values at the Gaussian quadrature points, from the cell-averaged variables.

Parameters

v_vf	Cell-average variables
vL_qp	Left WENO-reconstructed, cell-boundary values including the values at the quadrature points, of the cell-average variables
vR_qp	Right WENO-reconstructed, cell-boundary values including the values at the quadrature points, of the cell-average variables
norm_dir	Splitting coordinate direction

Here is the call graph for this function:

Here is the caller graph for this function:

s_reconstruct_cell_boundary_values_first_order()

subroutine __m_rhs_fpp_f90__::s_reconstruct_cell_boundary_values_first_order ( type(scalar_field), dimension(iv%beg:iv%end), intent(in) v_vf, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vl_x, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vl_y, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vl_z, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vr_x, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vr_y, real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) vr_z, integer, intent(in) norm_dir )

private

Here is the caller graph for this function:

Variable Documentation

alpha

real(wp), dimension(num_fluids) alpha

alpha_rho

real(wp), dimension(num_fluids) alpha_rho

df_pres

real(wp) df_pres

dyn_pres

real(wp) dyn_pres

f_pres

real(wp) f_pres

gamma

real(wp) gamma

i

integer i

iter

integer iter

Generic loop iterators.

j

integer j

k

integer k

l

integer l

pi_inf

real(wp) pi_inf

pres_k_init

real(wp), dimension(num_fluids) pres_k_init

pres_relax

real(wp) pres_relax

q

integer q

re

real(wp), dimension(2) re

relax

integer relax

Relaxation procedure determination variable.

rho

real(wp) rho

rho_k_s

real(wp), dimension(num_fluids) rho_k_s

sum_alpha

real(wp) sum_alpha