Subversion Repositories lagranto.arpege

#!/bin/csh

# Set some parameters
set crifile=${PWD}/select.parsed

# Set base directories (run+prog)
set cdfdir=${PWD}
set tradir=${PWD}

# Write usage information
if ( ${#argv} ==  0 ) then
  echo 
  /home/binderh/prog/programs/lagranto.mf/bin/lagrantohelp select short
  echo  
  exit 0
endif

# Write list of special selection criteria
if ( "$1" == "-special" ) then
    grep '%)' /home/binderh/prog/programs/lagranto.mf/select/special.f
    exit 0
endif

# Write title
echo 
echo '========================================================='
echo '       *** START OF PREPROCESSOR SELECT ***              '
echo

# Save input arguments
set inpfile=$1
set outfile=$2
set crit="$3"
shift
shift
shift

# Handle optional arguments
echo
echo '---- OPTIONAL FLAGS -------------------------------------'
echo  

set noclean = 'false'
set format  = 'trajectory'
set regionf = 'regionf'
set trigger = 'nil'

while ( $#argv > 0 )

  switch ( $argv[1] )

   case -noclean
     set noclean = 'true'
     echo "noclean       -> true (user defined)"
   breaksw

   case -trigger
     set trigger = '-trigger'
     echo "trigger      ->  true (user defined)"
   breaksw

   case -boolean
     set format = 'boolean'
     echo "format       ->  boolean (user defined)"
   breaksw

   case -index
     set format = 'index'
     echo "format       ->  index (user defined)"
   breaksw

   case -count
     set format = 'count'
     echo "format       ->  count (user defined)"
   breaksw

   case -startf
     set format = 'startf'
     echo "format       ->  startf (user defined)"
   breaksw

   case -regionf
     set regionf = $argv[2]
     echo "regionf                -> ${regionf} (user defined)"
     shift;
   breaksw

  endsw
 
  shift;

end

# Decide whether <select> is a file or an explicit criterion
set flag_select = 'criterion'
set test = `echo ${crit} | grep ':' | wc -c`
if ( "${test}" == "0" ) then 
  set flag_select     = 'file'
  set flag_selectfile = $crit
  if ( -f ${flag_selectfile} ) then 
     set crit             = `cat ${flag_selectfile}`
  else
     echo " ERROR: criterion file ${flag_selectfile} is missing... Stop"
     exit 1
  endif
endif

# Get the start, end and reference date for the tracing
set ntra      =  `/home/binderh/prog/programs/lagranto.mf/goodies/trainfo.sh ${inpfile} ntra`
set ntim      =  `/home/binderh/prog/programs/lagranto.mf/goodies/trainfo.sh ${inpfile} ntim`
set ncol      =  `/home/binderh/prog/programs/lagranto.mf/goodies/trainfo.sh ${inpfile} ncol`
set times     =  `/home/binderh/prog/programs/lagranto.mf/goodies/trainfo.sh ${inpfile} times`
set vars      =  `/home/binderh/prog/programs/lagranto.mf/goodies/trainfo.sh ${inpfile} vars`

# Split the criterion into subunits (with Perl)
/home/binderh/prog/programs/lagranto.mf/select/select.perl "${crit}" >! ${crifile} 
if ( "${status}" != "0" ) then
     echo "ERROR:  Parser <select> failed"
     exit 1
endif

# Write some status information
echo
echo '---- DIRECTORIES AND PROGRAMS ---------------------------'
echo    
echo "CDF directory         : ${cdfdir}"
echo "TRA directory         : ${tradir}"
echo "PROGRAM SELECT        : /home/binderh/prog/programs/lagranto.mf/select/select"
echo "PARSER                : /home/binderh/prog/programs/lagranto.mf/select/select.perl"
echo "CRITERION FILE        : ${crifile}"
echo
echo '---- INPUT PARAMETERS -----------------------------------'
echo    
echo "Input file            : ${inpfile}"
echo "Output file           : ${outfile}"
echo "Output format         : ${format}"
if ( "${flag_select}" == "criterion" ) then
    echo "Criterion             : ${crit}"
else
    echo "Criterion             : ${crit} (from file ${flag_selectfile})"
endif
echo
echo '---- INPUT FILE -----------------------------------------'
echo    
echo "# TRA                 : ${ntra}"
echo "# TIMES               : ${ntim}"
echo "# COLUMNS             : ${ncol}"
echo "Times                 : ${times}"
echo "Variables             : ${vars}"
echo
echo '---- PARSED CRITERION ------------------------------------'
echo 
cat ${crifile}

# Finish the preprocessor
echo 
echo '       *** END OF PREPROCESSOR SELECT ***              '
echo '========================================================='
echo

# Run the selection programme
echo \"${inpfile}\" >! select.param
echo \"${outfile}\" >> select.param
echo \"${format}\"  >> select.param
echo \"${crifile}\" >> select.param
echo ${ntra}        >> select.param
echo ${ntim}        >> select.param
echo ${ncol}        >> select.param
echo \"${regionf}\" >> select.param
echo \"${trigger}\" >> select.param

/home/binderh/prog/programs/lagranto.mf/select/select

if ( "${status}" != "0" ) then
  echo "ERROR:  Program <select> failed"
  exit 1
endif

# Make clean
if ( "${noclean}" == "false" ) then
  \rm -f select.param
  \rm -f ${crifile}
endif

exit 0