one Function

public pure function one(r_lat) result(del)

Function to return interpolation weight 1.0 regardless of input. We need this as the weight for the z-direction interpolation in case of d2q9 stencil.

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: r_lat

Distance from particle to barycenter of fluid cell

Return Value real(kind=rk)