--- MITgcm_contrib/enderton/Diagnostics/DiagPlot.m 2005/02/01 17:05:25 1.2 +++ MITgcm_contrib/enderton/Diagnostics/DiagPlot.m 2005/02/07 05:31:45 1.4 @@ -40,9 +40,9 @@ % Loop over subplots and make plots. for inrow = 1:nrow - nexp = length(page{inrow}); if nexp ~= 1, nexp = nexp - 1; end - if nexp == 1, cmp = 'Sep'; else, cmp = page{inrow}{end}; end - if nexp == 1, ncol = 1; elseif cmp == 'Sbs', ncol = nexp; else ncol = 1; end + ntrl = length(page{inrow}); if ntrl ~= 1, ntrl = ntrl - 1; end + if ntrl == 1, cmp = 'Sep'; else, cmp = page{inrow}{end}; end + if ntrl == 1, ncol = 1; elseif cmp == 'Sbs', ncol = ntrl; else ncol = 1; end dx = (1-dxl-dxr-(ncol-1)*dxm)/ncol; dy = (1-dyb-dyt-(nrow-1)*dym)/nrow; @@ -89,6 +89,8 @@ yi = 1-dyt-inrow*dy-(inrow-1)*dym; isp = (inrow-1)*ncol+incol; + if DiagDebug, disp([' DiagDebug: Subplot: ',mat2str([nrow,ncol,isp])]); end + if DiagDebug, disp([' DiagDebug: SP Range: ',mat2str([xi,yi,dx,dy])]); end subplot(nrow,ncol,isp); hold on; set(gca,'position',[xi,yi,dx,dy],'fontsize',fs_axis);