A script to calculate and apply the datum correction shifts. Notes: 1) set 0 .4 to make the data long enough so the input data are not shifted off the end of the trace. 2) Do a 3 trace mix or averaging to smooth the data spatially. 3) Use ofmt 1 to write IBM floating point for SU 4) Process header is used to make the rp number the same ast the shot number because process wbt expects the data to be sorted or gathered. 5) Process wbt puts the water bottom time into SEG-Y header floating point word 50. 6) Process wbt2 picks the recorded water bottom time and puts it in SEG-Y floating point work 60. 7) Process header2 computes the shift and writes it into SEG-Y floating point header word 59. 8) Process shift shifts the trace in time according to SEG-Y floating point header word 59. sioseis << eof procs diskin header mix wbt wbt2 header2 shift diskoa end diskin set 0 .4 ipath line164.segy end end mix weight 1 1 1 end end diskoa ofmt 1 opath data end end header fno 0 lno 99999 ftr 1 ltr 99 l6 = l3 end end wbt ! pick whatever it is 815802 0.126000 815901 0.126267 816010 0.126800 816139 0.127067 816238 0.127600 816325 0.127867 816419 0.128400 816550 0.128667 816690 0.128933 816836 0.129333 817019 0.129467 817164 0.130000 817288 0.130133 817390 0.130667 817497 0.130800 817629 0.131200 817717 0.131467 817836 0.131600 817933 0.132133 818019 0.132533 818127 0.132667 818246 0.133067 818328 0.133467 818470 0.133733 818591 0.134133 818722 0.134533 818857 0.135067 819101 0.135733 819230 0.136133 819379 0.136533 819495 0.136933 819695 0.137333 819809 0.137600 819922 0.138133 820017 0.138533 820121 0.138933 820242 0.139200 820330 0.139733 820414 0.139733 820503 0.140400 820611 0.140800 820740 0.141467 820869 0.141600 820956 0.142267 821079 0.142933 821188 0.143467 821263 0.143867 821364 0.144133 821469 0.144267 821606 0.145067 821744 0.145867 821849 0.146400 821936 0.147333 822020 0.147867 822091 0.148400 822150 0.149200 822198 0.150667 822238 0.151600 822265 0.152400 822296 0.153600 822323 0.154533 822354 0.155600 822388 0.156533 822417 0.157600 822451 0.158933 822492 0.160000 822528 0.160533 822550 0.160800 822579 0.160667 822606 0.160667 822629 0.160533 822656 0.160533 822676 0.160667 822701 0.160533 822745 0.161600 822768 0.162133 822803 0.162400 822829 0.162933 822851 0.163200 822879 0.164000 822910 0.164267 822946 0.164267 822972 0.163867 823000 0.163600 823026 0.163467 823050 0.163733 823080 0.164267 823109 0.165333 823303 0.192133 823333 0.194800 823357 0.197333 823376 0.198800 823396 0.199600 823413 0.199867 823436 0.199467 823456 0.199067 823482 0.198000 823515 0.196933 823546 0.196400 823571 0.196133 823599 0.195467 823629 0.194933 823655 0.194400 823685 0.194400 823728 0.194667 823761 0.195600 823785 0.196000 823822 0.196133 823846 0.195200 823864 0.194800 823893 0.193333 823923 0.191600 823949 0.190133 823975 0.188133 823999 0.185867 824018 0.183467 824036 0.181600 824065 0.179200 824090 0.177200 824115 0.176133 824143 0.175467 824165 0.175067 824194 0.175200 824221 0.174667 824240 0.174400 824267 0.174267 824287 0.174400 824312 0.174933 824342 0.174800 824374 0.174933 824402 0.175467 824422 0.175467 824447 0.175867 824470 0.175867 824497 0.176000 824527 0.176400 824556 0.176000 824582 0.175733 824602 0.174533 824632 0.174267 824650 0.173867 824677 0.173867 824698 0.174133 824724 0.174933 824746 0.176267 824768 0.177467 824786 0.178133 824809 0.179467 824829 0.180133 824847 0.181333 824879 0.182667 824909 0.183867 824936 0.184667 824971 0.185067 825009 0.186133 825035 0.186800 825074 0.188000 825109 0.188533 825142 0.189333 825188 0.190400 825221 0.191333 825251 0.192400 825309 0.194800 825790 0.221067 825821 0.222800 end wbt2 ! pick the water bottom index 60 ! put this pick in real word 60 thres .2e-07 track .005 end end header2 fno 0 lno 999999 r59 = r50 - r60 ! subtract the picked time from the theoretical end end prout ! indices l3 l16 r50 r59 r60 fno 0 lno 99999 noinc 100 ftr 0 ltr 999 end end shift indices r59 end end end eofBack to SIOSEIS examples. Go to SIOSEIS introduction. Go to the list of seismic processes.