Commit 8be1e06f authored by Pierre Cazenave's avatar Pierre Cazenave

Add beta Love and equilibrium tide amplitudes when outputting the spectide NetCDF file

parent 59d1f9f1
......@@ -26,6 +26,7 @@ function set_spectide(Mobj,nComps,SpectralFile,MyTitle)
%
% Revision history
% 2012-06-15 Added support for variables when calling set_spectide.
% 2012-08-02 Can now write out equilibrium amplitudes and beta love numbers.
%
%==============================================================================
subname = 'set_spectide';
......@@ -75,6 +76,6 @@ end
%------------------------------------------------------------------------------
% Dump a spectral tide file in NetCDF
%------------------------------------------------------------------------------
write_FVCOM_spectide(ObcNodes,Mobj.period_obc(1:nComps),Phase,Amp,SpectralFile,MyTitle)
write_FVCOM_spectide(ObcNodes,Mobj.period_obc(1:nComps),Phase,Amp,Mobj.beta_love,Mobj.equilibrium_amp,SpectralFile,MyTitle)
if(ftbverbose); fprintf(['end : ' subname '\n']); end
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