m_monopole.fpp.f90 File Reference

Functions/Subroutines
program	__m_monopole_fpp_f90__
subroutine	s_initialize_monopole_module ()
subroutine	s_compute_monopole_rhs ()
subroutine	s_monopole_calculations (q_cons_vf, q_prim_vf, t_step, id, rhs_vf)
real(kind(0d0)) function	f_g (the_time, sos, mysos, nm, term_index)
	This function gives the temporally varying amplitude of the pulse.
real(kind(0d0)) function	f_delta (j, k, l, mono_loc, mono_leng, nm, angle, angle_z)
	This function give the spatial support of the acoustic source.

Function/Subroutine Documentation

__m_monopole_fpp_f90__()

program __m_monopole_fpp_f90__

Here is the call graph for this function:

f_delta()

real(kind(0d0)) function __m_monopole_fpp_f90__::f_delta ( integer, intent(in) j, integer, intent(in) k, integer, intent(in) l, real(kind(0d0)), dimension(3), intent(in) mono_loc, real(kind(0d0)), intent(in) mono_leng, integer, intent(in) nm, real(kind(0d0)) angle, real(kind(0d0)) angle_z )

private

This function give the spatial support of the acoustic source.

Parameters

j	First coordinate-direction location index
k	Second coordinate-direction location index
l	Third coordinate-direction location index
mono_loc	Nominal source term location
mono_leng	Length of source term in space

Here is the call graph for this function:

Here is the caller graph for this function:

f_g()

real(kind(0d0)) function __m_monopole_fpp_f90__::f_g ( real(kind(0d0)), intent(in) the_time, real(kind(0d0)), intent(in) sos, real(kind(0d0)), intent(in) mysos, integer, intent(in) nm, integer term_index )

private

This function gives the temporally varying amplitude of the pulse.

Parameters

the_time	Simulation time
sos	Sound speed
mysos	Alternative speed of sound for testing

Here is the call graph for this function:

Here is the caller graph for this function:

s_compute_monopole_rhs()

subroutine __m_monopole_fpp_f90__::s_compute_monopole_rhs

private

Here is the caller graph for this function:

s_initialize_monopole_module()

subroutine __m_monopole_fpp_f90__::s_initialize_monopole_module

private

Here is the caller graph for this function:

s_monopole_calculations()

subroutine __m_monopole_fpp_f90__::s_monopole_calculations ( type(scalar_field), dimension(sys_size), intent(inout) q_cons_vf, type(scalar_field), dimension(sys_size), intent(inout) q_prim_vf, integer, intent(in) t_step, integer, intent(in) id, type(scalar_field), dimension(sys_size), intent(inout) rhs_vf )

private

Parameters

[in,out]	q_cons_vf	This variable contains the WENO-reconstructed values of the cell-average conservative variables, which are located in q_cons_vf, at cell-interior Gaussian quadrature points (QP).
[in,out]	q_prim_vf	The primitive variables at cell-interior Gaussian quadrature points. These are calculated from the conservative variables and gradient magnitude (GM) of the volume fractions, q_cons_qp and gm_alpha_qp, respectively.

Here is the call graph for this function:

Here is the caller graph for this function: