--- MITgcm_contrib/osse/utils/ensavg.m	2004/07/01 13:45:09	1.7
+++ MITgcm_contrib/osse/utils/ensavg.m	2004/07/01 13:48:05	1.8
@@ -22,7 +22,7 @@
 i=3;tru(:,:,:,V)=reshape(foo(i*n+1:(i+1)*n),[nx ny nz]);
 i=6;tru(:,:,:,W)=reshape(foo(i*n+1:(i+1)*n),[nx ny nz]);
 i=7;tru(:,:,:,T)=reshape(foo(i*n+1:(i+1)*n),[nx ny nz]);
-
+fclose(fid);
 
 
 for k=1:nens