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) ...@@ -46,10 +46,9 @@ function [Mobj] = add_stations_list(Mobj,Positions,Names,Dist)
%========================================================================== %==========================================================================
subname = 'add_stations_list'; subname = 'add_stations_list';
global ftbverbose global ftbverbose
if(ftbverbose) if ftbverbose
fprintf('\n') fprintf('\nbegin : %s\n', subname)
fprintf(['begin : ' subname '\n']) end
end;
%-------------------------------------------------------------------------- %--------------------------------------------------------------------------
% Check the inputs % Check the inputs
...@@ -84,13 +83,13 @@ end ...@@ -84,13 +83,13 @@ end
inc = 1; inc = 1;
out = cell(1); % don't preallocate as we don't know how many we'll have 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); [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)); [~, elem] = min(abs(sqrt((Mobj.xc - Positions(s, cols(1))).^2 + Mobj.yc - Positions(s, cols(2))).^2));
if dist >= Dist if dist >= Dist
% Skip out for this station % 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) fprintf('Skipping station %s (%g, %g). Nodal distance from station position = %f\n', Names{s}, Positions(s, 1), Positions(s, 2), dist)
end end
continue continue
...@@ -107,3 +106,7 @@ else ...@@ -107,3 +106,7 @@ else
fprintf('No stations found within the model domain.\n') fprintf('No stations found within the model domain.\n')
end end
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