lim_koren Function

private pure function lim_koren(r) result(phi)

Koren TVD limiter. Third-order accurate for smooth data; preserves monotonicity near discontinuities.

phi(r) = max(0, min(2r, (1+2r)/3, 2))

See Koren (1993).

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	r

Return Value real(kind=wp)