function O = ocean_cm(m);

% This function returns the bottom of the "jet" colormap, and is called in
% the same way as jet, cool, etc...

if nargin < 1, m = size(get(gcf,'colormap'),1); end

n_cal = round(m * 64/22);
O = jet(n_cal);
O = O(1:m, :);