calc_timestep_acoustic_cube Subroutine

private subroutine calc_timestep_acoustic_cube(cfl, length, vel, SpeedofSound, dt, nPoly)

Calculate time step based on a given CFL condition for a cube in a acoustic simulation.

This subroutine calculates the timstep according to the CFL condition. Please notice, that this routine can be applied for acoustic simulations only.

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: cfl

CFL number
real(kind=rk), intent(in) :: length

Reference length of all elements
real(kind=rk), intent(in) :: vel(3)

Background velocity in the domain (x,y,z)
real(kind=rk), intent(in) :: SpeedofSound

Speed of sound, based on background density and pressure
real(kind=rk), intent(out) :: dt

Resulting time step width
integer, intent(in) :: nPoly

The number of polynomials per spatial direction

Called by

proc~~calc_timestep_acoustic_cube~~CalledByGraph proc~calc_timestep_acoustic_cube calc_timestep_acoustic_cube proc~calculate_cfl_timestep calculate_cfl_timestep proc~calculate_cfl_timestep->proc~calc_timestep_acoustic_cube proc~atl_get_timestep atl_get_timestep proc~atl_get_timestep->proc~calculate_cfl_timestep proc~atl_initialize_program atl_initialize_program proc~atl_initialize_program->proc~atl_get_timestep proc~atl_solve_program atl_solve_program proc~atl_solve_program->proc~atl_get_timestep program~ateles ateles program~ateles->proc~atl_initialize_program program~ateles->proc~atl_solve_program