Month =[];
W_c = [];
W_g = [];
H_s = [];

for n = 1987:2003
    
    filenm = sprintf('46042h%4d.txt',n);
   [mo,cont,gust,height] = textread(filenm,'%*d %d %*d %*d %*d %f %f %f %*f %*f %*d %*f %*f %*f %*f %*f %*s','commentstyle','matlab');
 
   i = find(99.0-cont);  
   W_c = [W_c cont(i)'];
   clear i cont;
   
   i = find(99.0-gust);
   W_g = [W_g gust(i)'];
   clear i gust;
   
   i = find(99.0-height);
   H_s = [H_s height(i)'];
   Month = [Month mo(i)'];
   clear i height mo;
   
end