#/tmp/pui/mapfdM96m_jeneen_fd_M_96m_01d.6480
!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[6480] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[155520];prog:mdi,level:lev1,series:49460fc0_01h[155521];prog:mdi,level:lev1,series:49460fc0_01h[155523];prog:mdi,level:lev1,series:49460fc0_01h[155524];prog:mdi,level:lev1,series:49460fc0_01h[155526];prog:mdi,level:lev1,series:49460fc0_01h[155528];prog:mdi,level:lev1,series:49460fc0_01h[155529];prog:mdi,level:lev1,series:49460fc0_01h[155531];prog:mdi,level:lev1,series:49460fc0_01h[155532];prog:mdi,level:lev1,series:49460fc0_01h[155536];prog:mdi,level:lev1,series:49460fc0_01h[155537];prog:mdi,level:lev1,series:49460fc0_01h[155539];prog:mdi,level:lev1,series:49460fc0_01h[155540];prog:mdi,level:lev1,series:49460fc0_01h[155542];prog:mdi,level:lev1,series:48440fc0_01h[155534]

#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[6480] \
	out=prog:mdi,level:lev1.4,series:fd_M_96m_01d[6480] \
	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[6480]

# 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[6480] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[155520];prog:mdi,level:lev1,series:49460fc0_01h[155521];prog:mdi,level:lev1,series:49460fc0_01h[155523];prog:mdi,level:lev1,series:49460fc0_01h[155524];prog:mdi,level:lev1,series:49460fc0_01h[155526];prog:mdi,level:lev1,series:49460fc0_01h[155528];prog:mdi,level:lev1,series:49460fc0_01h[155529];prog:mdi,level:lev1,series:49460fc0_01h[155531];prog:mdi,level:lev1,series:49460fc0_01h[155532];prog:mdi,level:lev1,series:49460fc0_01h[155536];prog:mdi,level:lev1,series:49460fc0_01h[155537];prog:mdi,level:lev1,series:49460fc0_01h[155539];prog:mdi,level:lev1,series:49460fc0_01h[155540];prog:mdi,level:lev1,series:49460fc0_01h[155542];prog:mdi,level:lev1,series:48440fc0_01h[155534]

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

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

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

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

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

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

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

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