Commit 590d5e55 authored by Pierre Cazenave's avatar Pierre Cazenave
Browse files

Minor syntax changes.

parent a875ec0c
function [erate] = ST_erate(d,varargin)
function erate = ST_erate(d,varargin)
% Calculate erosion rate in kg/(m^2-s)
%
% function [erate] = ST_erate(d,varargin)
......@@ -40,7 +40,7 @@ if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
% constants
% constants
grav = 9.8106; %g
T = 10; %T (C)
S = 35; %S (PSU)
......
function [d] = ST_phi2d(phi)
function d = ST_phi2d(phi)
% Convert sediment grain size from phi to d (m)
%
% function [d] = ST_phi2d(phi)
......
function [Sclass] = wentworth(phi)
function Sclass = ST_wentworth(phi)
% Report wentworth class of a particular grain size phi
%
% function wentworth(phi)
......
......@@ -34,7 +34,7 @@ if ftbverbose
fprintf('\nbegin : %s\n', subname)
end
% constants
% constants
grav = 9.8106; %g
T = 10; %T (C)
S = 35; %S (PSU)
......
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