#! /bin/csh -f

umask 002

source ~jeneen/campaigns/scripts/env_list_bastet
set EOFSYNOPDIR = "/synoptic/eof"
set SYNOPDIR = "/synoptic/mdi"
#setenv IDL_DIR /usr/local/rsi/idl64
setenv IDL_DIR /usr/local/rsi/idl_6.1
setenv PDS_SET_HOST d00

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

set find_day = `/home/jeneen/STAGING/bin/_linux4/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.$$

@ lines = `grep 96m /tmp/fdM96M_nightly.$$ | wc -l` 

if ( $lines > 0 ) then
  rm -rf /surge4/turmon/data/*
  cat /tmp/fdM96M_nightly.$$
  set obs = fd_M_96m_01d
  set dir = /mag
  awk -F\[ '{print $3}' /tmp/fdM96M_nightly.$$ | awk -F\] '{print $1}' > /tmp/fdM96M_nightly.days.$$
  foreach day ( `cat /tmp/fdM96M_nightly.days.$$` ) 
    set name = $obs.00$day
    rsh sonar -l jeneen -n "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 $SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day
    rm -rf $EOFSYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day
    rm -f /synoptic/mag_images/fd_M.$day.gif
#    rsh pail -l jeneen -n "rm -rf /ftp/pub/welsch/fd_M_96m_01d.00$day/"
    /synoptic/new_scripts/domdisynop.pl.bastet $day $day
#    cp -rH /mag_old/fd_M_96m_obsolete_01d.00$day /surge4/turmon/data/
source /mdisw/setup/setup_mdisoi
/ssw/gen/setup/ssw_idl <<BAR
.run /surge40/synoptic/new_scripts/mag_plot.pro
.run /surge40/synoptic/new_scripts/mag_summary_ps.pro
mag_plot, $day
mag_summary_ps, $day
BAR
setenv DISPLAY bastet:0.0
cd /synoptic/mdi/plots
/ssw/gen/setup/ssw_idl <<BAR
.run /home/jeneen/idl/plot_mdi_synop.pro
plot_mdi_synop, day=$day,/gif,/next
plot_mdi_synop, day=$day,/ps,/next
BAR
    setenv DISPLAY bastet:0.0
    echo "Creating quality files"
    rsh sonar "/synoptic/new_scripts/qual.sh $day $day"

### Create Magnetogram GIF images ###

set date = `/home/jeneen/STAGING/bin/_linux4/time_index -t day=$day | awk -F\_ '{print $1}'`
@ year = `echo $date | awk -F\. '{print $1}'`
set mo = `echo $date | awk -F\. '{print $2}'`
#if ( $mo == "01" ) then
#  set month = January
#else if ( $mo == "02" ) then
#  set month = February 
#else if ( $mo == "03" ) then
#  set month = March
#else if ( $mo == "04" ) then
#  set month = April
#else if ( $mo == "05" ) then
#  set month = May
#else if ( $mo == "06" ) then
#  set month = June
#else if ( $mo == "07" ) then
#  set month = July
#else if ( $mo == "08" ) then
#  set month = August
#else if ( $mo == "09" ) then
#  set month = September
#else if ( $mo == "10" ) then
#  set month = October
#else if ( $mo == "11" ) then
#  set month = November
#else if ( $mo == "12" ) then
#  set month = December
#endif 

#rm /synoptic/gifs/magnetograms/$year/$month/QUICK_LOOK_$date*
rm /synoptic/gifs/magnetograms/$year/$mo/QUICK_LOOK_$date*
rm /synoptic/nightly_images/mag_gifs/MDI_mag_$date*

#set dir18 = `/home/jeneen/STAGING/bin/_linux4/peq -w prog:mdi,level:lev1.8,series:fd_M_96m_01d\[$day] | grep PDS | awk '{print $3}'`
set dir18 = /mag/fd_M_96m_01d.00$day
#scp -r $dir18 pail:/ftp/pub/magnetograms/fd_M_96m_01d_$year
echo "cp -r $dir18 /ftp/pub/magnetograms/fd_M_96m_01d_$year" >> /tmp/jeneen.ftp_cp_list

foreach image ( `ls -1 $dir18/*fits | grep -v overview` )
/ssw/gen/setup/ssw_idl <<BAR
.run /home/jeneen/idl/mag_gif_rot.pro
mag_gif_rot, '$image'
BAR
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
end
set echo
rsh sonar -l jeneen -n "source /tmp/jeneen.ftp_cp_list"
#rm /tmp/jeneen.ftp_cp_list
unset echo

compress -f $SYNOPDIR/plots/synop*.ps
@ start = `head -2 /tmp/fdM96M_nightly.days.$$ | tail -1`
@ end = `tail -1 /tmp/fdM96M_nightly.days.$$`
#cd /surge4/turmon/data
#foreach i ( * )
#  compress $i/*
#end
#tar cvf MDI.fd_M_96m_obsolete_01d.$start'-'$end.tar fd*
#rcp /surge4/turmon/data/MDI.fd_M_96m_obsolete_01d.$start'-'$end.tar pail:/ftp/data/turmon@jpl.nasa.gov