disp('AMMA08_co_combine');
clear;
s='C:\Data\AMMA\flux_data\procturb\';

dr=dir(s);
[n m]=size(dr);
mx=n;
nm=char(dr.name);
%dath=zeros(6*mx,164);
k=1;
for i=3:mx
    flnm=dr(i).name;
    if flnm(1:2)=='co';
        yy=load([s flnm]);
   		[nd md]=size(yy);
        dath(k:k+nd-1,:)=yy;
		k=k+nd;
     end;%isempty
 end;%while feof
   
dathry=sortrows(dath,1);

prt_it=1;  %set to 0 to print to screen, 1 to print to a file (i.e., make ascii file)
if prt_it==1   
   ss='C:\Data\AMMA\flux_data\procturb\';

	e=[ss 'AMMA08_co.txt'];
   save(e,'dathry','-ascii','-tabs');
end;


%ee=[ss 'micro_10m1.txt'];
%save(ee,'y','-ascii','-tabs');


