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

Annotation of /MITgcm_contrib/timour_matlab/mscripts/polyplot.m

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


Revision 1.1 - (hide 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 edhill 1.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