calc_timestep_acoustic_2d_cube Subroutine

  1. atl_calc_time.f90
  2. atl_calc_time_module
  3. calc_timestep_acoustic_2d_cube

private subroutine calc_timestep_acoustic_2d_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

TypeIntentOptionalAttributesName
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_acoustic_2d_cube~~CalledByGraph proc~calc_timestep_acoustic_2d_cube calc_timestep_acoustic_2d_cube proc~calculate_cfl_timestep calculate_cfl_timestep proc~calculate_cfl_timestep->proc~calc_timestep_acoustic_2d_cube proc~atl_get_timestep atl_get_timestep proc~atl_get_timestep->proc~calculate_cfl_timestep proc~atl_solve_program atl_solve_program proc~atl_solve_program->proc~atl_get_timestep proc~atl_initialize_program atl_initialize_program proc~atl_initialize_program->proc~atl_get_timestep program~ateles ateles program~ateles->proc~atl_solve_program program~ateles->proc~atl_initialize_program

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: max_vel