#!/bin/csh -f
# +-======-+ 
#  Copyright (c) 2003-2007 United States Government as represented by 
#  the Admistrator of the National Aeronautics and Space Administration.  
#  All Rights Reserved.
#  
#  THIS OPEN  SOURCE  AGREEMENT  ("AGREEMENT") DEFINES  THE  RIGHTS  OF USE,
#  REPRODUCTION,  DISTRIBUTION,  MODIFICATION AND REDISTRIBUTION OF CERTAIN 
#  COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT AS 
#  REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW ("GOVERNMENT AGENCY").  
#  THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT AGENCY, IS AN 
#  INTENDED  THIRD-PARTY  BENEFICIARY  OF  ALL  SUBSEQUENT DISTRIBUTIONS OR 
#  REDISTRIBUTIONS  OF THE  SUBJECT  SOFTWARE.  ANYONE WHO USES, REPRODUCES, 
#  DISTRIBUTES, MODIFIES  OR REDISTRIBUTES THE SUBJECT SOFTWARE, AS DEFINED 
#  HEREIN, OR ANY PART THEREOF,  IS,  BY THAT ACTION, ACCEPTING IN FULL THE 
#  RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN THIS AGREEMENT.
#  
#  Government Agency: National Aeronautics and Space Administration
#  Government Agency Original Software Designation: GSC-15354-1
#  Government Agency Original Software Title:  GEOS-5 GCM Modeling Software
#  User Registration Requested.  Please Visit http://opensource.gsfc.nasa.gov
#  Government Agency Point of Contact for Original Software:  
#  			Dale Hithon, SRA Assistant, (301) 286-2691
#  
# +-======-+ 

#######################################################################
#                     Batch Parameters for Plot Job
#######################################################################

#PBS -l walltime=@PLOT_T
#PBS -l @PLOT_P
#PBS -N @PLOT_N
#PBS -q @PLOT_Q
#PBS -W group_list=@GROUP
#PBS -j oe
#PBS -o OUTPUT

#######################################################################
#                  System Environment Variables
#######################################################################

umask 022

limit stacksize unlimited

@SETENVS

#######################################################################
#           Architecture Specific Environment Variables
#######################################################################

setenv ARCH `uname`

setenv SITE             @SITE
setenv GEOSBIN          @GEOSBIN
setenv GEOSUTIL         @GEOSSRC/GMAO_Shared/GEOS_Util

source $GEOSBIN/g5_modules
setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:${BASEDIR}/${ARCH}/lib

#######################################################################
#             Experiment Specific Environment Variables
#######################################################################

setenv    EXPID   @EXPID
setenv    EXPDIR  @EXPDIR
setenv    HOMDIR  @HOMDIR

cd       $EXPDIR/plot

#######################################################################
#                   Create Extract Utility
#######################################################################

if(! -e extract ) then

touch                                extract
echo '#\!/bin/ksh'                >> extract
echo 'typeset -i n=0'             >> extract
echo 'while read line'            >> extract
echo 'do'                         >> extract
echo 'typeset -i n=$(( $n + 1 ))' >> extract
echo 'if(( $n == 1 )) then'       >> extract
echo '  echo $line >> command'    >> extract
echo 'else'                       >> extract
echo '  echo $line >> list'       >> extract
echo 'fi'                         >> extract
echo 'done < $1'                  >> extract
echo 'exit'                       >> extract
chmod +x                             extract

endif

set JOBID = @N
set NMAX  = 2

#######################################################################
#                         Quickplot Commands           
#######################################################################

while( -e @LIST )
@  n = 1
   while( $n <= $NMAX & -e @LIST )
   set   TMPLISTS = `/bin/ls -1 TMPLIST*`
   if( $#TMPLISTS > 0 ) then
         sleep ${JOBID}s
         @ n = $n - 1
   else
         /bin/cp @LIST TMPLIST${JOBID}
         sleep ${JOBID}s
         set   TMPLISTS = `/bin/ls -1 TMPLIST*`
         if( $#TMPLISTS > 1 ) then
              /bin/rm -f TMPLIST${JOBID}
               sleep ${JOBID}s
               @ n = $n - 1
         else
               set PLOT_COMMAND = `./extract  TMPLIST${JOBID} ; cat command ; /bin/rm -r command`
               if(! -e list ) then
                  /bin/rm -f @LIST
               else
                  /bin/mv -f list @LIST
               endif
               $GEOSUTIL/plots/quickplot $PLOT_COMMAND &
               /bin/rm -f TMPLIST${JOBID}
         endif
   endif
   @  n = $n + 1
   end
   wait
end