#/tmp/pui/mapfdM96m_jeneen_fd_M_96m_01d.6477
!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[6477] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[155448];prog:mdi,level:lev1,series:49460fc0_01h[155449];prog:mdi,level:lev1,series:49460fc0_01h[155451];prog:mdi,level:lev1,series:49460fc0_01h[155452];prog:mdi,level:lev1,series:49460fc0_01h[155454];prog:mdi,level:lev1,series:49460fc0_01h[155456];prog:mdi,level:lev1,series:49460fc0_01h[155457];prog:mdi,level:lev1,series:49460fc0_01h[155459];prog:mdi,level:lev1,series:49460fc0_01h[155460];prog:mdi,level:lev1,series:49460fc0_01h[155462];prog:mdi,level:lev1,series:49460fc0_01h[155465];prog:mdi,level:lev1,series:49460fc0_01h[155467];prog:mdi,level:lev1,series:48470fc0_01h[155456];prog:mdi,level:lev1,series:48470fc0_01h[155461];prog:mdi,level:lev1,series:48470fc0_01h[155463];prog:mdi,level:lev1,series:48470fc0_01h[155464];prog:mdi,level:lev1,series:48470fc0_01h[155467];prog:mdi,level:lev1,series:48470fc0_01h[155468];prog:mdi,level:lev1,series:48470fc0_01h[155470]

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

# 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[6477] \
	in=prog:mdi,level:lev1,series:49460fc0_01h[155448];prog:mdi,level:lev1,series:49460fc0_01h[155449];prog:mdi,level:lev1,series:49460fc0_01h[155451];prog:mdi,level:lev1,series:49460fc0_01h[155452];prog:mdi,level:lev1,series:49460fc0_01h[155454];prog:mdi,level:lev1,series:49460fc0_01h[155456];prog:mdi,level:lev1,series:49460fc0_01h[155457];prog:mdi,level:lev1,series:49460fc0_01h[155459];prog:mdi,level:lev1,series:49460fc0_01h[155460];prog:mdi,level:lev1,series:49460fc0_01h[155462];prog:mdi,level:lev1,series:49460fc0_01h[155465];prog:mdi,level:lev1,series:49460fc0_01h[155467];prog:mdi,level:lev1,series:48470fc0_01h[155456];prog:mdi,level:lev1,series:48470fc0_01h[155461];prog:mdi,level:lev1,series:48470fc0_01h[155463];prog:mdi,level:lev1,series:48470fc0_01h[155464];prog:mdi,level:lev1,series:48470fc0_01h[155467];prog:mdi,level:lev1,series:48470fc0_01h[155468];prog:mdi,level:lev1,series:48470fc0_01h[155470]

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

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

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

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

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

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

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

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