Commit cb581eff authored by Pierre Cazenave's avatar Pierre Cazenave

Fix a bunch of subnames.

parent db5fb66b
......@@ -25,12 +25,11 @@ function [h] = read_fvcom_bath(bathfile)
%
%==============================================================================
subname = 'read_fvcom_bath';
global ftbverbose
if(ftbverbose)
fprintf('\n')
fprintf(['begin : ' subname '\n'])
end;
[~, subname] = fileparts(mfilename('fullpath'));
if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
%------------------------------------------------------------------------------
% read in the FVCOM bathymetry data
......
......@@ -29,7 +29,7 @@ function field = smoothfield(fieldin,Mobj,SmoothFactor,nLoops,SmoothPts)
%==========================================================================
global ftbverbose;
subname = 'smoothfield';
[~, subname] = fileparts(mfilename('fullpath'));
if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
......@@ -57,12 +57,12 @@ end
% Smoothing Loops
%--------------------------------------------------------------------------
for ll = 1:nLoops;
for ll = 1:nLoops
field = fieldin;
for ii = 1:nPts;
for ii = 1:nPts
i = SmoothPts(ii);
ss = 0;
for k = 1:Mobj.ntsn(i);
for k = 1:Mobj.ntsn(i)
node = Mobj.nbsn(i,k);
ss = ss + field(node)/real(Mobj.ntsn(i));
end
......
......@@ -25,9 +25,12 @@ function [field] = smoothfield(fieldin,Mobj,nLoops,SmoothPts)
% Revision history
%
%==============================================================================
subname = 'smoothfield';
%fprintf('\n')
%fprintf(['begin : ' subname '\n'])
fprintf('\nbegin : %s\n', subname)
endglobal ftbverbose
[~, subname] = fileparts(mfilename('fullpath'));
if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
%------------------------------------------------------------------------------
% Parse input
......
......@@ -30,7 +30,7 @@ function write_FVCOM_bedflag(bedflag,filename,mytitle)
%==========================================================================
global ftbverbose
subname = 'write_FVCOM_bedflag';
[~, subname] = fileparts(mfilename('fullpath'));
if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
......
......@@ -31,11 +31,10 @@ function write_SMS_2dm(file, tri, x, y, z, bnd)
%
%==========================================================================
subname = 'write_SMS_2dm';
global ftbverbose
[~, subname] = fileparts(mfilename('fullpath'));
if ftbverbose
fprintf('\n'); fprintf(['begin : ' subname '\n']);
fprintf('\nbegin : %s\n', subname)
end
f = fopen(file, 'w');
......
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