function oms_deploy_instr(inFile,outfile);

infile=netcdf(inFile,'nowrite');
time=nctime(infile);
deploy_dates=[datenum('04 Dec 1996') datenum('23 May 1997') datenum('22 Oct 1997') datenum('22 Jun 1998') datenum('07 Nov 1998') ...
      datenum('08 Jul 1999') datenum('07 Nov 1999') datenum('03 Jul 2000') datenum('1 Nov 2000') datenum('17 Jun 2001')];

fid=fopen(outfile,'wt');
v=var(infile);

Es = 1;
LuMid = 1;
EdBot = 1;
LuBot =1;
datetrack = 1;


   
   for i=1:length(v)

   	name=char(ncnames(infile{i}));
      if strcmp(name(1:2),'Lu')|strcmp(name(1:2),'Ed')
         depth=infile{i}.bank(:);
         switch depth
         case 0
            mirror=infile{i}(:);
            Es0M(:,Es)=mirror;
            EsName(Es,:)=(ncnames(infile{i}));
            Es=Es+1;
         case 1
            mirror=infile{i}(:);
            Lu1M(:,LuMid)=mirror;
            LuNameMid(LuMid,:)=(ncnames(infile{i}));
            LuMid=LuMid+1;         
         case 2
            mirror=infile{i}(:);
            Ed20M(:,EdBot)=mirror;
            EdBotName(EdBot,:)=(ncnames(infile{i}));
            EdBot=EdBot+1;
         case 3
            mirror=infile{i}(:);
            Lu20M(:,LuBot)=mirror;
            LuBotName(LuBot,:)=(ncnames(infile{i}));
            LuBot=LuBot+1;
         end;
      end;
      
   end;
   
   
   fprintf(fid,'Es');
   fprintf(fid,'\n');
   for i=1:length(EsName)  
   	x=char(EsName(i));
      fprintf(fid,'%s\t',x);
   end;
   fprintf(fid,'\n');
   fprintf(fid,'%f\t%f\t%f\t%f\t%f\t%f\t%f\t\n',Es0M');
  
      

   fprintf(fid,'\n');
   fprintf(fid,'Ed20M');
   fprintf(fid,'\n');
   for i=1:length(EdBotName)
   x=char(EdBotName(i));
   fprintf(fid,'%s\t',x);
   end;
   fprintf(fid,'\n');
   fprintf(fid,'%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t\n',Ed20M');
   

   fprintf(fid,'\n');
   fprintf(fid,'Lu20M');
   fprintf(fid,'\n');
   for i=1:length(LuBotName)
   x=char(LuBotName(i));
   fprintf(fid,'%s\t',x);
   end;
   fprintf(fid,'\n');
   fprintf(fid,'%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t%f\t\n',Lu20M');
   

   clear Es0M;clear Lu1M;clear Ed20M;clear Lu20M;clear LuBotName;clear EdBotName;clear LunameMid;clear LuNameMid;clear EsName;
   Es = 1;
	LuMid = 1;
	EdBot = 1;
	LuBot =1;
	

   

fclose(fid);

            
                  
         
      
   

