/[MITgcm]/MITgcm/verification/global_ocean.90x40x15/diags_matlab/suptitle.m
ViewVC logotype

Annotation of /MITgcm/verification/global_ocean.90x40x15/diags_matlab/suptitle.m

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


Revision 1.1 - (hide annotations) (download)
Tue Oct 22 13:30:40 2002 UTC (21 years, 7 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint48f_post, checkpoint46k_post, checkpoint51k_post, checkpoint53f_post, checkpoint47j_post, checkpoint54a_pre, checkpoint55c_post, checkpoint53b_pre, checkpoint48d_pre, checkpoint51l_post, checkpoint51j_post, branch-exfmods-tag, checkpoint47e_post, checkpoint57m_post, checkpoint47i_post, checkpoint52l_pre, checkpoint48i_post, checkpoint52e_pre, checkpoint58e_post, checkpoint57v_post, checkpoint57g_pre, checkpoint52j_post, checkpoint47f_post, checkpoint48d_post, checkpoint51o_pre, checkpoint57f_post, checkpoint50e_post, checkpoint52e_post, checkpoint50c_post, checkpoint57s_post, checkpoint51n_pre, checkpoint47d_post, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint47a_post, checkpoint57b_post, checkpoint46l_pre, checkpoint53c_post, checkpoint53d_post, checkpoint57f_pre, checkpoint48a_post, checkpoint55d_pre, checkpoint46n_post, checkpoint51f_pre, checkpoint57g_post, checkpoint48e_post, checkpoint57a_post, checkpoint48h_post, checkpoint55j_post, checkpoint56b_post, checkpoint50c_pre, checkpoint57h_pre, checkpoint57y_post, branchpoint-genmake2, checkpoint46l_post, checkpoint58g_post, checkpoint57x_post, checkpoint52j_pre, checkpoint54a_post, branch-netcdf, checkpoint50d_pre, checkpoint55h_post, checkpoint51r_post, checkpoint52b_pre, checkpoint52n_post, checkpoint54b_post, checkpoint58h_post, checkpoint51i_post, checkpoint57e_post, checkpoint54d_post, checkpoint47h_post, checkpoint48c_post, checkpoint56c_post, checkpoint54e_post, checkpoint58j_post, checkpoint55b_post, checkpoint51e_post, checkpoint51b_post, checkpoint57h_post, checkpoint51l_pre, checkpoint52m_post, checkpoint51c_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint55a_post, checkpoint57c_pre, checkpoint48, checkpoint49, checkpoint47b_post, checkpoint53b_post, checkpoint57o_post, checkpoint55g_post, checkpoint57r_post, checkpoint51o_post, checkpoint48g_post, checkpoint57k_post, checkpoint57d_post, checkpoint55f_post, checkpoint57i_post, checkpoint51q_post, checkpoint52l_post, checkpoint52k_post, checkpoint58, checkpoint57a_pre, checkpoint54, checkpoint57, checkpoint56, checkpoint51, checkpoint50, checkpoint53, checkpoint52, checkpoint50d_post, checkpoint52d_post, checkpoint46m_post, checkpoint51b_pre, checkpoint52a_post, checkpoint57h_done, checkpoint47g_post, checkpoint58f_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint57n_post, checkpoint52c_post, checkpoint58d_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint51h_pre, checkpoint58a_post, checkpoint50g_post, checkpoint58i_post, checkpoint57q_post, checkpoint51g_post, ecco_c52_e35, checkpoint57z_post, checkpoint54f_post, checkpoint51f_post, checkpoint48b_post, checkpoint50b_post, eckpoint57e_pre, checkpoint58c_post, checkpoint58k_post, checkpoint57c_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52a_pre, checkpoint47d_pre, checkpoint51d_post, checkpoint48c_pre, checkpoint51m_post, checkpoint51t_post, checkpoint53d_pre, checkpoint47, checkpoint55e_post, checkpoint54c_post, checkpoint50h_post, checkpoint52i_post, checkpoint51a_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51p_post, checkpoint51n_post, checkpoint55i_post, checkpoint51i_pre, checkpoint57l_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, checkpoint50b_pre, checkpoint56a_post, checkpoint51s_post, checkpoint55d_post
Branch point for: netcdf-sm0, branch-genmake2, branch-nonh, tg2-branch, checkpoint51n_branch, release1, branch-exfmods-curt
 fixed the verification/global_ocean.90x40x15 experiment:
 - new bathymetry (the world according to A., JMC, and M.)
 - new initial fields and forcing fields (*.bin files)
 - new POLY3.COEFFS (for the next release one should switch to a full
   equation of state: JMD95P or MDJWF)
 - fixed several errors and redundancies in the data file
 - experiment uses looped cells
 - added matlab directory with diagnostic scripts for plotting of output

1 mlosch 1.1 function hout=suptitle(str)
2     %SUPTITLE Puts a title above all subplots.
3     % SUPTITLE('text') adds text to the top of the figure
4     % above all subplots (a "super title"). Use this function
5     % after all subplot commands.
6    
7     % Drea Thomas 6/15/95 drea@mathworks.com
8    
9     % Warning: If the figure or axis units are non-default, this
10     % will break.
11    
12     % Parameters used to position the supertitle.
13    
14     % Amount of the figure window devoted to subplots
15     plotregion = .92;
16    
17     % Y position of title in normalized coordinates
18     titleypos = .95;
19    
20     % Fontsize for supertitle
21     fs = get(gcf,'defaultaxesfontsize')+4;
22    
23     % Fudge factor to adjust y spacing between subplots
24     fudge=1;
25    
26     haold = gca;
27     figunits = get(gcf,'units');
28    
29     % Get the (approximate) difference between full height (plot + title
30     % + xlabel) and bounding rectangle.
31    
32     if (~strcmp(figunits,'pixels')),
33     set(gcf,'units','pixels');
34     pos = get(gcf,'position');
35     set(gcf,'units',figunits);
36     else,
37     pos = get(gcf,'position');
38     end
39     ff = (fs-4)*1.27*5/pos(4)*fudge;
40    
41     % The 5 here reflects about 3 characters of height below
42     % an axis and 2 above. 1.27 is pixels per point.
43    
44     % Determine the bounding rectange for all the plots
45    
46     % h = findobj('Type','axes');
47    
48     % findobj is a 4.2 thing.. if you don't have 4.2 comment out
49     % the next line and uncomment the following block.
50    
51     h = findobj(gcf,'Type','axes'); % Change suggested by Stacy J. Hills
52    
53     % If you don't have 4.2, use this code instead
54     %ch = get(gcf,'children');
55     %h=[];
56     %for i=1:length(ch),
57     % if strcmp(get(ch(i),'type'),'axes'),
58     % h=[h,ch(i)];
59     % end
60     %end
61    
62    
63    
64    
65     max_y=0;
66     min_y=1;
67    
68     oldtitle =0;
69     for i=1:length(h),
70     if (~strcmp(get(h(i),'Tag'),'suptitle')),
71     pos=get(h(i),'pos');
72     if (pos(2) < min_y), min_y=pos(2)-ff/5*3;end;
73     if (pos(4)+pos(2) > max_y), max_y=pos(4)+pos(2)+ff/5*2;end;
74     else,
75     oldtitle = h(i);
76     end
77     end
78    
79     if max_y > plotregion,
80     scale = (plotregion-min_y)/(max_y-min_y);
81     for i=1:length(h),
82     pos = get(h(i),'position');
83     pos(2) = (pos(2)-min_y)*scale+min_y;
84     pos(4) = pos(4)*scale-(1-scale)*ff/5*3;
85     set(h(i),'position',pos);
86     end
87     end
88    
89     np = get(gcf,'nextplot');
90     set(gcf,'nextplot','add');
91     if (oldtitle),
92     delete(oldtitle);
93     end
94     ha=axes('pos',[0 1 1 1],'visible','off','Tag','suptitle');
95     ht=text(.5,titleypos-1,str);set(ht,'horizontalalignment','center','fontsize',fs);
96     set(gcf,'nextplot',np);
97     axes(haold);
98     if nargout,
99     hout=ht;
100     end
101    
102    
103    

  ViewVC Help
Powered by ViewVC 1.1.22