/[MITgcm]/MITgcm_contrib/gmaze_pv/visu/mapclean.m
ViewVC logotype

Annotation of /MITgcm_contrib/gmaze_pv/visu/mapclean.m

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


Revision 1.1 - (hide annotations) (download)
Tue Jan 30 22:11:17 2007 UTC (18 years, 5 months ago) by gmaze
Branch: MAIN
CVS Tags: HEAD
Add eg for bin2cdf conversion for both lat-lon cs grid

1 gmaze 1.1 %
2     % SUBFCT_MAPCLEAN(CPLOT,CBAR)
3     %
4     % This function makes uniformed subplots (handles CPLOT)
5     % and their vertical colorbars (handles CBAR)
6     %
7     % 07/06/06
8     % gmaze@mit.edu
9    
10     function subfct_mapclean(CPLOT,CBAR)
11    
12    
13     np = length(CPLOT);
14     proper1 = 'position';
15     proper2 = 'position';
16    
17     % Get positions of subplots and colorbars:
18     for ip = 1 : np
19     Pot(ip,:) = get(CPLOT(ip),proper1);
20     Bot(ip,:) = get(CBAR(ip),proper2);
21     end
22    
23    
24     % Set coord of subplots: [left bottom width height]
25     W = max(Pot(:,3));
26     H = max(Pot(:,4));
27     Pot;
28     for ip = 1 : np
29     set(CPLOT(ip),proper1,[Pot(ip,1:2) W H]);
30     end
31    
32    
33     % Get new positions of subplots:
34     for ip = 1 : np
35     Pot(ip,:) = get(CPLOT(ip),proper1);
36     end
37    
38    
39     % Fixe colorbars coord: [left bottom width height]
40     Wmin = 0.0435*min(Pot(:,3));
41     Hmin = 0.6*min(Pot(:,4));
42    
43     % Set them:
44     for ip = 1 : np
45     %set(CBAR(ip),proper2,[Bot(ip,1) Bot(ip,2) Wmin Hmin]);
46     % set(CBAR(ip),proper2,[Pot(ip,1)+Pot(ip,3)*1.1 Pot(ip,2)+Pot(ip,2)*0.1 Wmin Hmin]);
47     set(CBAR(ip),proper2,[Pot(ip,1)+Pot(ip,3)*1.05 Pot(ip,2)+Pot(ip,4)*0.2 ...
48     0.0435*Pot(ip,3) 0.6*Pot(ip,4)])
49     end

  ViewVC Help
Powered by ViewVC 1.1.22