#!/bin/ksh
######################################################################
####  UNIX Script Documentation Block
#                      .                                             .
# Script name:         exdgex_icwf.sh
# Script description:  Execute DGEX ICWF job 
#
# Author:        Eric Rogers       Org: NP22         Date: 2004-03-30
#
# Script history log:
# 2004-03-30  Eric Rogers
# 2004-04-06  Eric Rogers - new ICWF executable which only outputs max/min
#                           temps
#
set -x

export outfile=$1
export PS4='PRDGEN${fhr}_T$SECONDS + '

rm icwf_control_${reg}

echo $COMOUT/dgex_${REGION}.${cycle}.${outfile}81.tm00 > icwf_control_${outfile}

fhr_list="90 96 102 108 114 120 126 132 138 144 150 156 162 168 174 180 186 192"
fh=84

while [ $fh -le 192 ] ; do

  echo $COMOUT/dgex_${REGION}.${cycle}.${outfile}${fh}.tm00 >> icwf_control_${outfile}
  let "fh=fh+3"

done

rm fort.*
export pgm=dgex_icwf;. prep_step
$EXECdgex/dgex_icwf < icwf_control_${outfile} > icwf.out_${outfile}
export err=$?;err_chk

############################################################
##   Convert GRIB1 DGEX ICWF files to GRIB2 format
############################################################
for fhr in $fhr_list
do
  cp $COMOUT/${RUN}_${REGION}.${cycle}.awp${gridnum}$fhr.tm00_icwf grb1
  $utilexec/cnvgrib -g12 -p40000 grb1 grb2
  cp grb2 $COMOUT/${RUN}_${REGION}.${cycle}.awpgrb2${gridnum}$fhr.tm00_icwf
done
############################################################
##   Execute TOCGRIB2 to send DGEX ICWF fields to TOC
############################################################

export GRID=${gridnum}_icwf
sh $utilscript/mkawpgrb.sh "$fhr_list"

echo EXITING $0
exit $err