/[MITgcm]/MITgcm_contrib/timour_matlab/mscripts/plotuv1.m
ViewVC logotype

Contents of /MITgcm_contrib/timour_matlab/mscripts/plotuv1.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Wed Sep 3 21:22:22 2003 UTC (21 years, 10 months ago) by edhill
Branch: MAIN
CVS Tags: HEAD
Error occurred while calculating annotation data.
initial checkin of Timour's MatLAB scripts

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 tt(1:Nx/2,:,:)=t(Nx/2+1:Nx,:,:);
16 uu(1:Nx/2,:,:)=u(Nx/2+1:Nx,:,:);
17 vv(1:Nx/2,:,:)=v(Nx/2+1:Nx,:,:);
18
19 %tt(1:Nx/2,:,:)=t(Nx/2+1:Nx,:,:);
20 %uu(1:Nx/2,:,:)=u(Nx/2+1:Nx,:,:);
21 %vv(1:Nx/2,:,:)=v(Nx/2+1:Nx,:,:);
22
23 cmin=20;
24 cmax=32;
25 V=[cmin cmax];
26
27 counter=0;
28 for i=2:4:Nx,
29 counter=counter+1;
30 x(counter)=i;
31 end
32
33 counter=0;
34 for i=2:4:Ny,
35 counter=counter+1;
36 y(counter)=i;
37 end
38
39 for k=1:Nz,
40 figure(1)
41
42 caxis('manual')
43 imagesc(x,y,squeeze(t(1:Nx,:,k))');shading flat;axis image;caxis(V);colorbar('horizontal');
44 set(gca,'ydir','norm')
45 hold on
46
47 quiver(x,y,u(2:4:Nx,2:4:Ny,k)',v(2:4:Nx,2:4:Ny,k)')
48 title(['velocity and temperature at the timestep ' num2str(eval(it)) ' level ' int2str(k) ]);
49 hold off
50
51 drawnow
52 pause
53 end
54

  ViewVC Help
Powered by ViewVC 1.1.22