#
# prepare the becker strain map
#
#dos2unix ../02_models/becker/exx.dat
#dos2unix ../02_models/becker/eyy.dat
#dos2unix ../02_models/becker/exy.dat
awk '{print $3}' <  ../02_models/becker/eyy.dat > eyy 
awk '{print $3}' <  ../02_models/becker/exy.dat > exy 
paste ../02_models/becker/exx.dat eyy exy > all.dat
awk '{print $1-360.,$2,sqrt($3*$3+$4*$4+2*$5*$5)*31.557 }' < all.dat > secinv.gmt
xyz2grd secinv.gmt -Gjunk.grd -I0.1 `grdinfo grad.grd -I0.1/0.1` -r -diNaN
grdsample junk.grd  -nl+t.1 -I.01 `grdinfo grad.grd -I0.1/0.1` -r -Gmask.grd
surface secinv.gmt -I.01 `grdinfo grad.grd -I0.1/0.1` -T.5 -Ll0. -r -Gsurf.grd -V
grdmath surf.grd mask.grd OR = secinv.grd
grdsample secinv.grd `grdinfo grad.grd -I0.1/0.1` -I0.00833333/0.00833333 -r -Gbecker_strain.grd
#
#  clean up
#
rm eyy exy all.dat secinv.gmt secinv.grd  surf.grd mask.grd junk.grd