#!/bin/ksh -e
#ryj: for qboi runs, scale wa with (7000./plev)**2 

if [ $# -ne 3 ] ; then
  echo "Error in $0: invalid number of arguments $#"
  exit 1
fi

pfx=$1
inp=$2
out=$3

mtype=`uname -s|tr '[A-Z]' '[a-z]'`
case $mtype in
    aix) ln -sf ~ccc101/gcm2nc/cmip5_scripts/bin_aix/wascale   ;;
  linux) ln -sf ~ccc101/gcm2nc/cmip5_scripts/bin_linux/wascale ;;
      *) echo "Unkown kernel type $mtype"; exit 1                   ;;
esac

release inp ${pfx}_${out}
access  inp ${pfx}_${inp}

wascale inp ${pfx}_${out} 
release inp