#! /user/bin/csh -f
echo " The following steps must be done before running this script. "
echo " Copy this file to your GRASS cell directory. "
echo " Copy the GLOBE source files to your GRASS cell directory. "
echo " Start GRASS before running this script. "
echo " After starting GRASS, run r.mask to remove the current mask (if any). "
Are you ready to run this script?

dd if=a10s of=a10s.tmp conv=swab
g.region rast=a10s.tmp
r.mapcalc 'a10s=if(a10s.tmp-32768,a10s.tmp-65536,a10s.tmp,a10s.tmp)'
g.remove a10s.tmp
r.compress a10s

dd if=b10s of=b10s.tmp conv=swab
g.region rast=b10s.tmp
r.mapcalc 'b10s=if(b10s.tmp-32768,b10s.tmp-65536,b10s.tmp,b10s.tmp)'
g.remove b10s.tmp
r.compress b10s

dd if=c10s of=c10s.tmp conv=swab
g.region rast=c10s.tmp
r.mapcalc 'c10s=if(c10s.tmp-32768,c10s.tmp-65536,c10s.tmp,c10s.tmp)'
g.remove c10s.tmp
r.compress c10s

dd if=d10s of=d10s.tmp conv=swab
g.region rast=d10s.tmp
r.mapcalc 'd10s=if(d10s.tmp-32768,d10s.tmp-65536,d10s.tmp,d10s.tmp)'
g.remove d10s.tmp
r.compress d10s

dd if=e10s of=e10s.tmp conv=swab
g.region rast=e10s.tmp
r.mapcalc 'e10s=if(e10s.tmp-32768,e10s.tmp-65536,e10s.tmp,e10s.tmp)'
g.remove e10s.tmp
r.compress e10s

dd if=f10s of=f10s.tmp conv=swab
g.region rast=f10s.tmp
r.mapcalc 'f10s=if(f10s.tmp-32768,f10s.tmp-65536,f10s.tmp,f10s.tmp)'
g.remove f10s.tmp
r.compress f10s

dd if=g10s of=g10s.tmp conv=swab
g.region rast=g10s.tmp
r.mapcalc 'g10s=if(g10s.tmp-32768,g10s.tmp-65536,g10s.tmp,g10s.tmp)'
g.remove g10s.tmp
r.compress g10s

dd if=h10s of=h10s.tmp conv=swab
g.region rast=h10s.tmp
r.mapcalc 'h10s=if(h10s.tmp-32768,h10s.tmp-65536,h10s.tmp,h10s.tmp)'
g.remove h10s.tmp
r.compress h10s

dd if=i10s of=i10s.tmp conv=swab
g.region rast=i10s.tmp
r.mapcalc 'i10s=if(i10s.tmp-32768,i10s.tmp-65536,i10s.tmp,i10s.tmp)'
g.remove i10s.tmp
r.compress i10s

dd if=j10s of=j10s.tmp conv=swab
g.region rast=j10s.tmp
r.mapcalc 'j10s=if(j10s.tmp-32768,j10s.tmp-65536,j10s.tmp,j10s.tmp)'
g.remove j10s.tmp
r.compress j10s

dd if=k10s of=k10s.tmp conv=swab
g.region rast=k10s.tmp
r.mapcalc 'k10s=if(k10s.tmp-32768,k10s.tmp-65536,k10s.tmp,k10s.tmp)'
g.remove k10s.tmp
r.compress k10s

dd if=l10s of=l10s.tmp conv=swab
g.region rast=l10s.tmp
r.mapcalc 'l10s=if(l10s.tmp-32768,l10s.tmp-65536,l10s.tmp,l10s.tmp)'
g.remove l10s.tmp
r.compress l10s

dd if=m10s of=m10s.tmp conv=swab
g.region rast=m10s.tmp
r.mapcalc 'm10s=if(m10s.tmp-32768,m10s.tmp-65536,m10s.tmp,m10s.tmp)'
g.remove m10s.tmp
r.compress m10s

dd if=n10s of=n10s.tmp conv=swab
g.region rast=n10s.tmp
r.mapcalc 'n10s=if(n10s.tmp-32768,n10s.tmp-65536,n10s.tmp,n10s.tmp)'
g.remove n10s.tmp
r.compress n10s

dd if=o10s of=o10s.tmp conv=swab
g.region rast=o10s.tmp
r.mapcalc 'o10s=if(o10s.tmp-32768,o10s.tmp-65536,o10s.tmp,o10s.tmp)'
g.remove o10s.tmp
r.compress o10s

dd if=p10s of=p10s.tmp conv=swab
g.region rast=p10s.tmp
r.mapcalc 'p10s=if(p10s.tmp-32768,p10s.tmp-65536,p10s.tmp,p10s.tmp)'
g.remove p10s.tmp
r.compress p10s