#!/bin/tcsh 

# define variables

set gem_area=$1
set sounding_1_date=$2
set sounding_1_hour=$3
set sounding_2_date=$4
set sounding_2_hour=$5
set gem_root=$6
set snparm=$7

# test for necessary arguments

if ($gem_area == "" || $sounding_1_date == "" || $sounding_1_hour == "" || \
$sounding_2_date == "" || $sounding_2_hour == "" || $gem_root == "" || \
$snparm == "") then
echo "type the parameters in the following order"
echo "sounding.g [station_id] [first_sounding_date] [first_sounding_time]\
[second_sounding_date] [second_sounding_time] [gempak_root] [parameter]"

# provide example

echo "please give appropriate info as in the follwoing example:"
echo "comp10.g OUN 20030404 12 20030405 00 /data/gempak thte"
echo "-the parameter must be a 4 letter gempak accpeted parameter for SNPARM!" 
exit 0;
endif
 
# source the Gemenviron file 

source /usr/local/nawips/Gemenviron

snprof << EOF
   SNFILE   = ${gem_root}/upperair/${sounding_1_date}_upa.gem
   DATTIM   = ${sounding_1_hour}
   AREA     = @${gem_area}
   SNPARM   = ${snparm}
   LINE     = 22/1
   PTYPE    = log
   VCOORD   = pres
   STNCOL   = 0
   WIND     = 0
   MARKER   = 0
   BORDER   = 8
   TITLE    = 22/+2/${gem_area} ${snparm}, ${sounding_1_hour}z ${sounding_1_date}
   DEVICE   = gif|may3.gif|1200;600
   CLEAR    = yes 
   PANEL    = L
   TEXT     = 1
  run

 exit

EOF

snprof << EOF
   SNFILE   = ${gem_root}/upperair/${sounding_2_date}_upa.gem
   DATTIM   = ${sounding_2_hour}
   AREA     = @${gem_area}
   SNPARM   = ${snparm}
   LINE     = 25/1
   PTYPE    = log
   VCOORD   = pres
   stncol   = 0
   WIND     = 0
   MARKER   = 0
   BORDER   = 8
   TITLE    = 25/+3/${gem_area} ${snparm}, ${sounding_2_hour}z ${sounding_2_date}
   DEVICE   = gif|may3.gif|1200;600
   CLEAR    = no
   PANEL    = L
   TEXT     = 1   
  run
   
 exit
   
EOF

snprof << EOF  
   SNFILE   = ${gem_root}/upperair/${sounding_1_date}_upa.gem
   DATTIM   = ${sounding_1_hour}
   AREA     = @${gem_area}
   SNPARM   = tmpc;dwpc
   LINE     = 22/1;2
   PTYPE    = skewt
   VCOORD   = pres
   STNDEX   = show
   STNCOL   = 0
   WIND     = brbk22
   WINPOS   = 1   
   MARKER   = 0   
   BORDER   = 8  
   TITLE    = 22/+2/${gem_area} Sounding, ${sounding_1_hour}z ${sounding_1_date}
   DEVICE   = gif|may3.gif|1200;600
   CLEAR    = no
   PANEL    = R
   TEXT     = 1   
  run

 exit

EOF

snprof << EOF
   SNFILE   = ${gem_root}/upperair/${sounding_2_date}_upa.gem
   DATTIM   = ${sounding_2_hour}
   AREA     = @${gem_area}
   SNPARM   = tmpc;dwpc
   LINE     = 25/1;2
   PTYPE    = skewt
   VCOORD   = pres
   STNDEX   = show
   STNCOL   = 0
   WIND     = brbk25
   WINPOS   = 1
   MARKER   = 0
   BORDER   = 8
   TITLE    = 25/+3/${gem_area} Sounding, ${sounding_2_hour}z ${sounding_2_date}
   DEVICE   = gif|may3.gif|1200;600
   CLEAR    = no
   PANEL    = R
   TEXT     = 1
  run

 exit

EOF


gpend

exit