;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