calc_timestep_linearEuler_2d_cube Subroutine

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

Calculate time step based on a given CFL condition for a cube in a linear Euler 2d simulation.

This subroutine calculates the timstep according to the CFL condition. Please notice, that this routine can be applied for linear Euler 2d 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(2)

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_lineareuler_2d_cube~~CalledByGraph proc~calc_timestep_lineareuler_2d_cube calc_timestep_linearEuler_2d_cube proc~calculate_cfl_timestep calculate_cfl_timestep proc~calculate_cfl_timestep->proc~calc_timestep_lineareuler_2d_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