--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/uvrot.m	Tue Oct 20 16:23:49 2009 -0400
@@ -0,0 +1,12 @@
+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
+