m_acoustic_src.fpp.f90 File Reference

Contains module m_acoustic_src. More...

Go to the source code of this file.

Modules
module	m_acoustic_src
	Applies acoustic pressure source terms including focused, planar, and broadband transducers.

Functions/Subroutines
impure subroutine, public	m_acoustic_src::s_initialize_acoustic_src
	This subroutine initializes the acoustic source module.
impure subroutine, public	m_acoustic_src::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.
elemental subroutine	m_acoustic_src::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.
impure subroutine, public	m_acoustic_src::s_precalculate_acoustic_spatial_sources
	This subroutine identifies and precalculates the non-zero acoustic spatial sources before time-stepping.
subroutine	m_acoustic_src::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	m_acoustic_src::s_source_spatial_planar (ai, sig, r, source)
	This subroutine calculates the spatial support for planar acoustic sources in 1D, 2D, and 3D.
subroutine	m_acoustic_src::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	m_acoustic_src::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.
elemental real(wp) function	m_acoustic_src::f_frequency_local (freq_conv_flag, ai, c)
	This function performs wavelength to frequency conversion.
real(wp) function	m_acoustic_src::f_gauss_sigma_time_local (gauss_conv_flag, ai, c)
	This function performs Gaussian sigma dist to time conversion.

Variables
integer, dimension(:), allocatable	m_acoustic_src::pulse
integer, dimension(:), allocatable	m_acoustic_src::support
logical, dimension(:), allocatable	m_acoustic_src::dipole
real(wp), dimension(:, :), allocatable, target	m_acoustic_src::loc_acoustic
real(wp), dimension(:), allocatable	m_acoustic_src::mag
real(wp), dimension(:), allocatable	m_acoustic_src::length
real(wp), dimension(:), allocatable	m_acoustic_src::height
real(wp), dimension(:), allocatable	m_acoustic_src::wavelength
real(wp), dimension(:), allocatable	m_acoustic_src::frequency
real(wp), dimension(:), allocatable	m_acoustic_src::gauss_sigma_dist
real(wp), dimension(:), allocatable	m_acoustic_src::gauss_sigma_time
real(wp), dimension(:), allocatable	m_acoustic_src::npulse
real(wp), dimension(:), allocatable	m_acoustic_src::dir
real(wp), dimension(:), allocatable	m_acoustic_src::delay
real(wp), dimension(:), allocatable	m_acoustic_src::foc_length
real(wp), dimension(:), allocatable	m_acoustic_src::aperture
real(wp), dimension(:), allocatable	m_acoustic_src::element_spacing_angle
real(wp), dimension(:), allocatable	m_acoustic_src::element_polygon_ratio
real(wp), dimension(:), allocatable	m_acoustic_src::rotate_angle
real(wp), dimension(:), allocatable	m_acoustic_src::bb_bandwidth
real(wp), dimension(:), allocatable	m_acoustic_src::bb_lowest_freq
integer, dimension(:), allocatable	m_acoustic_src::num_elements
integer, dimension(:), allocatable	m_acoustic_src::element_on
integer, dimension(:), allocatable	m_acoustic_src::bb_num_freq
integer, dimension(:), allocatable	m_acoustic_src::source_spatials_num_points
	Number of non-zero source grid points for each source.
type(source_spatial_type), dimension(:), allocatable	m_acoustic_src::source_spatials
	Data of non-zero source grid points for each source.
Acoustic source terms
real(wp), dimension(:, :, :), allocatable	m_acoustic_src::mass_src
real(wp), dimension(:, :, :), allocatable	m_acoustic_src::e_src
real(wp), dimension(:, :, :, :), allocatable	m_acoustic_src::mom_src

Detailed Description

Contains module m_acoustic_src.

Definition in file m_acoustic_src.fpp.f90.