m_acoustic_src.fpp.f90 File Reference

Functions/Subroutines
program	__m_acoustic_src_fpp_f90__
subroutine	s_initialize_acoustic_src
	This subroutine initializes the acoustic source module.
subroutine	s_acoustic_src_calculations (q_cons_vf, q_prim_vf, t_step, rhs_vf)
	This subroutine updates the rhs by computing the mass, mom, energy sources.
subroutine	s_source_temporal (sim_time, c, ai, term_index, frequency_local, gauss_sigma_time_local, source, sum_bb)
	This subroutine gives the temporally varying amplitude of the pulse.
subroutine	s_precalculate_acoustic_spatial_sources
	This subroutine identifies and precalculates the non-zero acoustic spatial sources before time-stepping.
subroutine	s_source_spatial (j, k, l, loc, ai, source, angle, xyz_to_r_ratios)
	This subroutine gives the spatial support of the acoustic source.
subroutine	s_source_spatial_planar (ai, sig, r, source)
	This subroutine calculates the spatial support for planar acoustic sources in 1D, 2D, and 3D.
subroutine	s_source_spatial_transducer (ai, sig, r, source, angle, xyz_to_r_ratios)
	This subroutine calculates the spatial support for a single transducer in 2D, 2D axisymmetric, and 3D.
subroutine	s_source_spatial_transducer_array (ai, sig, r, source, angle, xyz_to_r_ratios)
	This subroutine calculates the spatial support for multiple transducers in 2D, 2D axisymmetric, and 3D.
real(wp) function	f_frequency_local (freq_conv_flag, ai, c)
	This function performs wavelength to frequency conversion.
real(wp) function	f_gauss_sigma_time_local (gauss_conv_flag, ai, c)
	This function performs Gaussian sigma dist to time conversion.

Function/Subroutine Documentation

__m_acoustic_src_fpp_f90__()

program __m_acoustic_src_fpp_f90__

Here is the call graph for this function:

f_frequency_local()

real(wp) function __m_acoustic_src_fpp_f90__::f_frequency_local ( logical, intent(in) freq_conv_flag, integer, intent(in) ai, real(wp), intent(in) c )

private

This function performs wavelength to frequency conversion.

Parameters

freq_conv_flag	Determines if frequency is given or wavelength
ai	Acoustic source index
c	Speed of sound

Returns

frequency_local Converted frequency

Here is the call graph for this function:

Here is the caller graph for this function:

f_gauss_sigma_time_local()

real(wp) function __m_acoustic_src_fpp_f90__::f_gauss_sigma_time_local ( logical, intent(in) gauss_conv_flag, integer, intent(in) ai, real(wp), intent(in) c )

private

This function performs Gaussian sigma dist to time conversion.

Parameters

gauss_conv_flag	Determines if sigma_dist is given or sigma_time
c	Speed of sound
ai	Acoustic source index

Returns

gauss_sigma_time_local Converted Gaussian sigma time

Here is the call graph for this function:

Here is the caller graph for this function:

s_acoustic_src_calculations()

subroutine __m_acoustic_src_fpp_f90__::s_acoustic_src_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, type(scalar_field), dimension(sys_size), intent(inout) rhs_vf )

private

This subroutine updates the rhs by computing the mass, mom, energy sources.

Parameters

	q_cons_vf	Conservative variables
	q_prim_vf	Primitive variables
	t_step	Current time step
	rhs_vf	rhs variables
