#! /bin/csh -f

set list = $argv[1]
@ cr = $argv[2]
@ n = $argv[3]
set map = /synoptic/new_scripts/Ic_synop/map_med.$n.$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=t1 \" >> $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.$n.fits \" >> $map
echo "        cntfile=/synoptic/carrot/Ic/$cr/cnt.$cr.$n.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.$n.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