Commit 00ba75b0 authored by Pierre Cazenave's avatar Pierre Cazenave

Fix some style issues.

parent 7210097c
......@@ -46,10 +46,9 @@ function [Mobj] = add_stations_list(Mobj,Positions,Names,Dist)
%==========================================================================
subname = 'add_stations_list';
global ftbverbose
if(ftbverbose)
fprintf('\n')
fprintf(['begin : ' subname '\n'])
end;
if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
%--------------------------------------------------------------------------
% Check the inputs
......@@ -84,13 +83,13 @@ end
inc = 1;
out = cell(1); % don't preallocate as we don't know how many we'll have
for s=1:nPos
for s = 1:nPos
[node, dist] = find_nearest_pt(Positions(s, cols(1)), Positions(s, cols(2)), Mobj);
[~, elem] = min(abs(sqrt((Mobj.xc - Positions(s, cols(1))).^2 + Mobj.yc - Positions(s, cols(2))).^2));
if dist >= Dist
% Skip out for this station
if(ftbverbose)
if ftbverbose
fprintf('Skipping station %s (%g, %g). Nodal distance from station position = %f\n', Names{s}, Positions(s, 1), Positions(s, 2), dist)
end
continue
......@@ -107,3 +106,7 @@ else
fprintf('No stations found within the model domain.\n')
end
end
if ftbverbose
fprintf('\nend : %s\n', subname)
end
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment