#! /bin/csh -f

set list = $argv[1]
@ cr = $argv[2]
set map = /synoptic/new_scripts/Ic_synop/map.$cr

if ( ! -e /synoptic/carrot/Ic/$cr ) then
  mkdir /synoptic/carrot/Ic/$cr
endif

echo "\!setenv mdi wd:{dbase}/{level}/{series}.{#%d#series},bn:{series}.{#%04d#series}" > $map
echo "" >> $map
echo "DSDSOUT=2500" >> $map
echo "p=mk18 d=1 a=t5 \" >> $map
echo "in=prog:mdi,level:lev1.5,series:fd_Ic_6h_01d[$list] \" >> $map
echo "out=prog:mdi,level:lev1.8,series:fd_Ic_6h_01d[$list] \" >> $map
echo "in_adj=prog:mdi,level:lev1.8_adj,series:tables[-1]" >> $map
echo "" >> $map
echo "p=fitlimbdark d=1 a=t1 \" >> $map
echo "        g=1 ld_limit=0.995 \" >> $map
echo "        in=prog:mdi,level:lev1.8,series:fd_Ic_6h_01d[$list] \" >> $map
echo "        out=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[$list]" >> $map
echo "" >> $map
echo "p=icmedian d=1  \" >> $map
echo "        medfile=/synoptic/carrot/Ic/$cr/med.$cr.fits \" >> $map
echo "        cntfile=/synoptic/carrot/Ic/$cr/cnt.$cr.fits \" >> $map
echo "        checkqual=1 qualmask=0x7fff05f3 \" >> $map
echo "        logdir=/soidata/info/mdi_log/lev1.5/fd_Ic_6h_01d \" >> $map
echo "        gaplo=500 gaphi=100 \" >> $map
echo "        in=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[$list]" >> $map
echo "" >> $map
echo "p=medcorr d=1 a=n5 \" >> $map
echo "        medfile=/synoptic/carrot/Ic/$cr/med.$cr.fits \" >> $map
echo "        in=prog:mdi,level:lev1.8,series:fd_Ic_lmbdrk_6h_01d[$list] \" >> $map
echo "        out=prog:mdi,level:lev2,series:fd_Ic_6h_01d[$list]" >> $map
echo "" >> $map
echo "p=v2helio d=1 a=t1 \" >> $map
echo "        z=1 o=1 VCORLEV=0 MAPRMAX=0.994 MAPLGMAX=90 MAPLGMIN=-90 \" >> $map
echo "        MAPBMAX=90 LGSHIFT=2 MAPMMAX=1800 SINBDIVS=540 \" >> $map
echo "        in=prog:mdi,level:lev2,series:fd_Ic_6h_01d[$list] \" >> $map
echo "        out=prog:mdi,level:lev2,series:fd_Ic_remap_6h_01d[$list]" >> $map
echo "" >> $map
echo "p=icsynop d=1 \" >> $map
echo "        CR=$cr N=3 MAPMMAX=1800 MAPLGMAX=90 MAPLGMIN=-90 \" >> $map
echo "        checkqual=1 qualmask=0x7fff05f3 \" >> $map
echo "        in=prog:mdi,level:lev2,series:fd_Ic_remap_6h_01d[$list] \" >> $map
echo "        synop=/synoptic/carrot/Ic/$cr/synop_Ic_N=3.$cr.fits \" >> $map
echo "        wt=/synoptic/carrot/Ic/$cr/wt_Ic_N=3.$cr.fits" >> $map
echo "" >> $map
echo "p=icsynop d=1 \" >> $map
echo "        CR=$cr N=5 MAPMMAX=1800 MAPLGMAX=90 MAPLGMIN=-90 \" >> $map
echo "        checkqual=1 qualmask=0x7fff05f3 \" >> $map
echo "        in=prog:mdi,level:lev2,series:fd_Ic_remap_6h_01d[$list] \" >> $map
echo "        synop=/synoptic/carrot/Ic/$cr/synop_Ic_N=5.$cr.fits \" >> $map
echo "        wt=/synoptic/carrot/Ic/$cr/wt_Ic_N=5.$cr.fits" >> $map
echo "" >> $map