Go to the list of seismic processes.
Go to SIOSEIS introduction.
#! /bin/csh
if( $#argv < 1 ) then
echo "Usage: stack line-number"
exit 1
endif
set LINENO = $1
sioseis << eof
procs segdin geom prout gather smute nmo stack diskoa end
segdin
ffilen 99999 # take all shots (this is the preset!)
ftr 121 ltr 480 trinc 2 fcset 1 lcset 1
stime 4 secs 4.0
decimf 2
offline yes # eject after the rewind after EOT
iunit 11 end
end
diskob
# write every 50th shot to a "circular" file
fno 1 lno 999999 noinc 50 rewind 1
opath /ldata/realtime/shots/latest.shot end
end
geom
type 2 # increment the shot loaction based on the shot number
fs 1 ls 999999 # all shot have the same parameters (preset)
gxp 480 -181.65 # RESET the closest group only.
ggx -12.5 # Used to extrapolate gxp!
! dfls 37.5 dbrps 6.25 smear 6.25
dfls 37.5 dbrps 12.5 smear 12.5
rpadd 1000
end
end
gather
maxtrs 90 maxrps 500 end
end
smute
fno 1 lno 999999
interp on
xsets
81.5 4.0 4.1
181.5 4.0 4.1
1181.5 4.0 4.1
2181.5 4.0 5.3
4181.5 4.0 5.50
6181.5 4.0 5.75 end
end
gains
# Do spherical divergence.
# alpha .4 means range 263 is multiplied by 9, range 4263 by 30
# type 8 alpha .4 end
# alpha .5 means range 263 is multiplied by 15.7, range 4263 by 68.4
type 8 alpha .5 end
end
nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 100 m, use previous value. Water-depth
# velocity functions supplied by Graham, interpolation by iso-velocity layering
vtrkwb 250 stretc 0.06
fno 3300 lno 3300 vtp 1500 4.400
1525 4.70
1525 4.8
2100 5.2
3500 6.3 end
fno 3500 lno 3500 vtp 1500 4.667
1525 4.967
1525 5.067
2100 5.467
3500 6.567 vintpl 2 end
fno 3700 lno 3700 vtp 1500 4.9333
1525 5.2333
1525 5.3333
2100 5.7333
3500 6.8333 vintpl 2 end
fno 3900 lno 3900 vtp 1500 5.2
1525 5.5
1525 5.6
2100 6.0
3500 7.1 vintpl 2 end
end
prout
# print the stacked trace number just so the light blink!
fno 0 lno 99999 ftr 479 ltr 480 end
end
diskoa
opath /ldata/realtime/stacked/line.$LINENO end
end
end
eof
Go to the list of seismic processes.
Go to SIOSEIS introduction.