#! /bin/sh

#
# GIF Script : gempak_wavgif.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='GIF4:$MAPAREA$SECONDS + '
LATVAL="1/1/1/1/20;20"

cd $DATA
if [ ! -d $DATA/wavgif ] ; then
  mkdir $DATA/wavgif
fi
cd $DATA/wavgif
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

  $GEMEXE/gdplot2_gif << EOF
\$MAPFIL= mepowo.gsf
GDFILE  = $COMIN/${RUN1}_${PDY}${cyc}                              
GDATTIM = F${fhr}
PANEL   = 0
CONTUR  = 2
MAP     = 8
CLEAR   = yes
CLRBAR  = 1|.8/2/2/sw

GAREA   = $GAREA1        
PROJ    = $PROJ        

restore ${USHgempak}/restore/nww3_wavhgt.2.gif.nts
DEVICE  = gif | ${RUN}_gw3_${fhr}s.gif  |  640 ; 480 
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3     SIGNIFICANT WAVE HGTS(M)  WINDS(KTS)!0         
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r


restore ${USHgempak}/restore/nww3_wavhgt.2.gif.nts
DEVICE  = gif | ${RUN}_gw3_${fhr}m.gif  |  1024 ; 768
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3     SIGNIFICANT WAVE HGTS(M)  WINDS(KTS)!0         
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavhgt.2.gif.nts
DEVICE  = gif | ${RUN}_gw3_${fhr}l.gif  |  1280 ; 1024
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3     SIGNIFICANT WAVE HGTS(M)  WINDS(KTS)!0          
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r


restore ${USHgempak}/restore/nww3_wavpw.2.gif.nts 
DEVICE  = gif | ${RUN}_pw3_${fhr}s.gif  |  640 ; 480 
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3      PEAK WAVE DIR AND PERIOD(SEC)!0            
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavpw.2.gif.nts      
DEVICE  = gif | ${RUN}_pw3_${fhr}m.gif  |  1024 ; 768
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3      PEAK WAVE DIR AND PERIOD(SEC)!0            
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavpw.2.gif.nts 
DEVICE  = gif | ${RUN}_pw3_${fhr}l.gif  |  1280 ; 1024
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3      PEAK WAVE DIR AND PERIOD(SEC)!0             
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r
 
restore ${USHgempak}/restore/nww3_wavsw.2.gif.nts 
DEVICE  = gif | ${RUN}_sw3_${fhr}s.gif  |  640 ; 480 
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3     WIND WAVE DIR AND PERIOD(SEC)!0             
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavsw.2.gif.nts 
DEVICE  = gif | ${RUN}_sw3_${fhr}m.gif  |  1024 ; 768
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3     WIND WAVE DIR AND PERIOD(SEC)!0             
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavsw.2.gif.nts 
DEVICE  = gif | ${RUN}_sw3_${fhr}l.gif  |  1280 ; 1024
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ NWW3     WIND WAVE DIR AND PERIOD(SEC)!0             
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r
 
GAREA   = $GAREA2
GDFILE  = $COMIN/${RUN2}_${PDY}${cyc}                             

restore ${USHgempak}/restore/nww3_wavhgt.2.gif.nts
DEVICE  = gif | ${RUN}_gwr_${fhr}s.gif  |  640 ; 480
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}  SIGNIFICANT WAVE HGTS(M)  WINDS(KTS)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavhgt.2.gif.nts
DEVICE  = gif | ${RUN}_gwr_${fhr}m.gif  |  1024 ; 768
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}  SIGNIFICANT WAVE HGTS(M)  WINDS(KTS)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavhgt.2.gif.nts
DEVICE  = gif | ${RUN}_gwr_${fhr}l.gif  |  1280 ; 1024
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}  SIGNIFICANT WAVE HGTS(M)  WINDS(KTS)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r


restore ${USHgempak}/restore/nww3_wavpw.2.gif.nts
DEVICE  = gif | ${RUN}_pwr_${fhr}s.gif  |  640 ; 480
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}   PEAK WAVE DIR AND PERIOD(SEC)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavpw.2.gif.nts
DEVICE  = gif | ${RUN}_pwr_${fhr}m.gif  |  1024 ; 768
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}   PEAK WAVE DIR AND PERIOD(SEC)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavpw.2.gif.nts
DEVICE  = gif | ${RUN}_pwr_${fhr}l.gif  |  1280 ; 1024
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}   PEAK WAVE DIR AND PERIOD(SEC)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavsw.2.gif.nts
DEVICE  = gif | ${RUN}_swr_${fhr}s.gif  |  640 ; 480
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}  WIND WAVE DIR AND PERIOD(SEC)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavsw.2.gif.nts
DEVICE  = gif | ${RUN}_swr_${fhr}m.gif  |  1024 ; 768
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}  WIND WAVE DIR AND PERIOD(SEC)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

restore ${USHgempak}/restore/nww3_wavsw.2.gif.nts
DEVICE  = gif | ${RUN}_swr_${fhr}l.gif  |  1280 ; 1024
LATLON  = 0
TITLE   = 1/0/ $TITLEIT !0
CLEAR   = yes
r
TITLE   = 1/2/~ ${RUN2}  WIND WAVE DIR AND PERIOD(SEC)!0
TEXT    =.8/2/2/c/sw
GDPFUN  =
CLEAR   = no
LATLON  = $LATVAL
r

EOF

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

#exit
#####################################################
# 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

#