#/tmp/pui/mapfdM96m_jeneen_fd_M_96m_01d.6475
!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[6475] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[155400];prog:mdi,level:lev1,series:49460fc0_01h[155404];prog:mdi,level:lev1,series:49460fc0_01h[155406];prog:mdi,level:lev1,series:49460fc0_01h[155408];prog:mdi,level:lev1,series:49460fc0_01h[155409];prog:mdi,level:lev1,series:49460fc0_01h[155411];prog:mdi,level:lev1,series:49460fc0_01h[155412];prog:mdi,level:lev1,series:49460fc0_01h[155414];prog:mdi,level:lev1,series:49460fc0_01h[155417];prog:mdi,level:lev1,series:49460fc0_01h[155419];prog:mdi,level:lev1,series:49460fc0_01h[155420];prog:mdi,level:lev1,series:49460fc0_01h[155422];prog:mdi,level:lev1,series:49460fc0_01h[155424];prog:mdi,level:lev1,series:48440fc0_01h[155401];prog:mdi,level:lev1,series:48470fc0_01h[155399];prog:mdi,level:lev1,series:48470fc0_01h[155403];prog:mdi,level:lev1,series:48470fc0_01h[155416]

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

# 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[6475] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[155400];prog:mdi,level:lev1,series:49460fc0_01h[155404];prog:mdi,level:lev1,series:49460fc0_01h[155406];prog:mdi,level:lev1,series:49460fc0_01h[155408];prog:mdi,level:lev1,series:49460fc0_01h[155409];prog:mdi,level:lev1,series:49460fc0_01h[155411];prog:mdi,level:lev1,series:49460fc0_01h[155412];prog:mdi,level:lev1,series:49460fc0_01h[155414];prog:mdi,level:lev1,series:49460fc0_01h[155417];prog:mdi,level:lev1,series:49460fc0_01h[155419];prog:mdi,level:lev1,series:49460fc0_01h[155420];prog:mdi,level:lev1,series:49460fc0_01h[155422];prog:mdi,level:lev1,series:49460fc0_01h[155424];prog:mdi,level:lev1,series:48440fc0_01h[155401];prog:mdi,level:lev1,series:48470fc0_01h[155399];prog:mdi,level:lev1,series:48470fc0_01h[155403];prog:mdi,level:lev1,series:48470fc0_01h[155416]

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

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

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

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

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

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

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

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