smooth__ Subroutine

private subroutine smooth__(tab, scal)

Smooth out a surface according median_filter procedure

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(inout),		dimension(:,:)	::	tab	array containing the surface
type(SCALE_SURF),	intent(in)			::	scal	SCALE_SURF object