Commit 437b024b authored by Alex Breuer's avatar Alex Breuer
Browse files

Added revised Gaussian hill benchmark using 1) an explosive source, 2)...

Added revised Gaussian hill benchmark using 1) an explosive source, 2) acoustics and elastics, 3) different mesh resolutions, and 4) different heights.
parent 3f536b2d
This source diff could not be displayed because it is stored in LFS. You can view the blob instead.
This source diff could not be displayed because it is stored in LFS. You can view the blob instead.
This source diff could not be displayed because it is stored in LFS. You can view the blob instead.
......@@ -4,7 +4,7 @@
* @author Alexander Breuer (anbreuer AT ucsd.edu)
*
* @section LICENSE
* Copyright (c) 2017, Regents of the University of California
* Copyright (c) 2017-2018, Regents of the University of California
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
......@@ -18,13 +18,79 @@
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* @section DESCRIPTION
* Gaussian hill with a characteristic length of 100m in proximity of the hill.
* Template for the Gaussian hill model.
*
* Zhang, Wei, and Xiaofei Chen.
* "Traction image method for irregular free surface boundaries in finite difference seismic wave simulation."
* Geophysical Journal International 167.1 (2006): 337-353.
* Fig. 5
**/
Mesh.Algorithm = 6; // frontal
// total size of the computational domain (+/- x, and +/-y)
l_dom = 50000;
// number of line segmets used for discretization of the Gaussian shape hill in [0, 20]
l_nSegHill = 20000 / cl_hill;
l_x0 = 10000;
l_x1 = 20000;
l_h = hill_height;
l_a = 3000;
// create points for the hill topography
For l_pt In {0:l_nSegHill}
l_x = cl_hill*l_pt;
Point(l_pt) = {l_x-l_x1, l_h * Exp( -(l_x-l_x0)*(l_x-l_x0) / (l_a*l_a) ), 0, cl_hill};
EndFor
// create lines connecting the points of the hill topo
For l_li In {0:(l_nSegHill-1)}
Line(l_li) = {l_li, l_li+1};
EndFor
// add remaining points
Point(l_nSegHill+1) = { l_dom, 0, 0, cl_sponge};
Point(l_nSegHill+2) = { l_dom, -l_dom, 0, cl_sponge};
Point(l_nSegHill+3) = {-l_dom, -l_dom, 0, cl_sponge};
Point(l_nSegHill+4) = {-l_dom, 0, 0, cl_sponge};
// add remainig lines
For l_li In {l_nSegHill:(l_nSegHill+3)}
Line(l_li) = { l_li, (l_li+1) };
EndFor
Line(l_nSegHill+4) = {l_nSegHill+4, 0};
// set free-surface and outflow boundaries
Physical Line(101) = {0:l_nSegHill, l_nSegHill+4};
Physical Line(105) = {l_nSegHill+1:(l_nSegHill+3)};
// define volume
Line Loop(1) = { 0:l_nSegHill+4 };
Plane Surface(1) = {1};
Physical Surface(1) = {1};
// add attractor for src
Point(l_nSegHill+5) = { 0, -1000, 0, cl_source };
Field[1] = Attractor;
Field[1].NodesList = {l_nSegHill+5};
// characteristic length for the hill: [-10,000, 25,000] x [-15,000, 0]
cl_hill = 100.0;
Field[2] = Threshold;
Field[2].IField = 1;
Field[2].LcMin = cl_source;
Field[2].LcMax = cl_sponge;
Field[2].DistMin = 0;
Field[2].DistMax = 25000;
// characteristic length in the remaining volume
cl_vol = 200.0;
// add domain of interest, rest is sponge
Field[3] = Ball;
Field[3].VIn = cl_volume;
Field[3].VOut = cl_sponge;
Field[3].XCenter = 0;
Field[3].YCenter = -1000;
Field[3].Radius = 25000;
Include "ghill_2d.tmpl";
Field[4] = Min;
Field[4].FieldsList = {2,3};
Background Field = 4;
../loh_2d/ricker.nc
\ No newline at end of file
[![CC0](http://i.creativecommons.org/p/zero/1.0/88x31.png)](http://creativecommons.org/publicdomain/zero/1.0/)
To the extent possible under law, [Alexander Nikolas Breuer](http://dial3343.org) has waived all copyright and related or neighboring rights to the following work:
* `ghill_2d_acoustic_recvs_2000_100.tar.bz2`
* `ghill_2d_acoustic_recvs_2000_200.tar.bz2`
* `ghill_2d_acoustic_recvs_2000_300.tar.bz2`
* `ghill_2d_acoustic_recvs_2000_400.tar.bz2`
* `ghill_2d_acoustic_recvs_2000_500.tar.bz2`
* `ghill_2d_acoustic_wf_2000_100.tar.bz2`
* `ghill_2d_acoustic_wf_2000_200.tar.bz2`
* `ghill_2d_acoustic_wf_2000_300.tar.bz2`
* `ghill_2d_acoustic_wf_2000_400.tar.bz2`
* `ghill_2d_acoustic_wf_2000_500.tar.bz2`
This work is published from: United States.
../../meshes/ghill_2d_2000_100.geo
\ No newline at end of file
../../meshes/ghill_2d_2000_100.msh
\ No newline at end of file
../../meshes/ghill_2d_2000_100.msh.log
\ No newline at end of file
../../meshes/ghill_2d_2000_200.geo
\ No newline at end of file
../../meshes/ghill_2d_2000_200.msh
\ No newline at end of file
../../meshes/ghill_2d_2000_200.msh.log
\ No newline at end of file
../../meshes/ghill_2d_2000_300.geo
\ No newline at end of file
../../meshes/ghill_2d_2000_300.msh
\ No newline at end of file
../../meshes/ghill_2d_2000_300.msh.log
\ No newline at end of file
../../meshes/ghill_2d_2000_400.geo
\ No newline at end of file
../../meshes/ghill_2d_2000_400.msh
\ No newline at end of file
../../meshes/ghill_2d_2000_400.msh.log
\ No newline at end of file
../../meshes/ghill_2d_2000_500.geo
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment