/[MITgcm]/MITgcm_contrib/enderton/Diagnostics/DiagPlotMakePlot.m
ViewVC logotype

Diff of /MITgcm_contrib/enderton/Diagnostics/DiagPlotMakePlot.m

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

revision 1.4 by enderton, Thu Aug 11 14:40:22 2005 UTC revision 1.6 by enderton, Mon Sep 12 20:13:21 2005 UTC
# Line 34  elseif isequal(pst,'Int') Line 34  elseif isequal(pst,'Int')
34  % Make contour (non-filled) plot.  Let MATLAB determine the contour  % Make contour (non-filled) plot.  Let MATLAB determine the contour
35  % intervals on a differencing plot.  % intervals on a differencing plot.
36  elseif isequal(pst,'Con')  elseif isequal(pst,'Con')
37      try   [cs,h] = contour(xax{inrow}{incol},yax{inrow}{incol},plotdata,contint);      if isequal(cmap,'solid-dashed')
38      catch [cs,h] = contour(xax{inrow}{incol},yax{inrow}{incol},plotdata); end          for ii = 1:3
39      set(h,'linewidth',linewidth);              cint = contint; lw = linewidth;
40      if UseConLabel              if ii == 1, cint = cint(cint>0); lst = '-';  end
41          clabel(cs,h,'fontsize',fs_clabel,'rotation',0);              if ii == 2, cint = cint(cint<0); lst = '--'; end
42                if ii == 3, cint = [0,0]; lst = '-'; lw = 2.*lw; end
43                [cs,h] = contour(xax{inrow}{incol},yax{inrow}{incol},...
44                                 plotdata,cint,['k',lst]);
45                set(h,'linewidth',lw);
46                if UseConLabel
47                    clabel(cs,h,'fontsize',fs_clabel,'rotation',0);
48                end
49            end
50        else
51            [cs,h] = contour(xax{inrow}{incol},yax{inrow}{incol},plotdata,contint);
52            set(h,'linewidth',linewidth);
53            if UseConLabel
54                clabel(cs,h,'fontsize',fs_clabel,'rotation',0);
55            end
56      end      end
57            
58        
59  % Make contour (filled) plot.  Let MATLAB determine the contour  % Make contour (filled) plot.  Let MATLAB determine the contour
60  % intervals on a differencing plot.  % intervals on a differencing plot.
61  elseif isequal(pst,'Cnf')  elseif isequal(pst,'Cnf')
# Line 55  elseif isequal(pst,'Cnf') Line 70  elseif isequal(pst,'Cnf')
70  elseif isequal(pst,'Lin')  elseif isequal(pst,'Lin')
71      if ismember(cmp,{'OvC','OvE','OvF'})      if ismember(cmp,{'OvC','OvE','OvF'})
72          for intrl = 1:ntrl          for intrl = 1:ntrl
73              plot(xax{inrow}{intrl},data{inrow}{intrl},linecolors{intrl},'linewidth',linewidth);              plot(xax{inrow}{intrl},data{inrow}{intrl},...
74                     linecolors{intrl},'linewidth',linewidth);
75          end          end
76      else      else
77          plot(xax{inrow}{incol},plotdata,linecolors{1},'linewidth',linewidth);          plot(xax{inrow}{incol},plotdata,linecolors{1},'linewidth',linewidth);
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22