[WIP] Implementation of absorbing boundary layer

examples/acoustics_2d_radial/Makefile_abl

@@ -0,0 +1,61 @@
+
+# Makefile for Clawpack code in this directory.
+# This version only sets the local files and frequently changed
+# options, and then includes the standard makefile pointed to by CLAWMAKE.
+CLAWMAKE = $(CLAW)/clawutil/src/Makefile.common
+
+# See the above file for details and a list of make options, or type
+#   make .help
+# at the unix prompt.
+
+
+# Adjust these variables if desired:
+# ----------------------------------
+
+CLAW_PKG = amrclaw                  # Clawpack package to use
+EXE = xamr                          # Executable to create
+SETRUN_FILE = setrun_abl.py         # File containing function to make data
+OUTDIR = _output_abl                # Directory for output
+SETPLOT_FILE = setplot_abl.py       # File containing function to set plots
+PLOTDIR = _plots_abl                # Directory for plots
+
+OVERWRITE ?= True                   # False ==> make a copy of OUTDIR first
+
+# Environment variable FC should be set to fortran compiler, e.g. gfortran
+
+# Compiler flags can be specified here or set as an environment variable
+FFLAGS ?=  
+
+# ---------------------------------
+# package sources for this program:
+# ---------------------------------
+
+AMRLIB = $(CLAW)/amrclaw/src/2d
+include $(AMRLIB)/Makefile.amr_2d
+
+# ---------------------------------------
+# package sources specifically to exclude
+# (i.e. if a custom replacement source 
+#  under a different name is provided)
+# ---------------------------------------
+
+EXCLUDE_MODULES = \
+
+EXCLUDE_SOURCES = \
+
+# ----------------------------------------
+# List of custom sources for this program:
+# ----------------------------------------
+
+MODULES = \
+
+SOURCES = \
+  qinit.f \
+  setprob.f \
+  $(CLAW)/riemann/src/rpn2_acoustics.f \
+  $(CLAW)/riemann/src/rpt2_acoustics.f
+
+#-------------------------------------------------------------------
+# Include Makefile containing standard definitions and make options:
+include $(CLAWMAKE)
+

examples/acoustics_2d_radial/README.rst

@@ -13,3 +13,17 @@ with the 1d solution.
 Three gauges are specified, Gauge 0 is at the origin and Gauges 1 and 2 are
 are both at radius 0.7, along the x-axis and along the diagonal.
 
+Extrapolation BCs
+------------------
+The code is set up to use extrapolation boundary conditions at all
+boundaries. This does a reasonably good job of providing non-reflecting 
+boundaries, but there are some artifacts visible at later times.
+
+Absorbing boundary layer
+------------------------
+New cababilities have been added to Clawpack 5.5.0 to allow extending the
+computational domain with an aborbing boundary layer that does a better job
+of eliminating artificial reflections.  [Add more discussion.]
+To try this version::
+    make all -f Makefile_abl
+

examples/acoustics_2d_radial/setplot_abl.py

