You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
1.8 KiB
Matlab
62 lines
1.8 KiB
Matlab
% SBEACH toolbox - fsbeach_genwaves
|
|
% Written by Joshua Simmons 11/2017
|
|
|
|
% Syntax:
|
|
% wavesout = fsbeach_genwaves(varargin)
|
|
%
|
|
% Input:
|
|
% varargin = time: array of measurement times for w (minutes)
|
|
%
|
|
% Hsig: significant wave height (m)
|
|
% Tp1: peak wave period (s)
|
|
% ang: wave direction (degrees from True North)
|
|
% pfang: Profile orientation - from the shore to the
|
|
% most seaward point (degrees from True North)
|
|
%
|
|
% Output:
|
|
% wavesout = structure array of wave inputs
|
|
|
|
function wavesout = fsbeach_genwaves(outpath,name,varargin)
|
|
OPT = struct( ...
|
|
'time', [0 100 200 300 400 500]', ...
|
|
'Hsig', [0 100 200 300 400 500]', ...
|
|
'Tp1', [-10 -5 0 1 3 10]', ...
|
|
'ang', [-10 -5 0 1 3 10]', ...
|
|
'pfang', NaN ...
|
|
);
|
|
|
|
OPT = setproperty(OPT, varargin{:});
|
|
|
|
%transpose them if needed
|
|
OPT = fsbeach_makecolumn(OPT,{'time','Hsig','Tp1','ang'});
|
|
|
|
%check they can be zipped
|
|
if length(OPT.Hsig) ~= length(OPT.Tp1)
|
|
error('Hsig is of length %d, while Tp1 is of length %d...',length(OPT.Hsig),length(OPT.Tp1))
|
|
end
|
|
|
|
%zip wave data
|
|
wavfile = [OPT.Hsig OPT.Tp1];
|
|
|
|
% correct for SBEACH wave angle convention
|
|
% See SBEACH Report 3 - User's manual (pg 19)
|
|
if isnan(OPT.pfang)
|
|
error('Please provide the orientation of your profile as pfang.')
|
|
end
|
|
|
|
angfile = OPT.pfang - OPT.ang;
|
|
|
|
%check
|
|
if any(abs(angfile)>90)
|
|
warning('Check the orientation of your profile relative to the waves.')
|
|
end
|
|
|
|
%and write
|
|
writetofilewav(wavfile, outpath, name)
|
|
writetofileang(angfile, outpath, name)
|
|
|
|
wavesout.time = OPT.time;
|
|
wavesout.Hsig = OPT.Hsig;
|
|
wavesout.Tp1 = OPT.Tp1;
|
|
wavesout.ang = angfile;
|
|
end |