Evaluate the acoustic pulse at given points in space for one point in time.

Exact solution for an acoustic wave from a Gaussian pulse in pressure. See Tam: Computational Acoustics, a wave number approach. Appendix G.3. Any point may be probed, the solution at the center is properly defined with a finite value.

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.

Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|

real(kind=rk), | private | :: | radius(n) | ||||

real(kind=rk), | private, | parameter | :: | zero_rad | = | 16.0_rk*tiny(time) | |

real(kind=rk), | private | :: | wavepos | ||||

real(kind=rk), | private | :: | ampfact | ||||

real(kind=rk), | private | :: | expfact |