function h = rgrd_smoothgrid(h,hmin,rmax) % % Smooth the topography to get a maximum r factor = rmax % This routine was written by Pierrick, it has been renamed % to rgrd_smoothing for convinience. % disp(' ') disp(' Smooth the topography...') disp(' ') in=find(isnan(h) == 1); if ~isempty(in) disp('Nan values found in interpolated h, set to mindepth'); h(in) = hmin; end h(h