% routine to get a label for tidal phase based on u & v
function [tideph]=gettidph(u,v);
%
if u>=0;
  if v>=0;
    tideph=' LATE FLOOD';
  elseif v<0;
    tideph='  EARLY EBB';
  end;
elseif u<0;
  if v<0;
    tideph='   LATE EBB';
  elseif v>0;
    tideph='EARLY FLOOD';
  end;
end;