#! /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 data 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=a10g of=a10g.tmp conv=swab
g.region rast=a10g.tmp
r.mapcalc 'a10g=if(a10g.tmp-32768,a10g.tmp-65536,a10g.tmp,a10g.tmp)'
g.remove a10g.tmp
r.compress a10g

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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