[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:

s_initialize_acoustic_src()

subroutine __m_acoustic_src_fpp_f90__::s_initialize_acoustic_src

private

This subroutine initializes the acoustic source module.

Here is the call graph for this function:

Here is the caller graph for this function:

s_precalculate_acoustic_spatial_sources()

subroutine __m_acoustic_src_fpp_f90__::s_precalculate_acoustic_spatial_sources

private

This subroutine identifies and precalculates the non-zero acoustic spatial sources before time-stepping.

Here is the call graph for this function:

Here is the caller graph for this function:

s_source_spatial()

subroutine __m_acoustic_src_fpp_f90__::s_source_spatial ( integer, intent(in) j, integer, intent(in) k, integer, intent(in) l, real(wp), dimension(3), intent(in) loc, integer, intent(in) ai, real(wp), intent(out) source, real(wp), intent(out) angle, real(wp), dimension(3), intent(out) xyz_to_r_ratios )

private

This subroutine gives the spatial support of the acoustic source.

Parameters

j	x-index
k	y-index
l	z-index
loc	Nominal source term location
ai	Acoustic source index
source	Source term amplitude
angle	Angle of the source term with respect to the x-axis (for 2D or 2D axisymmetric)
xyz_to_r_ratios	Ratios of the [xyz]-component of the source term to the magnitude (for 3D)

Here is the call graph for this function:

Here is the caller graph for this function:

s_source_spatial_planar()

subroutine __m_acoustic_src_fpp_f90__::s_source_spatial_planar ( integer, intent(in) ai, real(wp), intent(in) sig, real(wp), dimension(3), intent(in) r, real(wp), intent(out) source )

private

This subroutine calculates the spatial support for planar acoustic sources in 1D, 2D, and 3D.

Parameters

ai	Acoustic source index
sig	Sigma value for the Gaussian distribution
r	Displacement from source to current point
source	Source term amplitude

Here is the caller graph for this function:

s_source_spatial_transducer()

subroutine __m_acoustic_src_fpp_f90__::s_source_spatial_transducer ( integer, intent(in) ai, real(wp), intent(in) sig, real(wp), dimension(3), intent(in) r, real(wp), intent(out) source, real(wp), intent(out) angle, real(wp), dimension(3), intent(out) xyz_to_r_ratios )

private

This subroutine calculates the spatial support for a single transducer in 2D, 2D axisymmetric, and 3D.

Parameters

ai	Acoustic source index
sig	Sigma value for the Gaussian distribution
r	Displacement from source to current point
source	Source term amplitude
angle	Angle of the source term with respect to the x-axis (for 2D or 2D axisymmetric)
xyz_to_r_ratios	Ratios of the [xyz]-component of the source term to the magnitude (for 3D)

Here is the caller graph for this function:

s_source_spatial_transducer_array()

subroutine __m_acoustic_src_fpp_f90__::s_source_spatial_transducer_array ( integer, intent(in) ai, real(wp), intent(in) sig, real(wp), dimension(3), intent(in) r, real(wp), intent(out) source, real(wp), intent(out) angle, real(wp), dimension(3), intent(out) xyz_to_r_ratios )

private

This subroutine calculates the spatial support for multiple transducers in 2D, 2D axisymmetric, and 3D.

Parameters

ai	Acoustic source index
sig	Sigma value for the Gaussian distribution
r	Displacement from source to current point
source	Source term amplitude
angle	Angle of the source term with respect to the x-axis (for 2D or 2D axisymmetric)
xyz_to_r_ratios	Ratios of the [xyz]-component of the source term to the magnitude (for 3D)

Here is the caller graph for this function:

s_source_temporal()

subroutine __m_acoustic_src_fpp_f90__::s_source_temporal ( real(wp), intent(in) sim_time, real(wp), intent(in) c, integer, intent(in) ai, integer, intent(in) term_index, real(wp), intent(in) frequency_local, real(wp), intent(in) gauss_sigma_time_local, real(wp), intent(out) source, real(wp), intent(in) sum_bb )

private

This subroutine gives the temporally varying amplitude of the pulse.

Parameters

sim_time	Simulation time
c	Sound speed
ai	Acoustic source index
term_index	Index of the term to be calculated (1: mass source, 2: momentum source)
frequency_local	Frequency at the spatial location for sine and square waves
gauss_sigma_time_local	sigma in time for Gaussian pulse
source	Source term amplitude

Here is the caller graph for this function: