timour_matlab/mscripts/plotuv3.m

clear
clear path 

global Nx Ny Nz
global lat long dz dm mdep
global delt_su su_its t_su delt
global descriptor this_path
global f deltaf Q beta r_expt r_heat H
global time rots it
global g Cp rho_bar alpha
global u v t w
global iterations


cmin=20;
cmax=30;
V=[cmin cmax];

counter=0;
for i=2:4:Nx,
counter=counter+1;
x(counter)=i;
end

counter=0;
for i=2:4:Ny,
counter=counter+1;
y(counter)=i;
end

for k=1:Nz,
figure(1)

caxis('manual')
        imagesc(x,y,squeeze(t(:,:,k))');shading flat;axis image;caxis(V);colorbar('horizontal');
        set(gca,'ydir','norm')
hold on

quiver(x,y,u(2:4:Nx,2:4:Ny,k)',v(2:4:Nx,2:4:Ny,k)')
title(['velocity and temperature at the timestep ' num2str(eval(it)) ' level ' int2str(k) ]);
hold off

drawnow
pause
end

1	clear
2	clear path
3
4	global Nx Ny Nz
5	global lat long dz dm mdep
6	global delt_su su_its t_su delt
7	global descriptor this_path
8	global f deltaf Q beta r_expt r_heat H
9	global time rots it
10	global g Cp rho_bar alpha
11	global u v t w
12	global iterations
13
14
15	cmin=20;
16	cmax=30;
17	V=[cmin cmax];
18
19	counter=0;
20	for i=2:4:Nx,
21	counter=counter+1;
22	x(counter)=i;
23	end
24
25	counter=0;
26	for i=2:4:Ny,
27	counter=counter+1;
28	y(counter)=i;
29	end
30
31	for k=1:Nz,
32	figure(1)
33
34	caxis('manual')
35	imagesc(x,y,squeeze(t(:,:,k))');shading flat;axis image;caxis(V);colorbar('horizontal');
36	set(gca,'ydir','norm')
37	hold on
38
39	quiver(x,y,u(2:4:Nx,2:4:Ny,k)',v(2:4:Nx,2:4:Ny,k)')
40	title(['velocity and temperature at the timestep ' num2str(eval(it)) ' level ' int2str(k) ]);
41	hold off
42
43	drawnow
44	pause
45	end
46