#___________________________________________________________________________
# NAME     : afoswndplv
# Author   : Luke Lin
# Purpose  : This script generates AFOS charts by afwndplv
# History  : 00-01-28 Luke Lin 
#
# Location : This script is found on IBM SP.
#          : /nwprod/util/ush/afoswndplv.sh
#
# Arguments: 
#            1st argument - hour_list - Fcst hours
#            2nd afosfile - output afos filename
#            3rd cards    - input data cards file in PARMgraph
#___________________________________________________________________________
#

set +x 

hour_list=$1
afosfile=$2
cards=$3

echo afosfile=$afosfile
echo cards=$cards

num=$#

if test $num -eq 3
then
   echo " Appropriate number of arguments were passed"
   set -x
   export EXECutil=${EXECutil:-/nwprod/util/exec}
   export PARMutil=${PARMutil:-/nwprod/util/parm}
   export EXECgraph=${EXECgraph:-/nwprod/util/exec}
   export PARMgraph=${PARMgraph:-/nwprod/util/parm}
   export FIXgraph=${FIXgraph:-/nwprod/util/fix}
   export envir=${envir:-prod}
   export jlogfile=${jlogfile:-jlogfile}
   export NET=${NET:-gfs}
   export RUN=${RUN:-gfs}
   export cyc=${cyc:-00}
   export cycle=${cycle:-t${cyc}z}
   export SENDCOM=${SENDCOM:-NO}
   export SENDDBN=${SENDDBN:-NO}
   if [ -z "$DATA" ]
   then
      export DATA=`pwd`
      cd $DATA
      /nwprod/util/ush/setup.sh
      /nwprod/util/ush/setpdy.sh
      . PDY
   fi
   export COMIN=${COMIN:-/com/$NET/$envir/$NET.$PDY}
   export pcom=${pcom:-/pcom/$NET}
   export pgmout=${pgmout:-OUTPUT.$$}
   export do_label=${do_label:-NO}
else
   echo ""
   echo "Usage: afoswndplv.sh "hour_list" afosfile cards"
   echo ""
   exit 16
fi

export pgm=afwndplv
. prep_step

##############################
# Copy Input Field to $DATA
##############################
pgbunit=12
pgbiunit=32

for i in $hour_list
do
   echo $i
   case $i in
         [0-9][0-9]|[0-9][0-9][0-9])case $NET in
               gfs|mrf)grbext=pgrbf${i}
                       grbiext=pgrbif${i}
                       ;;
               nam) if [ $CGRID = "YES" ] ; then
                      grbext=grb_fm${i}.tm00
                      grbiext=grb_fmi${i}
                    else
                      grbext=grb5fm${i}.tm00
                      grbiext=grb5fmi${i}
                    fi
                   ;;
               ngm)grbext=pgrb.f${i}
                   grbiext=pgrbif${i}
                   ;;
                 *)grbext=pgrbf${i}
                   grbiext=pgrbif${i}
                   ;;
            esac
            ;;
        anl)grbext=pgrbanl
            grbiext=pgrbianl
            ;;
   esac

   cp $COMIN/${RUN}.${cycle}.$grbext $grbext

   if test ! -f $COMIN/${RUN}.${cycle}.$grbiext
   then
      $EXECutil/grbindex $grbext $grbiext
   else
      cp $COMIN/${RUN}.${cycle}.$grbiext $grbiext
   fi

   eval export XLFUNIT_${pgbunit}="$grbext"
   eval export XLFUNIT_${pgbiunit}="$grbiext"

   pgbunit=`expr $pgbunit + 1`
   pgbiunit=`expr $pgbiunit + 1`
done

export XLFUNIT_15="$PARMgraph/$cards"
export XLFUNIT_20="$FIXgraph/graph_pillist1"
export XLFUNIT_71="$afosfile"
export XLFUNIT_75="afwndlog"

startmsg

$EXECgraph/graph_afwndplv  >> $pgmout 2> errfile
err=$?;export err;err_chk

if test "$SENDCOM" = 'YES'
then
  cp $afosfile $pcom/$afosfile
fi

if test "$SENDDBN" = 'YES'
then
  $DBNROOT/bin/dbn_alert AFOS $NET $job $pcom/$afosfile
fi

msg="afoswndplv ${hour} hour completed normally"
postmsg "$jlogfile" "$msg"

exit