uvrot.m
author A.M. Thurnherr <athurnherr@yahoo.com>
Tue, 18 Jun 2013 11:34:41 +0000
changeset 3 720b082fe33e
parent 0 0a450563f904
permissions -rw-r--r--
before trying to fix plotraw bug reported by Dan Torres *** Added tag IX_9 for changeset 20dc0dc52ad5 *** Version IX_9 *** after revert

function [ur,vr]=uvrot(u,v,rot);
% function [ur,vr]=uvrot(u,v,rot);
% rotate velocities
% by angel rot in deg
% M.Visbeck
rot=-rot*pi/180;
cr=cos(rot);
sr=sin(rot);
ur=u.*cr-v.*sr;
vr=u.*sr+v.*cr;
return