pro do_sweapd_lt
;swea_l1_common
year_str = '2006'
for month = 1,0  do begin
   if month lt 10 then month_str = '0'+strcompress(month,/rem) else $
      month_str = strcompress(month,/rem)
   case month of
      1: num_days = 31
      2: num_days = 28
      3: num_days = 31
      4: num_days = 30
      5: num_days = 31
      6: num_days = 30
      7: num_days = 31
      8: num_days = 31
      9: num_days = 30
      10: num_days = 31
      11: num_days = 30
      12: num_days = 31
   endcase
   for date = 1, num_days do begin
      date_str = strcompress(date,/rem)
      if date lt 10 then date_str = '0'+date_str
      timespan,year_str+'-'+month_str+'-'+date_str,1
      sta_file_str = 'STA_L1_SWEAPD_' + $
         year_str+month_str+date_str + '_V02.cdf'
      stb_file_str = 'STB_L1_SWEAPD_' + $
         year_str+month_str+date_str + '_V02.cdf'
      do_sweapd,sta_file_str,stb_file_str
      tplot_names,names=mytnames
      store_data,delete=mytnames
   endfor
endfor

year_str = '2007'
for month = 13, 12 do begin
   if month lt 10 then month_str = '0'+strcompress(month,/rem) else $
      month_str = strcompress(month,/rem)
   case month of
      1: num_days = 31
      2: num_days = 28
      3: num_days = 31
      4: num_days = 30
      5: num_days = 31
      6: num_days = 30
      7: num_days = 31
      8: num_days = 31
      9: num_days = 30
      10: num_days = 31
      11: num_days = 30
      12: num_days = 31
   endcase
   for date = 1, num_days do begin
      date_str = strcompress(date,/rem)
      if date lt 10 then date_str = '0'+date_str
      timespan,year_str+'-'+month_str+'-'+date_str,1
      sta_file_str = 'STA_L1_SWEAPD_' + $
         year_str+month_str+date_str + '_V02.cdf'
      stb_file_str = 'STB_L1_SWEAPD_' + $
         year_str+month_str+date_str + '_V02.cdf'
      do_sweapd,sta_file_str,stb_file_str
      tplot_names,names=mytnames
      store_data,delete=mytnames
   endfor
endfor

year_str = '2008'
for month = 4, 4 do begin
   if month lt 10 then month_str = '0'+strcompress(month,/rem) else $
      month_str = strcompress(month,/rem)
   case month of
      1: num_days = 31
      2: num_days = 28
      3: num_days = 31
      4: num_days = 30
      5: num_days = 31
      6: num_days = 30
      7: num_days = 31
      8: num_days = 31
      9: num_days = 30
      10: num_days = 31
      11: num_days = 30
      12: num_days = 31
   endcase
   for date = 1, num_days do begin
      date_str = strcompress(date,/rem)
      if date lt 10 then date_str = '0'+date_str
      timespan,year_str+'-'+month_str+'-'+date_str,1
      sta_file_str = 'STA_L1_SWEAPD_' + $
         year_str+month_str+date_str + '_V02.cdf'
      stb_file_str = 'STB_L1_SWEAPD_' + $
         year_str+month_str+date_str + '_V02.cdf'
      do_sweapd,sta_file_str,stb_file_str
      tplot_names,names=mytnames
      store_data,delete=mytnames
   endfor
endfor


return
end