Analytical solution for an acoustic wave emitted by a Gaussian pulse as described in Tam: Computational Acoustics, a wave number approach. Appendix G.3.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=rk), | public | :: | amplitude |
Pulse height in the initial condition at the center over the background value. |
|||
| real(kind=rk), | public | :: | center(3) |
Location of the pulse center in 3D. |
|||
| real(kind=rk), | public | :: | halfwidth |
Radius of the initial pulse, where half the amplitude is reached. |
|||
| real(kind=rk), | public | :: | background |
A background value to use (result is given by background+pulse). |
|||
| real(kind=rk), | public | :: | speed_of_sound |
Speed of sound is the velocity by which the acoustic wave is to be transported. |
Evaluate the acoustic pulse at given points in space for one point in time.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(tem_acoustic_pulse_type), | intent(in) | :: | me |
Definition of the acoustic pulse to evaluate |
||
| real(kind=rk), | intent(in) | :: | coord(n,3) |
3D Coordinates of all points. |
||
| real(kind=rk), | intent(in) | :: | time |
Point in time to evaluate the points at. |
||
| integer, | intent(in) | :: | n |
Number of different points to evaluate the acoustic pulse at. |
Analytical solution in all n points.
Load the definition of an acoustic pulse from a configuration Lua script.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(flu_State) | :: | conf | ||||
| integer, | intent(in) | :: | thandle | |||
| type(tem_acoustic_pulse_type), | intent(out) | :: | me |