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	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