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

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

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

revision 1.1 by enderton, Mon Jan 31 15:43:27 2005 UTC revision 1.4 by enderton, Mon Feb 7 05:31:45 2005 UTC
# Line 40  figure; clf; set(gca,'fontsize',fs_tick) Line 40  figure; clf; set(gca,'fontsize',fs_tick)
40  % Loop over subplots and make plots.  % Loop over subplots and make plots.
41  for inrow = 1:nrow  for inrow = 1:nrow
42            
43      nexp = length(page{inrow}); if nexp ~= 1, nexp = nexp - 1; end      ntrl = length(page{inrow}); if ntrl ~= 1, ntrl = ntrl - 1; end
44      if nexp == 1, cmp = 'Sep'; else, cmp = page{inrow}{end}; end      if ntrl == 1, cmp = 'Sep'; else, cmp = page{inrow}{end}; end
45      if nexp == 1, ncol = 1; elseif cmp == 'Sbs', ncol = nexp; else ncol = 1; end      if ntrl == 1, ncol = 1; elseif cmp == 'Sbs', ncol = ntrl; else ncol = 1; end
46            
47      dx = (1-dxl-dxr-(ncol-1)*dxm)/ncol;      dx = (1-dxl-dxr-(ncol-1)*dxm)/ncol;
48      dy = (1-dyb-dyt-(nrow-1)*dym)/nrow;      dy = (1-dyb-dyt-(nrow-1)*dym)/nrow;
# Line 89  for inrow = 1:nrow Line 89  for inrow = 1:nrow
89          yi = 1-dyt-inrow*dy-(inrow-1)*dym;          yi = 1-dyt-inrow*dy-(inrow-1)*dym;
90                    
91          isp = (inrow-1)*ncol+incol;          isp = (inrow-1)*ncol+incol;
92            if DiagDebug, disp(['  DiagDebug:  Subplot:  ',mat2str([nrow,ncol,isp])]); end
93            if DiagDebug, disp(['  DiagDebug:  SP Range: ',mat2str([xi,yi,dx,dy])]); end
94          subplot(nrow,ncol,isp); hold on;          subplot(nrow,ncol,isp); hold on;
95          set(gca,'position',[xi,yi,dx,dy],'fontsize',fs_axis);          set(gca,'position',[xi,yi,dx,dy],'fontsize',fs_axis);
96                    
# Line 111  end Line 113  end
113    
114  % Save plot as desired.  % Save plot as desired.
115  if SavePlots  if SavePlots
116      outputfile = [outputdir,'/',pagename,'.eps'];      if isequal(outputdir,'')
117            outputfile = [pagename,'.eps'];
118        else
119            outputfile = [outputdir,'/',pagename,'.eps'];
120        end
121      print('-depsc2',outputfile);      print('-depsc2',outputfile);
122  end  end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22