calc_timestep_heat_cube Subroutine

private subroutine calc_timestep_heat_cube(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

Type	Intent	Optional	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(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.