Subversion Repositories lagranto.icon

#!/bin/csh

# -----------------------------------------------------------------------------
# Set some parameters
# -----------------------------------------------------------------------------

# Set Lagranto 
set LAGRANTO = ${LAGRANTOBASE}.${MODEL}/

# Write usage information
if ( ${#argv} == 0 ) then
  echo 
  ${LAGRANTO}/bin/lagrantohelp mergetra short 
  echo  
  exit 0
endif

# Set input file
set inpfile1 = $1
set inpfile2 = $2
set outfile  = $3

# Set Fortran program
set prog=${LAGRANTO}/goodies/mergetra

# -----------------------------------------------------------------------------
# Run program 
# -----------------------------------------------------------------------------

set dims1=`${LAGRANTO}/goodies/trainfo.sh ${inpfile1} dim` 
set dims2=`${LAGRANTO}/goodies/trainfo.sh ${inpfile2} dim` 

\rm -f mergetra.param
echo \"${inpfile1}\" >! mergetra.param 
echo \"${inpfile2}\" >> mergetra.param
echo \"${outfile}\"  >> mergetra.param
echo ${dims1}        >> mergetra.param
echo ${dims2}        >> mergetra.param

${prog}

exit 0