#!/bin/sh
#####
# clean up
#####
rm -f *.png
rm -f *.PLT
cat > SCM.mod << EOF create the velocity model
MODEL.01
Simple crustal model
ISOTROPIC
KGS
FLAT EARTH
1-D
CONSTANT VELOCITY
LINE08
LINE09
LINE10
LINE11
H(KM) VP(KM/S) VS(KM/S) RHO(GM/CC) QP QS ETAP ETAS FREFP FREFS
40.0000 6.0000 3.5500 2.8000 0.00 0.00 0.00 0.00 1.00 1.00
0.0000 8.0000 4.7000 3.3000 0.00 0.00 0.00 0.00 1.00 1.00
EOF
cat > dfile << EOF create the file that
10.0 0.25 256 0 0 gives distance, dt, npts, t0 vred
20.0 0.25 256 0 0
30.0 0.25 256 0 0
40.0 0.25 256 0 0
50.0 0.25 256 0 0
60.0 0.25 256 0 0
70.0 0.25 256 0 0
80.0 0.25 256 0 0
90.0 0.25 256 0 0
100.0 0.25 256 0 0
110.0 0.25 256 0 0
120.0 0.25 256 0 0
130.0 0.25 256 0 0
140.0 0.25 256 0 0
150.0 0.25 256 0 0
160.0 0.25 256 0 0
170.0 0.25 256 0 0
180.0 0.25 256 0 0
190.0 0.25 256 0 0
200.0 0.25 256 0 0
EOF
#####
# we will make synthetics for the receiver above and below the interface
#####
mkdir INTERFACE_ALL_TOP
hprep96 -M SCM.mod -d dfile -ALL -HS 21 -HR 20 -TH -BH Create the control for the program hspec96. Since the
model file has a reference layer of 40 km, the source is placed 19 km above the
interfce, and the receiver is 20 km above the interface.
hspec96 -SD
Only consider waves leaving the source in a downward direction.
Because of the source position, the synthetics will not have a direct wave
Now put in the source time function, convert to Sac files and place in a subdirectory
hpulse96 -V -p -l 1 | \
(cd INTERFACE_ALL_TOP ; f96tosac -G )
# make plots
gsac << EOF
r INTERFACE_ALL_TOP/*TSS
title on location top size small text "TSS HS=21 HR=20 Interfase z=40"
bg plt
prs amp 0.25 color 2 shd neg
shade the negative amplitudes of the trace in the color red
mv PRS001.PLT TOP_TSS.PLT
r INTERFACE_ALL_TOP/*ZEX
title on location top size small text "ZEX HS=21 HR=20 Interfase z=40"
bg plt
color red
prs amp 0.25
mv PRS002.PLT TOP_ZEX.PLT
r INTERFACE_ALL_TOP/*REX
title on location top size small text "REX HS=21 HR=20 Interfase z=40"
bg plt
color blue
prs amp 0.25
mv PRS003.PLT TOP_REX.PLT
q
EOF
mkdir INTERFACE_ALL_BOT
hprep96 -M SCM.mod -d dfile -ALL -HS 21 -HR 60 -TH -BH
hspec96 -SD
hpulse96 -V -p -l 1 | \
(cd INTERFACE_ALL_BOT ; f96tosac -G )
gsac << EOF
r INTERFACE_ALL_BOT/*TSS
title on location top size small text "TSS HS=21 HR=60 Interfase z=40"
bg plt
prs amp 0.25 color 2 shd neg
mv PRS001.PLT BOT_TSS.PLT
r INTERFACE_ALL_BOT/*ZEX
title on location top size small text "ZEX HS=21 HR=60 Interfase z=40"
bg plt
color red
prs amp 0.25
mv PRS002.PLT BOT_ZEX.PLT
r INTERFACE_ALL_BOT/*REX
title on location top size small text "REX HS=21 HR=60 Interfase z=40"
bg plt
color blue
prs amp 0.25
mv PRS003.PLT BOT_REX.PLT
q
EOF
Each external plot in a gsac execution has a unique identifier. Thus three PRS calls create PRS001.PLT PRS002.PLT PRS003.PLT
#####
# some representative traces
#####
gsac << EOF
color list red blue
fileid name
r INTERFACE_ALL_BOT/0160*[ZR]EX
title on location top size small text "Z (red) R(blue) 160 km HS=21 HR=60 Interfase z=40"
bg plt
p overly on
r INTERFACE_ALL_TOP/0160*[ZR]EX
title on location TOP size small text "Z (red) R(blue) 160 km HS=21 HR=20 Interfase z=40"
p overly on
q
EOF
Here the plot calls create P001.PLT and P002.PLT
mv P001.PLT BOT_160.PLT
mv P002.PLT TOP_160.PLT
for i in ???_???.PLT
do
B=`basename $i .PLT`
plotnps -F7 -W10 -EPS -K < $i > t.eps
convert -trim t.eps -background white -alpha remove $B.png
done
#####
# clean up
#####
rm -f hspec96.???
rm -f PRS*.CTL
rm -f t.eps
rm -f dfile
rm -f *.PLT
|
| TOP_TSS.png | Transverse component reflections from strike slip source |
| TOP_REX.png | Radial component (away from source) from expansion source |
| TOP_ZEX.png | Vertical component (away from source) from expansion source |
| TOP_160.png | Overlay of vertical (up) and radial (away) components from EX source at 160 km |
| BOT_TSS.png | Transverse component reflections from strike slip source |
| BOT_REX.png | Radial component (away from source) from expansion source |
| BOT_ZEX.png | Vertical component (away from source) from expansion source |
| BOT_160.png | Overlay of vertical (up) and radial (away) components from EX source at 160 km |
|
|
|
|
|
|
It is interesting to overlay the traces to look at particle motion
to determine the nature of the wave.
Exercise