calc_timestep_viscflow_cube_2d Subroutine

private subroutine calc_timestep_viscflow_cube_2d(cfl_conv, cfl_visc, length, dt, timestep, nPoly, mu, therm_cond)

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

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

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	cfl_conv	CFL number for the convective part
real(kind=rk),	intent(in)			::	cfl_visc	CFL number for the viscous part
real(kind=rk),	intent(in)			::	length	Reference length of all elements
real(kind=rk),	intent(out)			::	dt	Resulting time step width
type(atl_timestep_type),	intent(in)			::	timestep	Info about the timestep type
integer,	intent(in)			::	nPoly	The number of polynomials per spatial direction
real(kind=rk),	intent(in)			::	mu	The dynamic viscosity
real(kind=rk),	intent(in)			::	therm_cond