linearization_indicator

interface
private pure function linearization_indicator(euler, mean, deviation) result(islinear)

Type	Intent		Name
class(atl_euler_type),	intent(in)	::	euler	Description of the equation
real(kind=rk),	intent(in)	::	mean(:)	The mean value of each state
real(kind=rk),	intent(in)	::	deviation(:)	Maximal deviation of each state

Computation of indicator, whether a linear flux is sufficient.