[cig-commits] [commit] master: Added functions to simulator access that return the surface pressure input parameter. (fc6ca17)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed May 21 14:02:49 PDT 2014
Repository : https://github.com/geodynamics/aspect
On branch : master
Link : https://github.com/geodynamics/aspect/compare/a7135c1f7697d39efff2f47a79ca1e1395cff504...73a71ba37f203bfed63bb8b602fdbd30ab99b1af
>---------------------------------------------------------------
commit fc6ca170e3c9a2c73ac960ed64197a06631e1236
Author: Rene Gassmoeller <R.Gassmoeller at mailbox.org>
Date: Mon May 19 15:40:47 2014 -0500
Added functions to simulator access that return the surface pressure input parameter.
>---------------------------------------------------------------
fc6ca170e3c9a2c73ac960ed64197a06631e1236
include/aspect/simulator_access.h | 6 ++++++
source/simulator/simulator_access.cc | 7 +++++++
2 files changed, 13 insertions(+)
diff --git a/include/aspect/simulator_access.h b/include/aspect/simulator_access.h
index 2635af0..23bf74b 100644
--- a/include/aspect/simulator_access.h
+++ b/include/aspect/simulator_access.h
@@ -187,6 +187,12 @@ namespace aspect
get_adiabatic_surface_temperature () const;
/**
+ * Return the adiabatic surface pressure.
+ */
+ double
+ get_surface_pressure () const;
+
+ /**
* Return whether things like velocities should be converted from the
* seconds in the MKS system to years. The value of this flag is set by
* the corresponding entry in the input parameter file.
diff --git a/source/simulator/simulator_access.cc b/source/simulator/simulator_access.cc
index e0fec9b..cef355a 100644
--- a/source/simulator/simulator_access.cc
+++ b/source/simulator/simulator_access.cc
@@ -160,6 +160,13 @@ namespace aspect
}
template <int dim>
+ double
+ SimulatorAccess<dim>::get_surface_pressure () const
+ {
+ return simulator->parameters.surface_pressure;
+ }
+
+ template <int dim>
void
SimulatorAccess<dim>::get_refinement_criteria (Vector<float> &estimated_error_per_cell) const
{
More information about the CIG-COMMITS
mailing list