calc_surface_vel Function

public function calc_surface_vel(om, particle_radius, n) result(usurf)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	om(3)
real(kind=rk),	intent(in)			::	particle_radius
real(kind=rk),	intent(in)			::	n(3)

Return Value real(kind=rk), (3)