int_g1_cosine2 Function

private pure function int_g1_cosine2(r) result(val)

Integral of filtering kernel from 0 to r Cosine filter Here : r=x/l_f (non-dimensional position)

Arguments

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

Return Value real(kind=wp)