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), | private | :: | amplitude | Pulse height in the initial condition at the center over the background value. |
|||

real(kind=rk), | private | :: | center(3) | Location of the pulse center in 3D. |
|||

real(kind=rk), | private | :: | halfwidth | Radius of the initial pulse, where half the amplitude is reached. |
|||

real(kind=rk), | private | :: | background | A background value to use (result is given by background+pulse). |
|||

real(kind=rk), | private | :: | 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 |