#! /usr/bin/csh -f

#setenv IDL_DIR /usr/local/rsi/idl_5.3
source ~jeneen/campaigns/scripts/env_list
set EOFSYNOPDIR = "/synoptic/eof"
set SYNOPDIR = "/synoptic/mdi"

set today = `/usr/bin/date +%Y.%m.%d`
@ today_day = `/home/jeneen/STAGING/bin/_sgi4/time_index -d in=$today`
@ day = $today_day - 1 

set find_day = `/home/jeneen/STAGING/bin/_sgi4/time_index -t day=$day | awk -F_ '{print $1}'`
echo "Finding data created on $find_day"

/usr/local/bin/fd96mqry $find_day >> /tmp/fdM96M_nightly.$$

/usr/bin/grep prog /tmp/fdM96M_nightly.$$ | awk '{print $1}' > /tmp/fdM96M_nightly.peq.$$

@ lines = `wc -l /tmp/fdM96M_nightly.peq.$$ | awk '{print $1}'`

if ( $lines > 0 ) then
  reduce_peq /tmp/fdM96M_nightly.peq.$$
  foreach peq_file ( /tmp/fdM96M_nightly.peq.$$_* )
    /home/jeneen/STAGING/bin/_sgi4/peq -A -w -f $peq_file | grep PDS | awk '{print $3}' >> /tmp/fdM96M_nightly2.$$
  end
  set file = /tmp/fdM96M_nightly2.$$
  set obs = fd_M_96m_01d
  set dir = /mag
  foreach i ( `cat $file` )
    @ day = `/usr/bin/ls -1 $i | /usr/ucb/head -3 | /usr/bin/tail -1 | /usr/bin/awk -F\. '{print $2}'`
    set name = $obs.00$day
    echo $day
    rm -rf $EOFSYNOPDIR/fd_M_96m_01d/fd_M_96m_01d.00$day
    rm -f $EOFSYNOPDIR/plots/synop.00$day.ps*
    rm -f $SYNOPDIR/plots/synop.00$day.ps*
    rm -f $SYNOPDIR/plots/synop.00$day.gif*
    rm -f $EOFSYNOPDIR/plots/synop.00$day.gif*
    rm -rf $EOFSYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day
    cd /home/jeneen/plotting
#    /home/jeneen/STAGING/script/domdisynop.pl $day $day
    /synoptic/new_scripts/domdisynop.pl $day $day
source /mdisw/setup/setup_mdisoi
/ssw/gen/setup/ssw_idl <<BAR
.run /synoptic/new_scripts/mag_plot.pro
.run /synoptic/new_scripts/mag_summary_ps.pro
mag_plot, $day
mag_summary_ps, $day
BAR
    setenv DISPLAY bastet:0.0
/ssw/gen/setup/ssw_idl <<BAR
.run /synoptic/new_scripts/plot_mdi_synop.pro
plot_mdi_synop, day=$day,/gif,/next
plot_mdi_synop, day=$day,/ps,/next
BAR
compress $SYNOPDIR/plots/synop.00*.ps
    setenv DISPLAY bastet:0.0
    echo "Creating quality files"
    ~jeneen/plotting/qual.sh $day $day
#    echo "Printing plots"
#    /usr/ucb/lpr -Plwq /scr43/mag_images/fd_M.$day.ps
  end
else
  echo ""
  echo "No new mags found"
  echo ""
  exit
endif

foreach eof_dir ( `ls /synoptic/eof/fd_Mag_remap_small_01d` )
  echo "EOF:  $eof_dir"
  ln -s /synoptic/eof/fd_Mag_remap_small_01d/$eof_dir /synoptic/mdi/fd_Mag_remap_small_01d/
end