set -xa

#   Keller/Kitzmiller   Nov 2001 final revision

#   Extracts lightning strike data contemporary with
#   most recent set of Radar Coded Messages and grids
#   lightning data to radar mosaic grid for use in
#   mosaic QC and 0-3 hour QPF and lightning forecasts

#   Input file: /dcom/us007003/{yyyymmdd}/wtxtbul/lsd{HH}
#   Output file: ltgrcm.dat

echo "Execute gailtg_asp.sh"
#   Fetch lightning data files from wtxtbul directory
#   and create input time range file gailtg2rcm.inp
######################

#   WRITE 'gailtg2rcm.inp' file.
#   DECIDE on interval 10-25 or 40-55 minutes past hour,
#   based on current time

echo $daystring $jhr$mi1 $daystring $jhr$mi2 > gailtg2rcm.inp

#   GET LTG FILES, STORE IN 'LUS01.SRVR'

fname=`ls -t $DCOM/$daystring/wtxtbul/lsd* | head -n1`
if [ -n "$fname" ]
then  
   echo "Input lightning from file: " $fname
   lusfile="LUS01.SRVR"
   echo "Output lightning filename: " $lusfile

   cp $fname $lusfile

#   Map LTG data to RCM mosaic grid

   export pgm=radar_gailtg2rcm
   . prep_step

   $EXECradar/radar_gailtg2rcm << LTG_END >> $pgmout 2>>errout
auto
q
LTG_END

   #  err=$? ; export err; err_chk
   err=$?
   echo "radar_gailtg2rcm completed with return code $err."
else
   echo "Lightening data for ${jhr}z not available."
fi