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	edhill	1.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