% read in processed text files, remove sloppy spaces, and insert line breaks 
read_parameters_Stratus
ss=way_raw_data_mwr; % proc files from mailbox_allcruise.m (slow appends!) end up in raw
sz=way_proc_data_mwr;

%flist1=fopen([ss cruise '_' year '_micro_s.txt'],'r');
%flist2=fopen([ss cruise '_' year '_micro_h.txt'],'r');
%flist3=fopen([ss cruise '_' year '_mn.txt'],'r');

daty=load([ss cruise '_' year '_micro_s.txt']);
%textscan(flist1,'%12.6f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f \r\n');
%	                  jd   vap   liq    tau20  tb30   tau30  tb30   mode   angle  cf20   cf30   sky20  nsky20 bb20   nbb20  tbb20  sky30  nsky30 bb30   nbb30  tbb30 pitch    roll
%                     1     2      3     4      5      6      7      8       9     10     11     12     13     14     15     16     17     18     19    20      21     22      23
dathry=load([ss cruise '_' year '_micro_h.txt']);
%     textscan(flist2,'%12.6f %10.5f %10.5f %5d %10.5f %10.5f \r\n');
%						jd	     vap  liq   #obs  sigv   sigl
datmny=load([ss cruise '_' year '_mn.txt']);
%textscan(flist3,'%12.6f %10.5f %10.5f %5d %10.5f %10.5f \r\n');
%                    jd    vap   liq   #obs  sigv   sigl

fid1=fopen([sz cruise '_' year '_micro_s_f.txt'],'wt');
fid2=fopen([sz cruise '_' year '_micro_h_f.txt'],'wt');
fid3=fopen([sz cruise '_' year '_mn_f.txt'],'wt');

fprintf(fid1,'%12.6f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f %10.5f \n',daty');
fprintf(fid2,'%12.6f %10.5f %10.5f %5d %10.5f %10.5f \n',dathry');
fprintf(fid3,'%12.6f %10.5f %10.5f %5d %10.5f %10.5f \n',datmny');

fclose('all');
