--- MITgcm_contrib/osse/utils/dispens.m	2004/06/15 14:42:30	1.1
+++ MITgcm_contrib/osse/utils/dispens.m	2004/06/18 16:23:52	1.3
@@ -1,17 +1,15 @@
 z=15;
-ensvar=memu;
-%ensvar=memv;
-%ensvar=memw;
-%ensvar=memp;
 
 
 xframe=6;
 yframe=5;
-var=reshape(ensvar,[nx ny nz nens]);
 
-for i=1:nens
-  subplot(yframe,xframe,i);
-  imagesc(var(:,:,z,i));colorbar;
-  title(sprintf('%s%i','member ',i));
+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
-