Slip Induced by Harmonic Shear Wave
Note
The project file for this example is available to be viewed/run in FLAC3D. The main data files are shown at the end of this example. The remaining data files can be found in the project.
This problem concerns the effects of a planar discontinuity on the propagation of an incident shear wave. Two homogeneous, isotropic, semiinfinite elastic regions, separated by a planar discontinuity with a limited shear strength, are shown in Figure 1. A normally incident, plane harmonic, shear wave will cause slip at the discontinuity, resulting in frictional energy dissipation. Thus, the energy will be reflected, transmitted and absorbed at the discontinuity. The problem is modeled with FLAC3D, and the results are used to determine the coefficients of transmission, reflection, and absorption. These coefficients are compared with ones given by an analytical solution (Miller 1978).
The coefficients of reflection (\(R\)), transmission (\(T\)), and absorption (\(A\)) given by Miller (1978) for the case of uniform material are
where \(E_I\), \(E_T\), and \(E_R\) represent the energy flux per unit area per cycle of oscillation associated with the incident, transmitted, and reflected waves, respectively. The coefficient \(A\) is a measure of the energy absorbed at the discontinuity. The energy flux \(E_I\) is given by
where: 
\(T\) 
= 
\((2 \pi)\thinspace /\thinspace \omega\) = the period for the incident wave; 
\(\sigma_s\) 
= 
shear stress; 

\(v_s\) 
= 
particle velocity in the \(x\)direction; and 

\(\omega\) 
= 
frequency of incident wave (radian/sec). 
For elastic media,
Hence,
in which \(c\) is the velocity of the propagating shear wave.
The energy flux of the incident wave, \(E_I\), is evaluated at point A (see Figure 1) for no slip at the discontinuity. The energy flux of the transmitted wave, \(E_T\), is evaluated at point B for the case of slip at the discontinuity. The energy flux of the reflected wave, \(E_R\), is calculated by determining the difference of velocities in two cases: slip and no slip.
Figure 2 shows the numerical model, which consists of two subgrids (each with fifteen zones in the \(z\)direction, two zones in the \(x\)direction, and one zone in the \(y\)direction) connected by an interface, EF, which has high stiffness and simulates the discontinuity. The conditions used are as follows.
Boundary Conditions
Nonreflecting viscous boundaries are located at GH and CD.
Vertical motion is prevented along lateral boundaries GC and DH.
All gridpoints are fixed in the \(y\)direction (i.e., a condition of plane strain is enforced).
Loading Conditions
Shear stresses corresponding to the incident wave are applied along CD.
The maximum stress of the incident wave is 1 MPa, and the frequency is 1 Hz.
Material Conditions
elastic media
\(\rho\) = 2.65 × 10^{3} kg/m^{3}
\(K\) = 16,667 MPa
\(G\) = 10,000 MPa
interface
\(k_{x}\) = \(k_{s}\) = 10,000 MPa/m
\(C\) = cohesion = 2.5 MPa for noslip case; = 0.5, 0.1, 0.02 MPa for slip case
Note that the magnitude of the incident wave must be doubled in the numerical model to account for the simultaneous presence of the nonreflecting boundary (see Application of Dynamic Input).
Four different cases are run at an interface cohesion of 2.5, 0.5, 0.1, and 0.02 MPa, respectively. The \(x\)velocity histories at the top and bottom of the model (point A and B) are stored in tables xvelbotN and xveltopN, where N is the case from 1 to 4. At the start of each case, the previous model is reset without deleting the tables storing results by deleting all zones and histories, and resetting the total dynamic time to 0.
The cohesion in case 1 is high enough to ensure a fully elastic response, and Figure 3 shows the time variation of shear stress near points A and B. From the amplitude of the stress histories at A and B, it is clear that there is perfect transmission of the wave across the discontinuity. It is also clear from Figure 3 that the viscous boundary condition provides perfect absorption of normally incident waves.
The recorded shear stresses at points A and B for cases 2, 3, and 4 are shown in Figures 4, 5, and 6, respectively. The peak stress at point A is the superposition of the incident wave and the wave reflected from the slipping discontinuity. It can be seen in Figures 4 through 6 that the shear stress of point B is limited by the discontinuity strength.
After all cases are run, the energy flux and coefficients \(R\), \(T\), and \(A\) are computed by FISH function energy and written to the tables f3_A, f3_R, and f3_t. It was determined that at least five cycles of the input wave were necessary before the computed coefficients settled down to steadystate values. Even then, there is a periodic fluctuation in the values. In order to obtain mean values, the coefficient values were averaged over the final 100 timesteps. Figure 7 compares the numerical results with the exact solution for the coefficients for three values of the dimensionless parameter.
where: 
\(\tau_{s}\) 
= 
discontinuity cohesion; 
\(U\) 
= 
displacement amplitude of the incident wave; 

