1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
##############################################################################
#
# Copyright (c) 2003-2018 by The University of Queensland
# http://www.uq.edu.au
#
# Primary Business: Queensland, Australia
# Licensed under the Apache License, version 2.0
# http://www.apache.org/licenses/LICENSE-2.0
#
# Development 2012-2013 by School of Earth Sciences
# Development from 2014 by Centre for Geoscience Computing (GeoComp)
#
##############################################################################
from __future__ import print_function, division
__copyright__="""Copyright (c) 2003-2018 by The University of Queensland
http://www.uq.edu.au
Primary Business: Queensland, Australia"""
__license__="""Licensed under the Apache License, version 2.0
http://www.apache.org/licenses/LICENSE-2.0"""
__url__="https://launchpad.net/escript-finley"
from esys.escript import *
from esys.escript import unitsSI as U
from esys.escript.pdetools import Locator
try:
from esys.weipa import saveSilo
HAVE_SILO = True
except:
HAVE_SILO = False
from esys.downunder import Ricker, SonicWave, SimpleSEGYWriter
from math import ceil
try:
from esys.speckley import Brick, Rectangle
HAVE_SPECKLEY=True
except ImportError:
HAVE_SPECKLEY=False
if HAVE_SPECKLEY and HAVE_SILO:
DIM=2 # spatial dimension
depth=1*U.km # depth
v_p_top=1.5*U.km/U.sec
v_p_bottom=3*U.km/U.sec
absorption_zone=300*U.m
ne_z=40
reflector_at=0.5*depth
t_end=0.008*U.sec #only this low for testing purposes
frq=20.*U.Hz
sampling_interval=4*U.msec
numRcvPerLine=101
rangeRcv=800*U.m
# location of source in crossing array lines with in 0..numRcvInLine one needs to be None
srcEW=numRcvPerLine//2
srcNS=None
# dommain dimension
width_x=rangeRcv + 4*absorption_zone
width_y=width_x
#
# create array
#
receiver_line=[2*absorption_zone + i * (rangeRcv//(numRcvPerLine-1)) for i in range(numRcvPerLine) ]
#
# set source location with tag "source""
#
src_tags=["source"]
if DIM == 2:
src_locations = [ (receiver_line[srcEW], depth)]
src_loc_2D=(receiver_line[srcEW], 0.)
else:
if srcEW:
srcNS=numRcvPerLine//2
elif srcNS:
srcNS=numRcvPerLine//2
else:
raise ValueError("on of the variables srcEW or srcNS must be None!")
src_locations = [ (receiver_line[srcEW], receiver_line[srcNS], depth)]
src_loc_2D=(receiver_line[srcEW], receiver_line[srcNS])
#
# create sensor arrays:
#
# East-west line of receiver
rcvEW_locations=[]
rgEW=[]
mid_point=receiver_line[len(receiver_line)//2]
for ix in range(len(receiver_line)):
if DIM == 2:
rcvEW_locations.append((receiver_line[ix], depth))
rgEW.append( ( receiver_line[ix], 0.) )
else:
rcvEW_locations.append((receiver_line[ix], mid_point, depth))
rgEW.append( ( receiver_line[ix], mid_point) )
# North-south line of receiver
if DIM == 3:
rcvNS_locations=[]
rgNS=[]
for iy in range(len(receiver_line)):
rcvNS_locations.append((mid_point, receiver_line[iy], depth))
rgNS.append( ( mid_point, receiver_line[iy]) )
#
# create domain:
#
order = 5
if DIM == 2:
domain=Rectangle(order, ceil(ne_z*width_x/depth),ne_z,l0=width_x,l1=depth,
diracPoints=src_locations, diracTags=src_tags)
else:
domain=Brick(order, ceil(ne_z*width_x/depth),ceil(ne_z*width_y/depth),ne_z,l0=width_x,l1=width_y,l2=depth,
diracPoints=src_locations, diracTags=src_tags)
wl=Ricker(frq)
m=whereNegative(Function(domain).getX()[DIM-1]-reflector_at)
v_p=v_p_bottom*m+v_p_top*(1-m)
sw=SonicWave(domain, v_p, source_tag=src_tags[0], wavelet=wl, absorption_zone=absorption_zone, lumping=True)
locEW=Locator(domain,rcvEW_locations)
tracerEW=SimpleSEGYWriter(receiver_group=rgEW, source=src_loc_2D, sampling_interval=sampling_interval)
if DIM==3:
locNS=Locator(domain,rcvNS_locations)
tracerNS=SimpleSEGYWriter(receiver_group=rgNS, source=src_loc_2D, sampling_interval=sampling_interval)
if not tracerEW.obspy_available():
print("\nWARNING: obspy not available, SEGY files will not be written\n")
elif getMPISizeWorld() > 1:
print("\nWARNING: SEGY files cannot be written with multiple processes\n")
t=0.
mkDir('tmp')
n=0
while t < t_end:
t,p = sw.update(t+sampling_interval)
tracerEW.addRecord(locEW(p))
if DIM==3: tracerNS.addRecord(locNS(p))
print(t, locEW(p)[:4], wl.getValue(t))
try:
if n%5 == 0 : saveSilo("tmp/u_%d.silo"%(n//5,), p=p)
except:
print("Failed saving silo file. Was escript build without Silo support?")
n+=1
if tracerEW.obspy_available() and getMPISizeWorld() == 1:
tracerEW.write('lineEW.sgy')
if DIM == 3:
tracerNS.write('lineNS.sgy')
else: # no speckley
print("The Speckley module is not available")
|
