osse_MkII/utils/dispens.m

z=15;


xframe=6;
yframe=5;

for j=1:varnum
  var=reshape(mem(:,j,:),[nx ny nz nens]);
  figure(j);
  for i=1:nens
    subplot(yframe,xframe,i);
    imagesc(var(:,:,z,i));colorbar;
    title(sprintf('%s%i','member ',i));
  end
end
1	afe	1.1	z=15;
2
3
4			xframe=6;
5			yframe=5;
6
7			for j=1:varnum
8			var=reshape(mem(:,j,:),[nx ny nz nens]);
9			figure(j);
10			for i=1:nens
11			subplot(yframe,xframe,i);
12			imagesc(var(:,:,z,i));colorbar;
13			title(sprintf('%s%i','member ',i));
14			end
15			end