Documentation of ocean_vel

Global Index (short | long) | Local contents | Local Index (short | long)

Help text

 print -dps2 Oce_currents.ps

Cross-Reference Information

Listing of script ocean_vel

clear
lims = [-0.1 360 -90 90];
tim = 101:1000;
u1 = getheat(lims, 1:3, tim, 'u');
v1 = getheat(lims, 1:3, tim, 'v');
u2 = getheat(lims, 4:7, tim, 'u');
v2 = getheat(lims, 4:7, tim, 'v');
u1 = squeeze(mean(u1));
v1 = squeeze(mean(v1));
u2 = squeeze(mean(u2));
v2 = squeeze(mean(v2));
[lat, lon] = getll('u', lims);
[lat1, lon1, depth, lm] = getll('temp', lims);
default_global; FRAME = [0 360 -90 90];
figure(2); fo(1); clf;
spthes(1);
  gquiv(u1, v1, -15, 1, 'cm s^-^1');
  XAX = lon1; YAX = lat1;
  dc2(lm, 0.55, 1);
  XAX = lon; YAX = lat;
  title('0-80m Ocean Currents');
spthes(2);
  gquiv(u2, v2, -10, 1, 'cm s^-^1');
  XAX = lon1; YAX = lat1;
  dc2(lm, 0.55, 1);
  XAX = lon; YAX = lat;
  title('80-270m Ocean Currents');
cd ~/Thesis/Clim