#!/bin/csh

############################################################################
############################################################################

#
set type = sig
set props = (pr/sa/th/pv)
set proplist = (pr sa th pv)
set surf = ( 3460 3462 3464 3466 3468 3470 3472 3474  )
set gridinc = 1.0
set bounds = -85/0/0/65
set indir = /home/gaff/ruth/cdf

set list = ( 7000.1deg.cdf 7001.1deg.cdf 7002.1deg.cdf 7003.1deg.cdf 7004.1deg.cdf 7005.1deg.cdf 7101.1deg.cdf 7102.1deg.cdf 7103.1deg.cdf 7104.1deg.cdf 7105.1deg.cdf 7106.1deg.cdf 7107.1deg.cdf 7108.1deg.cdf 7201.1deg.cdf 7202.1deg.cdf 7203.1deg.cdf 7204.1deg.cdf 7205.1deg.cdf 7206.1deg.cdf 7207.1deg.cdf 7208.1deg.cdf 7300.1deg.cdf 7301.1deg.cdf 7302.1deg.cdf 7303.1deg.cdf 7304.1deg.cdf 7305.1deg.cdf 7306.1deg.cdf 7307.1deg.cdf 7308.1deg.cdf 7400.1deg.cdf 7401.1deg.cdf 7402.1deg.cdf 7403.1deg.cdf 7404.1deg.cdf 7405.1deg.cdf 7406.1deg.cdf 7407.1deg.cdf 7500.1deg.cdf 7501.1deg.cdf 7502.1deg.cdf 7503.1deg.cdf 7504.1deg.cdf 7505.1deg.cdf 7506.1deg.cdf 7600.1deg.cdf 7601.1deg.cdf 7602.1deg.cdf 7603.1deg.cdf 7604.1deg.cdf 7605.1deg.cdf 7606.1deg.cdf )

foreach tbin ( 0 1 2 3 4 5 6 7)
set surflistfile = surf.${tbin}.lis

gridsurf $list -D$indir -C$tbin -B$bounds -I$gridinc -Ssurf.${tbin}.lis -P$props
#
#  smoothsurf doesn't do any smoothing with R=0...
foreach i ($surf)
preblank -I${type}${i}.${tbin}.grid -O/home/gaff/ruth/blank/${type}${i}.${tbin}.blank -R2 -Ppr
smoothsurf -I${type}${i}.${tbin}.grid -O${type}${i} -P$props -M1 -R2 -B/home/gaff/ruth/blank/${type}${i}.${tbin}.blank 

foreach j ($proplist)
\mv ${type}${i}${j}.xyz ${type}${i}${j}.$tbin.xyz
end
end
end

exit 0
