calc_timestep_heat_cube_1d Subroutine

  1. atl_calc_time.f90
  2. atl_calc_time_module
  3. calc_timestep_heat_cube_1d

private subroutine calc_timestep_heat_cube_1d(cfl, length, dt, equation, nPoly)

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

This subroutine calculates the timstep according to the CFL condition.

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(out) :: dt

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

The number of polynomials per spatial direction The equation system to be used in the simulation.

Called by

proc~~calc_timestep_heat_cube_1d~~CalledByGraph proc~calc_timestep_heat_cube_1d calc_timestep_heat_cube_1d proc~calculate_cfl_timestep calculate_cfl_timestep proc~calculate_cfl_timestep->proc~calc_timestep_heat_cube_1d 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
integer, private, parameter:: ik =selected_int_kind(16)
integer(kind=ik), private :: npow