#! /bin/sh

#
# GIF Script : gempak_gif1.sh
#
# Log :
# D.W.Plummer/NCEP   2/97   Add log header
# D.W.Plummer/NCEP  12/97   Added NGM v. ETA plot comparison if NGM precedes ETA
# J. Carr/HPC        8/98   Changed map to medium resolution
# J. Carr/HPC        1/99   Changed contur from 1 to 2 per OM request
# J. Carr/HPC        2/99   Changed skip to 0 per OM request
# B. Gordon/NCO      5/00   Ported to IBM-SP, Standardized for production,
#                           changed gdplot_nc -> gdplot2_nc
# B. Gordon/NCO      4/01   Modified to make individual GIF images.
#

set -xa

export PS4='GIF1:$MAPAREA$SECONDS + '

LATVAL=0

cd $DATA
if [ ! -d $DATA/gifruc ] ; then 
  mkdir $DATA/gifruc
fi
cd $DATA/gifruc
sh $utilscript/setup.sh

cp $FIXgempak/datatype.tbl datatype.tbl
#
# Need the next file in the current corking directory to create
# GIF images with a white background.
#
cp $FIXgempak/coltbl.xwp.wbg coltbl.xwp

export pgm=gdplot2_gif;. prep_step; startmsg

  $GEMEXE/gdplot2_gif << EOF
\$MAPFIL= mepowo.gsf
GDFILE	= /com/nawips/prod/ruc2.$DATE/ruc2_${PDY}${cyc}f${fhr}      
GDATTIM	= F${fhr}
MAP	= 8     
CLEAR	= yes

GAREA	= $GAREA
PROJ	= $PROJ
LATLON  = 0

restore ${USHgempak}/restore/cape_cins.2.gif.nts
GDPFUN  = cape  ! cins
DEVICE	= gif | ${RUN}_cap_${fhr}s.gif | 640 ; 480  
TITLE   = 1/0/ $TITLEIT !0
r
TITLE   = 1/2/~ ${MODEL} CAPE/CIN (J/KG)   CAPE:GREEN/RED  CIN:BLUE 
TEXT    = .8/2/2/c/sw
CINT    = -100;-75;-50;-25
LINE    = 4/1/1/0
TYPE    = c
CLEAR   = no
GDPFUN  = cins
r

restore ${USHgempak}/restore/cape_cins.2.gif.nts
GDPFUN  = cape  ! cins
DEVICE  = gif | ${RUN}_cap_${fhr}m.gif | 1024 ; 768
TITLE   = 1/0/ $TITLEIT !0
r
TITLE   = 1/2/~ ${MODEL} CAPE/CIN (J/KG)   CAPE:GREEN/RED  CIN:BLUE
TEXT    = .8/2/2/c/sw
CINT    = -100;-75;-50;-25
LINE    = 4/1/1/0
TYPE    = c
CLEAR   = no
GDPFUN  = cins
r

restore ${USHgempak}/restore/cape_cins.2.gif.nts
GDPFUN  = cape  ! cins
DEVICE  = gif | ${RUN}_cap_${fhr}l.gif | 1280 ; 1024
TITLE   = 1/0/ $TITLEIT !0
r
TITLE   = 1/2/~ ${MODEL} CAPE/CIN (J/KG)   CAPE:GREEN/RED  CIN:BLUE
TEXT    = .8/2/2/c/sw
CINT    = -100;-75;-50;-25
LINE    = 4/1/1/0
TYPE    = c
CLEAR   = no
GDPFUN  = cins
r           

restore ${USHgempak}/restore/hlcy_wnds.2.gif.nts
GDPFUN  = hlcy                               ! kntv(wnd)
DEVICE  = gif | ${RUN}_hlc_${fhr}s.gif | 640 ; 480 
TITLE   = 1/0/ $TITLEIT !0
r
TITLE   = 1/2/~ ${MODEL} HELICITY (M*M/S*S) 10M WINDS (KNOTS)       
TEXT    = .8/2/2/c/sw
CLEAR   = no
GDPFUN  =      
r


restore ${USHgempak}/restore/hlcy_wnds.2.gif.nts
GDPFUN  = hlcy                               ! kntv(wnd)
DEVICE  = gif | ${RUN}_hlc_${fhr}m.gif | 1024 ; 768
TITLE   = 1/0/ $TITLEIT !0
r
TITLE   = 1/2/~ ${MODEL} HELICITY (M*M/S*S) 10M WINDS (KNOTS)       
TEXT    = .8/2/2/c/sw
CLEAR   = no
GDPFUN  =      
r

restore ${USHgempak}/restore/hlcy_wnds.2.gif.nts
GDPFUN  = hlcy                               ! kntv(wnd)
DEVICE  = gif | ${RUN}_hlc_${fhr}l.gif | 1280 ; 1024
TITLE   = 1/0/ $TITLEIT !0
r
TITLE   = 1/2/~ ${MODEL} HELICITY (M*M/S*S) 10M WINDS (KNOTS)       
TEXT    = .8/2/2/c/sw
CLEAR   = no
GDPFUN  =      
r

EOF

####################################
# NOT NECESSARY WHEN RUNNING JUST GDPLOT2_GF
####################################
#$GEMEXE/gpend

#####################################################
# GEMPAK DOES NOT ALWAYS HAVE A NON ZERO RETURN CODE
# WHEN IT CAN NOT PRODUCE THE DESIRED GRID.  CHECK
# FOR THIS CASE HERE.
#####################################################
ls -l *${fhr}*.gif
export err=$?
if [ $err -ne 0 ] ; then
  ps -ef
  cp /tmp/xlogfile $DATA/
fi
export pgm="GEMPAK CHECK FILE";err_chk

mv *${fhr}*.gif $DATA

#