% script savemd.m
% save a new/modified mooring design mat file

global U V W z rho
global H B Cd ME moorele

if ~isempty(H) & ~isempty(B) & ~isempty(Cd),
[ofile,opath]=uiputfile('*.mat','Save A Mooring Dynamics File');
if ~isempty(ofile) & ~strcmp(ofile,'*.mat'),
   eval(['save ',opath,ofile,' U z H B Cd V W rho moorele ME']);
end
clear ofile opath
else
   disp(' Must load or enter a mooring before it can be saved. ');
end

% fini