@@ -0,0 +1,175 @@
+
+""" 
+Set up the plot figures, axes, and items to be done for each frame.
+
+This module is imported by the plotting routines and then the
+function setplot is called to set the plot parameters.
+
+""" 
+
+from __future__ import absolute_import
+from __future__ import print_function
+import os
+if os.path.exists('./1drad/_output'):
+    qref_dir = os.path.abspath('./1drad/_output')
+else:
+    qref_dir = None
+    print("Directory ./1drad/_output not found")
+
+
+#--------------------------
+def setplot(plotdata=None):
+#--------------------------
+
+    """ 
+    Specify what is to be plotted at each frame.
+    Input:  plotdata, an instance of clawpack.visclaw.data.ClawPlotData.
+    Output: a modified version of plotdata.
+
+    """ 
+
+
+    from clawpack.visclaw import colormaps
+    from clawpack.clawutil.data import ClawData
+
+    if plotdata is None:
+        from clawpack.visclaw.data import ClawPlotData
+        plotdata = ClawPlotData()
+
+    # determine original computational domain
+    abldata = ClawData()
+    abldata.read(plotdata.outdir + '/abl.data', force=True)
+    clawdata = ClawData()
+    clawdata.read(plotdata.outdir + '/claw.data', force=True)
+    x1 = clawdata.lower[0] + abldata.depth_lower[0]
+    x2 = clawdata.upper[0] - abldata.depth_upper[0]
+    y1 = clawdata.lower[1] + abldata.depth_lower[1]
+    y2 = clawdata.upper[1] - abldata.depth_upper[1]
+
+    plotdata.clearfigures()  # clear any old figures,axes,items data
+
+
+    # Figure for pressure
+    # -------------------
+
+    plotfigure = plotdata.new_plotfigure(name='Pressure', figno=0)
+
+    # Set up for axes in this figure:
+    plotaxes = plotfigure.new_plotaxes()
+    plotaxes.xlimits = 'auto'
+    plotaxes.ylimits = 'auto'
+    plotaxes.title = 'Pressure'
+    plotaxes.scaled = True      # so aspect ratio is 1
+
+    # Set up for item on these axes:
+    plotitem = plotaxes.new_plotitem(plot_type='2d_pcolor')
+    plotitem.plot_var = 0
+    plotitem.pcolor_cmap = colormaps.blue_yellow_red
+    plotitem.add_colorbar = True
+    plotitem.show = True       # show on plot?
+    plotitem.pcolor_cmin = -2.0
+    plotitem.pcolor_cmax = 2.0
+    plotitem.amr_patchedges_show = [1,1,1]
+    plotitem.amr_celledges_show = [1,0,0]
+
+    def plot_original_domain_and_add_gauges(current_data):
+        from matplotlib.pyplot import gca, text
+        ax = gca()
+        x = [x1,x2,x2,x1,x1]
+        y = [y1,y1,y2,y2,y1]
+        ax.plot(x, y, '--k')
+        text(-0.6,1.05,'Absorbing Boundary Layer')
+        addgauges(current_data)
+
+    plotaxes.afteraxes = plot_original_domain_and_add_gauges
+
+    # Figure for scatter plot
+    # -----------------------
+
+    plotfigure = plotdata.new_plotfigure(name='scatter', figno=3)
+    plotfigure.show = (qref_dir is not None)
+
+    # Set up for axes in this figure:
+    plotaxes = plotfigure.new_plotaxes()
+    plotaxes.xlimits = [0,1.5]
+    plotaxes.ylimits = [-2.,4.]
+    plotaxes.title = 'Scatter plot'
+
+    # Set up for item on these axes: scatter of 2d data
+    plotitem = plotaxes.new_plotitem(plot_type='1d_from_2d_data')
+
+    def p_vs_r(current_data):
+        # Return radius of each grid cell and p value in the cell
+        from numpy.ma import MaskedArray, masked_where
+        from pylab import sqrt
+        x = current_data.x
+        y = current_data.y
+        r = sqrt(x**2 + y**2)
+        r = masked_where(x < x1, r)
+        r = masked_where(x > x2, r)
+        r = masked_where(y < y1, r)
+        r = masked_where(y > y2, r)
+        q = current_data.q
+        p = MaskedArray(q[0,:,:], mask=r.mask)
+        return r,p
+
+    plotitem.map_2d_to_1d = p_vs_r
+    plotitem.plot_var = 0
+    plotitem.plotstyle = 'o'
+    plotitem.color = 'b'
+    plotitem.show = True       # show on plot?
+
+    # Set up for item on these axes: 1d reference solution
+    plotitem = plotaxes.new_plotitem(plot_type='1d_plot')
+    plotitem.outdir = qref_dir
+    plotitem.plot_var = 0
+    plotitem.plotstyle = '-'
+    plotitem.color = 'r'
+    plotitem.kwargs = {'linewidth': 2}
+    plotitem.show = True       # show on plot?
+    plotaxes.afteraxes = "import pylab; pylab.legend(('2d data (interior only)', '1d reference solution'))"
+
+
+    #-----------------------------------------
+    # Figures for gauges
+    #-----------------------------------------
+    plotfigure = plotdata.new_plotfigure(name='q', figno=300, \
+                    type='each_gauge')
+    plotfigure.clf_each_gauge = True
+
+    plotaxes = plotfigure.new_plotaxes()
+    plotaxes.xlimits = 'auto'
+    plotaxes.ylimits = 'auto'
+    plotaxes.title = 'Pressure'
+    plotitem = plotaxes.new_plotitem(plot_type='1d_plot')
+    plotitem.plot_var = 0
+    plotitem.plotstyle = 'b-'
+
+
+    # Parameters used only when creating html and/or latex hardcopy
+    # e.g., via clawpack.visclaw.frametools.printframes:
+
+    plotdata.printfigs = True                # print figures
+    plotdata.print_format = 'png'            # file format
+    plotdata.print_framenos = 'all'          # list of frames to print
+    plotdata.print_fignos = 'all'            # list of figures to print
+    plotdata.html = True                     # create html files of plots?
+    plotdata.html_homelink = '../README.html'   # pointer for top of index
+    plotdata.html_movie = 'JSAnimation'      # new style, or "4.x" for old style
+    plotdata.latex = True                    # create latex file of plots?
+    plotdata.latex_figsperline = 2           # layout of plots
+    plotdata.latex_framesperline = 1         # layout of plots
+    plotdata.latex_makepdf = False           # also run pdflatex?
+    plotdata.parallel = True                 # make multiple frame png's at once
+
+    return plotdata
+
+
+
+# To plot gauge locations on pcolor or contour plot, use this as
+# an afteraxis function:
+
+def addgauges(current_data):
+    from clawpack.visclaw import gaugetools
+    gaugetools.plot_gauge_locations(current_data.plotdata, \
+         gaugenos='all', format_string='ko', add_labels=True)