\(\gamma\) 
= 
\(\sqrt{\rho\ G}\); and 

\(\omega\) 
= 
frequency of incident wave (1 Hz). 
The displacement amplitude for the incident wave (\(U\)) was obtained by monitoring the horizontal displacement at point A for nonslipping discontinuities. As can be seen, the FLAC3D results agree well with the analytical solution.
References
Miller, R. K. “The Effects of Boundary Friction on the Propagation of Elastic Waves,” Bull. Seismic. Assoc. America, 68, 987998 (1978).
Data Files
SlipInducedHarmonicShearWave.dat
;
; script file for dynamic problem 'Slip induced by harmonic wave'
;
model new
fish automaticcreate off
model title "Slip induced by harmonic wave"
model configure dynamic
; Define simple FISH function for applied stress, sine wave
fish define fsin
return math.sin(2.0*math.pi*dynamic.time.total)
end
[global coh_list = list.sequence(2.5,0.5,0.1,0.02)]
; Four cases, cohesion from 2.5 to 0.02
fish define runAllCases
loop local casenum (1,list.size(coh_list))
local cohesion = coh_list(casenum)
system.command("program call 'common'")
end_loop
end
[runAllCases]
model save 'final'
common.dat
model largestrain off
; Clear any previous model
zone delete
history delete
model dynamic timetotal 0
; Create zones
zone create brick point 0 (0,0,200) point 1 add (30,0,0) ...
point 3 add (0,0,200) point 2 add (0,15,0) ...
size 2 1 15 group 'Bottom'
zone create brick point 0 (0,0, 0) point 1 add (30,0,0) ...
point 3 add (0,0,200) point 2 add (0,15,0) ...
size 2 1 15 group 'Top'
; Assign constitutive model and properties
zone cmodel assign elastic
zone property bulk 16667 shear=10000.0 density=0.00265
; Create interface, and assign interface properties
zone interface 'disc' create byface separate ...
range group 'Bottom' group 'Top'
zone interface 'disc' node property stiffnessnormal 10000 ...
stiffnessshear 10000 ...
cohesion [cohesion] ...
friction 0.0 ...
tension 1e6 ...
bondedslip on
; Assign boundary conditions
zone gridpoint fix velocityy
zone gridpoint fix velocityz range union positionx 0 positionx 30
zone face apply quiet range union positionz 200 positionz 200
zone face apply stressdip 2 fish fsin range positionz 200
; Take histories
history interval 10
model history name='time' dynamic timetotal
zone history name='xvelbot' velocityx position (15,0,200) ; A
zone history name='xveltop' velocityx position (15,0, 200) ; B
zone history name='sxzbot' stressxz position (15,0,200) ; A
zone history name='sxztop' stressxz position (15,0, 200) ; B
zone history name='xdispbot' displacementx position (15,0,200) ; A
; Solve model to time 5, and save
model solve timetotal 5
model save ['case'+string(casenum)]
; Export Velocity histories to tables
history export 'xvelbot' vs 'time' table ['xvelbot'+string(casenum)]
history export 'xveltop' vs 'time' table ['xveltop'+string(casenum)]
history export 'xdispbot' vs 'time' table ['xdisptop'+string(casenum)]
⇐ Comparison of FLAC3D to SHAKE for a Layered, NonlinearElastic Soil Deposit  Hollow Sphere Subject to an Internal Blast ⇒
Was this helpful? ...  Itasca Software © 2024, Itasca  Updated: May 07, 2024 