Subversion Repositories lagranto.arpege

#!/bin/csh

# ---------------------------------------------------------------------
# Usage, parameter settings
# ---------------------------------------------------------------------

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

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

# ---------------------------------------------------------------------
# Handle input parameters
# ---------------------------------------------------------------------

# Get input parameters
set inpfile = $1
set outfile = $2

# Set default values
set radius     = 100
set unit       = 'km'
set grid       = "360 180 -180. -90. 1. 1."
set mode       = 'keep'
set tratime    = 'all'
set param      = 0
set gridtype   = 'latlon'
set sel_file   = 'nil'
set sel_format = 'nil'
set field      = 'nil'    
set crefile    = 0

# Handle optional arguments
while ( $#argv > 0 )

  switch ( $argv[1] )

   case -radius
     set radius = $argv[2]
     set unit   = $argv[3]
     echo "Flag '-radius'     -> ${radius} ${unit} (user defined)"
     shift;
     shift;
   breaksw

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

   case -interp
     set param=$argv[2]
     
     if ( "$argv[3]" == "h"   ) set mode = "time"
     if ( "$argv[3]" == "km"  ) set mode = "space"
     if ( "$argv[3]" == "deg" ) set mode = "grid"
     
     echo "Flag '-interp'      -> ${mode} ${param} (user defined)"
     shift;
     shift;
   breaksw

   case -create
     set crefile = 1
     echo "Flag '-create'      -> true (user defined)"
   breaksw

   case -latlon
     set gridtype = 'latlon'
     if ( "$argv[2]" == "dynamic" ) then
            set grid = "0 0 0 0 0 0"
            echo "Flag '-latlon'       -> dynamic  (user defined)"
            shift;
     else
        set nlon   = $argv[2]
        set nlat   = $argv[3]
        set lonmin = $argv[4]
        set latmin = $argv[5]
        set dlon   = $argv[6]
        set dlat   = $argv[7]
        set grid   = "${nlon} ${nlat} ${lonmin} ${latmin} ${dlon} ${dlat}"
        echo "Flag '-latlon      ->  ${grid}  (user defined)"
        shift;
        shift;
        shift;
        shift;
        shift;
        shift;
     endif
   breaksw

   case -rotated
     set gridtype = 'rotated'
     set clon     =  $argv[2]
     set clat     =  $argv[3]
     set nlonlat = $argv[4]
     set dlonlat = $argv[5]
     set grid   = "${clon} ${clat} ${nlonlat} ${dlonlat}"
     echo "Flag '-rotated     ->  ${clon}, ${clat}, ${nlonlat}, ${dlonlat}  (user defined)"
     shift;
     shift;
     shift;
     shift;
    breaksw

    case -index
       set sel_file   = $argv[2]
       set sel_format = 'index'
       echo "Flag '-index'     -> ${sel_file} (user defined)"
       shift;
   breaksw

   case -boolean
       set sel_file   = $argv[2]
       set sel_format = 'boolean'
       echo "Flag '-boolean'   -> ${sel_file} (user defined)"
       shift;
   breaksw

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

  endsw
 
  shift;

end

# ---------------------------------------------------------------------
# Do some checks and preparation, then run the program
# ---------------------------------------------------------------------

# Rename field <time> to <TIME> to avoid conflict with time coordinate
# on the netCDF file
if ( "${field}" == "time" ) set field = "TIME"    

# Determine the time step 
if ( "${tratime}" == "all" ) then
    set step = 0
else
    set timelist = (`/home/binderh/prog/programs/lagranto.mf/bin/trainfo.sh $inpfile times`) 
    set step     = 0
    set found    = 0
    foreach val ( ${timelist} )
       @ step = ${step} + 1
       if ( "${tratime}" == "${val}" ) then
          set found   = ${step}
       endif
     end
     if ( ${found} == 0 ) then
       echo "Invalid time ${tratime} for gridding"
       echo "${timelist}"
       exit 1
      endif
      set step = ${found}
endif

# Check consistency of arguments
if ( ( "${mode}" == "time" ) & ( ${step} != 0 ) ) then
    echo " ERROR: Options 'interp -time' and 'step' incompatible' "
    exit 1
endif
if ( ( "${mode}" == "space" ) & ( ${step} != 0 ) ) then
    echo " ERROR: Options 'interp -space' and 'step' incompatible' "
    exit 1
endif

# Get trajectory info
set ntra   = (`/home/binderh/prog/programs/lagranto.mf/bin/trainfo.sh $inpfile ntra`)
set ntime  = (`/home/binderh/prog/programs/lagranto.mf/bin/trainfo.sh $inpfile ntim`)
set nfield = (`/home/binderh/prog/programs/lagranto.mf/bin/trainfo.sh $inpfile ncol`)

# Check whether selection file is available
if ( "${sel_file}" != "nil" ) then
   if ( ! -f ${sel_file} ) then
     echo " ERROR: selection file ${sel_file} is missing... Stop"
     exit 1
   endif
endif

# Check whether output file exists - set the <crefile> flag
if ( "${crefile}" == "0" ) then
   if ( ! -f ${outfile} ) then
       set crefile = 1
       echo
       echo "${outfile} will be created... "
   else
       echo
       echo "${outfile} will be modified ..."
   endif
else
   echo
   echo "${outfile} will be created... "
endif

# Chewck whether the variable exists - set the <crevar> flag
if ( "${crefile}" == "0" ) then    
    set varlist = ` /home/binderh/prog/programs/lagranto.mf/goodies/getvars ${outfile}` 
    set crevar  = 1
    foreach var ( ${varlist} )
       if ( "${var}" == "${field}" ) set crevar = 0
    end
else
   set crevar = 1
endif

# Prepare parameter file and run program
\rm -f density.param
touch density.param
echo ${inpfile}                 >> density.param
echo ${outfile}                 >> density.param
echo \"${field}\"               >> density.param
echo ${ntime} ${nfield} ${ntra} >> density.param
echo ${gridtype}                >> density.param
echo ${grid}                    >> density.param
echo ${radius} ${unit}          >> density.param
echo ${mode}                    >> density.param
echo ${param}                   >> density.param
echo ${step}                    >> density.param
echo \"${sel_file}\"            >> density.param
echo \"${sel_format}\"          >> density.param
echo ${crefile}                 >> density.param
echo ${crevar}                  >> density.param

# Write status info
echo 
echo '       *** END OF PREPROCESSOR DENSITY ***              '
echo '========================================================='
echo

# Run density
/home/binderh/prog/programs/lagranto.mf/density/density

# Make clean
\rm -f density.param

exit 0