% prt_jas_son
% VOCALS 2008 :: 2008-10-16 :: Simon de Szoeke
%This program takes data computed by the read_hp_day progam and creates an ascii
%file appropriate for reading into a spreadsheet (e.g., lotus, quatropro, etc)
disp(['prt_jas_son: ', cruise]);

fclose('all');
clear jazx;

f=[way_proc_data_flux cruise '_proc_son_1min_' sprintf('%04i_%02i_%02i_%03i',Vdate(1),Vdate(2),Vdate(3),ddd)  '.txt'];
flist=fopen(f,'w');

jazx(1,1:np)=jd_son;	%decimal JD
jazx(2,1:np)=U;		
jazx(3,1:np)=V;		
jazx(4,1:np)=w;		
jazx(5,1:np)=Tsonic;	
jazx(6,1:np)=dir;
 
fprintf(flist,'%11.5f %9.2f %9.2f %9.2f %9.2f %9.2f  \r\n',jazx);
%                jd     U      V    W      T     dir
fclose('all');
	
