; Lorna Ellis
; 11/08/2007
; put_in_zip.pro

; This is a temporary program for taking read_cdf output and putting
; it into the zip files on fiji.

PRO put_in_zip

in_dir = '.'
out_dir = '.'

files = file_search(in_dir, 'Apid*', /fully_qualify_path, count = count)

FOR ii = 0, count-1 DO BEGIN
    file_base = file_basename(files[ii])
    sat = strmid(file_base, 10, 1)
    doy_st = strmid(file_base, 28, 3)
    IF sat EQ 'A' THEN BEGIN
        ;out_path = out_dir+'A/2007/'
        out_file = 'ahead_'+doy_st
    ENDIF ELSE BEGIN 
        ;out_path = out_dir+'B/2007/'
        out_file = 'behind_'+doy_st
    ENDELSE 
    command = 'zip -j '+out_file+' '+files[ii]
    spawn, command
ENDFOR 
END