;PRO GET_DIMM ; ;PURPOSE: This script will take the dimm data from the file DIMM.txt and ; plot it up pro get_wind wind_dir='/nfs/slac/g/ki/ki08/lsst/CPanalysis/winds/' numbers=['10','11','12'] get_lun,WIND_out openw,WIND_out,WIND_dir+'WIND_numbers.txt' for j=0, 2 do begin readcol,wind_dir+'SOAR_'+numbers(j)+'Direction.txt',time,direction,$ format='a,f',skipline=1 readcol,wind_dir+'SOAR_'+numbers(j)+'Speed.txt',speed,$ skipline=1,format='x,f' for i=0, n_elements(speed)-1 do begin first_arr=strsplit(time(i),'-',/extract) second_arr=strsplit(first_arr(2),'T',/extract) third_arr=strsplit(second_arr(1),':',/extract) yr_val=valid_num(first_arr(0),year) month_val=valid_num(first_arr(1),month) date_val=valid_num(second_arr(0),date) sec_val=valid_num(third_arr(2),secs) min_val=valid_num(third_arr(1),mins) hr_val=valid_num(third_arr(0),hrs) printf,WIND_out,FORMAT='(%"%d\t%d\t%d\t%d\t%d\t%d\t%f\t%f\t%f\t%f")',$ year,month,date,hrs,mins,secs,speed(i),direction(i) endfor endfor close,wind_out free_lun,wind_out stop end