#/tmp/pui/mapfdM96m_jeneen_fd_M_96m_01d.6442
!setenv mdi wd:{dbase}/{level}/{series}.{#%06d#series},bn:{series}.{#%04d#series}
!setenv soho wd:{dbase}/{series}/{#%06d#series};bn:{series}.{#%06d#series}
!setenv mdi_klist wd:{dbase}/{level}/{series}
!setenv mdi_rec wd:/soidata/info/{prog}/{level}/{series}
DSDSOUT=250
START_ARCHIVE=1
p=gather_info  d=1 \
	TIME_KEY=T_OBS \
	T_EPOCH=1993.01.01_00:00:00_TAI \
	PROTOCOL=RDB.FITS \
	T_BLOCK=1day \
	CONFORMS=TS_EQ \
	EXT_INFO=96m \
	q=1 \
	keylist=prog:mdi_klist,level:copy,series:info,sel:info.KEYS \
	out=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[154618];prog:mdi,level:lev1,series:49460fc0_01h[154620];prog:mdi,level:lev1,series:49460fc0_01h[154623];prog:mdi,level:lev1,series:49460fc0_01h[154625];prog:mdi,level:lev1,series:49460fc0_01h[154627];prog:mdi,level:lev1,series:49460fc0_01h[154628];prog:mdi,level:lev1,series:49460fc0_01h[154630];prog:mdi,level:lev1,series:49460fc0_01h[154632];prog:mdi,level:lev1,series:48470fc0_01h[154621];prog:mdi,level:lev1,series:48470fc0_01h[154623];prog:mdi,level:lev1,series:48470fc0_01h[154624];prog:mdi,level:lev1,series:48470fc0_01h[154632]

#the soho_orbit keywords to the lev1.4 output
p=gather_info \
	d=1 \
	TIME_KEY=T_OBS \
	TIME_MATCH=T_OBS \
	in=prog:soho,level:keys,series:def_orb[6442] \
	out=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442] \
	keylist=prog:mdi_klist,level:copy,series:orbit,sel:orbit.KEYS

# calculate/format/rename  keywords for SOI/SOHO/GONG use
p=assemble_keys -v \
        inout=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442]

# now the DATA ONLY gather_info for lev1.4
p=gather_info  d=1 a=n2 \
        TIME_KEY=T_OBS \
        q=1 \
        keylist=prog:mdi_klist,level:copy,series:fd_M_96m,sel:fd_M_96m.data.KEYS \
        out=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[154618];prog:mdi,level:lev1,series:49460fc0_01h[154620];prog:mdi,level:lev1,series:49460fc0_01h[154623];prog:mdi,level:lev1,series:49460fc0_01h[154625];prog:mdi,level:lev1,series:49460fc0_01h[154627];prog:mdi,level:lev1,series:49460fc0_01h[154628];prog:mdi,level:lev1,series:49460fc0_01h[154630];prog:mdi,level:lev1,series:49460fc0_01h[154632];prog:mdi,level:lev1,series:48470fc0_01h[154621];prog:mdi,level:lev1,series:48470fc0_01h[154623];prog:mdi,level:lev1,series:48470fc0_01h[154624];prog:mdi,level:lev1,series:48470fc0_01h[154632]

p=fdmoffset \
inout=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442]

p=fdmflux a=n2 \
   inout=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442]

END_ARCHIVE=1
# Do the imgrecon
p=imgrecon a=n1 \
	in=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6442] \
	out=prog:mdi,level:lev1.5,series:fd_M_96m_01d[6442]

p=cpinfo a=a COPY_HISTORY=no compress=yes \
	in=prog:mdi,level:lev1.5,series:fd_M_96m_01d[6442] \
	out=prog:mdi_rec,level:lev1.5,series:fd_M_96m_01d[6442]

p=sainfo perimage=1 \
   in=prog:mdi_rec,level:lev1.5,series:fd_M_96m_01d[6442]

p=gather_15qual \
   in=prog:mdi,level:lev1.5,series:fd_M_96m_01d[6442] 
p=mk18 d=1 a=n2 \
   in=prog:mdi,level:lev1.5,series:fd_M_96m_01d[6442] \
   in_adj=prog:mdi,level:lev1.8_adj,series:tables \
   out=prog:mdi,level:lev1.8,series:fd_M_96m_01d[6442]

p=cpinfo a=a COPY_HISTORY=no compress=yes \
   in=prog:mdi,level:lev1.8,series:fd_M_96m_01d[6442] \
   out=prog:mdi_rec,level:lev1.8,series:fd_M_96m_01d[6442]

p=script \
   script=/home/jeneen/STAGING/script/sums_ingest.csh \
   arg1=fd_M_96m_01d \
   arg2=6442