| 1 |
% m-file: mit_plotzonalvelocity.m |
| 2 |
|
| 3 |
% $Header: $ |
| 4 |
% $Name: $ |
| 5 |
|
| 6 |
% select timestep |
| 7 |
k=kmax; |
| 8 |
|
| 9 |
up = u(:,:,:,k).*grd.pacific_hfacw; |
| 10 |
upzm = mit_zonalmean(up,grd.pacific_hfacw,grd.dxg); |
| 11 |
ua = u(:,:,:,k).*grd.atlantic_hfacw; |
| 12 |
uazm = mit_zonalmean(ua,grd.atlantic_hfacw,grd.dxg); |
| 13 |
|
| 14 |
caxup = [min(upzm(:)) max(upzm(:))]; |
| 15 |
uplev = -1:.1:1; |
| 16 |
if max(abs(caxup)) < .1 |
| 17 |
uplev = .5*uplev; |
| 18 |
end |
| 19 |
if max(abs(caxup)) < .2 |
| 20 |
uplev = .2*uplev; |
| 21 |
end |
| 22 |
|
| 23 |
caxua = [min(uazm(:)) max(uazm(:))]; |
| 24 |
ualev = -1:.1:1; |
| 25 |
if max(abs(caxua)) < .1 |
| 26 |
ualev = .5*ualev; |
| 27 |
end |
| 28 |
if max(abs(caxua)) < .2 |
| 29 |
ualev = .2*ualev; |
| 30 |
end |
| 31 |
|
| 32 |
ixpw = 41; |
| 33 |
ixpc = 53; |
| 34 |
ixpe = 65; |
| 35 |
|
| 36 |
ixaw = 83; |
| 37 |
ixac = 85; |
| 38 |
ixae = 2; |
| 39 |
|
| 40 |
zaxis = -grd.zc; |
| 41 |
zaxis = -grd.zg; |
| 42 |
yaxis = grd.latg; |
| 43 |
%zaxis = -[1:grd.nz]; |
| 44 |
|
| 45 |
figure('PaperPosition',[0.25 0.621429 8 9.75714]) |
| 46 |
sh = subplot(4,2,1); |
| 47 |
pcol(yaxis,zaxis,upzm') |
| 48 |
title('Pacific Ocean: zonal average') |
| 49 |
sh(3) = subplot(4,2,3); |
| 50 |
pcol(yaxis,zaxis,sq(up(ixpw,:,:))') |
| 51 |
title(['section at ' num2str(grd.long(ixpw)) '^{\circ}E']) |
| 52 |
sh(5) = subplot(4,2,5); |
| 53 |
pcol(yaxis,zaxis,sq(up(ixpc,:,:))') |
| 54 |
title(['section at ' num2str(grd.long(ixpc)) '^{\circ}E']) |
| 55 |
sh(7) = subplot(4,2,7); |
| 56 |
pcol(yaxis,zaxis,sq(up(ixpe,:,:))') |
| 57 |
title(['section at ' num2str(grd.long(ixpe)) '^{\circ}E']) |
| 58 |
sh(2) = subplot(4,2,2); |
| 59 |
pcol(yaxis,zaxis,uazm',ualev) |
| 60 |
title('Atlantic Ocean: zonal average') |
| 61 |
sh(4) = subplot(4,2,4); |
| 62 |
pcol(yaxis,zaxis,sq(ua(ixaw,:,:))') |
| 63 |
title(['section at ' num2str(grd.long(ixaw)) '^{\circ}E']) |
| 64 |
sh(6) = subplot(4,2,6); |
| 65 |
pcol(yaxis,zaxis,sq(ua(ixac,:,:))') |
| 66 |
title(['section at ' num2str(grd.long(ixac)) '^{\circ}E']) |
| 67 |
sh(8) = subplot(4,2,8); |
| 68 |
pcol(yaxis,zaxis,sq(ua(ixae,:,:))') |
| 69 |
title(['section at ' num2str(grd.long(ixae)) '^{\circ}E']) |
| 70 |
|
| 71 |
set(sh,'xlim',[-1 1]*30,'ylim',[-400 0]) |
| 72 |
set(sh,'layer','top') |
| 73 |
set(sh(1:2:end),'clim',[uplev(1) uplev(end)]) |
| 74 |
set(sh(2:2:end),'clim',[ualev(1) ualev(end)]) |
| 75 |
set(gcf,'currentAxes',sh(end-1));colorbar('h') |
| 76 |
set(gcf,'currentAxes',sh(end));colorbar('h') |
| 77 |
|
| 78 |
suptitle(['experiment ' grd.dname ... |
| 79 |
', timestep = ' num2str(timesteps(k)) ... |
| 80 |
', ' tuname ' = ' num2str(tim(k)) ', zonal velocity [m/s]']) |
Parent Directory
| 
Revision Log
| 
Revision Graph