!setenv mdi wd:{dbase}/{level}/{series}.{#%d#series},bn:{series}.{#%04d#series}
# Two median filters were used due to a large proton storm on 2003.10.29.

DSDSOUT=2500
p=mk18 d=1 a=t5 \
in=prog:mdi,level:lev1.5,series:fd_Ic_6h_01d[3922-3952,3954-3984] \
out=prog:mdi,level:lev1.8,series:fd_Ic_6h_01d[3922-3952,3954-3984] \
in_adj=prog:mdi,level:lev1.8_adj,series:tables[-1]

p=fitlimbdark d=1 a=t1 \
        g=1 ld_limit=0.995 \
        in=prog:mdi,level:lev1.8,series:fd_Ic_6h_01d[3922-3952,3954-3984] \
        out=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[3922-3952,3954-3984]

p=icmedian d=1  \
        medfile=/synoptic/carrot/Ic/2009/med.2009.1.fits \
        cntfile=/synoptic/carrot/Ic/2009/cnt.2009.1.fits \
        checkqual=1 qualmask=0x7fff05f3 \
        logdir=/soidata/info/mdi_log/lev1.5/fd_Ic_6h_01d \
        gaplo=500 gaphi=100 \
        in=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[3922-3952]

p=medcorr d=1 a=n5 \
        medfile=/synoptic/carrot/Ic/2009/med.2009.1.fits \
        in=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[3945-3952] \
        out=prog:mdi,level:lev2,series:fd_Ic_6h_01d[3945-3952]

p=icmedian d=1  \
        medfile=/synoptic/carrot/Ic/2009/med.2009.2.fits \
        cntfile=/synoptic/carrot/Ic/2009/cnt.2009.2.fits \
        checkqual=1 qualmask=0x7fff05f3 \
        logdir=/soidata/info/mdi_log/lev1.5/fd_Ic_6h_01d \
        gaplo=500 gaphi=100 \
        in=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[3954-3984]

p=medcorr d=1 a=n5 \
        medfile=/synoptic/carrot/Ic/2009/med.2009.2.fits \
        in=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[3954-3976] \
        out=prog:mdi,level:lev2,series:fd_Ic_6h_01d[3954-3976]

p=v2helio d=1 a=t1 \
        z=1 o=1 VCORLEV=0 MAPRMAX=0.994 MAPLGMAX=90 MAPLGMIN=-90 \
        MAPBMAX=90 LGSHIFT=2 MAPMMAX=1800 SINBDIVS=540 \
        in=prog:mdi,level:lev2,series:fd_Ic_6h_01d[3945-3952,3954-3976] \
        out=prog:mdi,level:lev2,series:fd_Ic_remap_6h_01d[3945-3952,3954-3976]

p=icsynop d=1 \
        CR=2009 N=3 MAPMMAX=1800 MAPLGMAX=90 MAPLGMIN=-90 \
        checkqual=1 qualmask=0x7fff05f3 \
        in=prog:mdi,level:lev2,series:fd_Ic_remap_6h_01d[3945-3952,3954-3976] \
        synop=/synoptic/carrot/Ic/2009/synop_Ic_N=3.2009.fits \
        wt=/synoptic/carrot/Ic/2009/wt_Ic_N=3.2009.fits

p=icsynop d=1 \
        CR=2009 N=5 MAPMMAX=1800 MAPLGMAX=90 MAPLGMIN=-90 \
        checkqual=1 qualmask=0x7fff05f3 \
        in=prog:mdi,level:lev2,series:fd_Ic_remap_6h_01d[3945-3952,3954-3976] \
        synop=/synoptic/carrot/Ic/2009/synop_Ic_N=5.2009.fits \
        wt=/synoptic/carrot/Ic/2009/wt_Ic_N=5.2009.fits