#!/bin/csh -f

rm /home/mjames/http/wx/ounthta.jpg

#
# Define environmental variables
#

setenv DISPLAY :1.0
source /opt2/nawips/Gemenviron

set yy=`date -u +%y`
set mm=`date -u +%m`
set dd=`date -u +%d`
set hh=`date -u +%H`
set date='20${yy}${mm}${dd}'
set file=`ls -t /$UPA/ | head -1`

if ( $hh > 12 ) then
  set fh = 12
endif
if ( $hh < 12 ) then
  set fh = 00
endif

#
# Define latest uppperair file
#
set latest='/data/gempak/upperair/'${file}

echo Latest File = $latest


#
# Set map background to white
#
gpcolor <<EOF0
   color    = 101=white
   DEVICE   = gf|/home/mjames/http/wx/ounthta.jpg
   run

   exit
EOF0

#
# Plot vertical theta/theta-e profile
#
snprof << EOF
 SNFILE   = $latest
 DATTIM   = $fh
 AREA     = @oun
 SNPARM   = thta;thte
 LINE     = 4;15/1/1
 PTYPE    = lin
 VCOORD   = PRES
 STNDEX   = 
 STNCOL   = 32
 WIND     = BM26
 WINPOS   = 1
 MARKER   = 0
 BORDER   = 32/1
 TITLE    = 15/0/Vertical THTA/E
 DEVICE   = gf|/home/mjames/http/wx/ounthta.jpg|800;600|||NP
 YAXIS    = 1000/200/100/;1;
 XAXIS    = 280/360/5/;1;
 FILTER   = no
 CLEAR    = yes
 PANEL    = 0
 TEXT     = .8/2//hw
 THTALN   = 32
 THTELN   = 32
 MIXRLN   = 0
run

e
EOF

#
# Run gpend to produce jpg file
#
gpend

rm /home/mjames/scripts/*.nts 

exit