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

Contents of /MITgcm_contrib/timour_matlab/mscripts/polyplot.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
initial checkin of Timour's MatLAB scripts

1 %cmin=21;
2 cmin=18;
3 %cmax=27;
4 %cmax=30;
5 cmax=32;
6 V=[cmin cmax];
7 caxis('manual')
8
9 % make land mask
10 XCenter=Nx/2;
11 YCenter=Ny/2;
12 R = 58 ;
13 % create single circular mask
14 mask1=ones(Nx,Ny);
15 mask2=zeros(Nx,Ny);
16 for i=2:Nx-1
17 for j=2:Ny-1
18 DispX=XCenter-i;
19 DispY=YCenter-j;
20 if ( DispX^2 + DispY^2 >= R^2 )
21 mask1(i,j)=0;
22 mask2(i,j)=1;
23 end
24 end
25 end
26 %% txy=reshape(t(:,:,2),[Nx,Ny]);
27 %% txy=reshape(t(:,:,15),[Nx,Ny]);
28 % txy=reshape(t(:,:,1),[Nx,Ny]);
29 % txy(find(txy==0))=txy(find(txy==0))*NaN;
30 %% txy(find(mask==1))=txy(find(txy==1))*0;
31 % txy=txy.*mask1+(mask2*19);
32 % imagesc(lat,long,txy');shading('flat');
33 %% axis image;caxis(V);colorbar;colormap(flipud(gray))
34 % axis image;colorbar;
35
36 %contourf(t(40:84,40:84,1)',5);caxis(V);axis square;colorbar
37 %imagesc(t(40:Nx-40,40:Ny-40,1)');caxis(V);axis square;colorbar
38 imagesc(t(:,:,2)');caxis(V);axis square;colorbar
39 %imagesc(squeeze(t(:,Nx/2,:))');caxis(V);axis square;colorbar
40 %contourf(flipud(squeeze(t(:,Nx/2,:))'),10);caxis(V);axis square;colorbar

  ViewVC Help
Powered by ViewVC 1.1.22