[cig-commits] r9147 - short/3D/PyLith/trunk/libsrc/faults

[brad at geodynamics.org]

Author: brad
Date: 2008-01-28 10:28:48 -0800 (Mon, 28 Jan 2008)
New Revision: 9147

Modified:
   short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc
Log:
Fixed allocation of parameter sections (had duplicate calls to allocation functions). Added accessor function for final slip and slip time.

Modified: short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc	2008-01-27 22:26:52 UTC (rev 9146)
+++ short/3D/PyLith/trunk/libsrc/faults/BruneSlipFn.cc	2008-01-28 18:28:48 UTC (rev 9147)
@@ -100,15 +100,6 @@
   peakRate->setAtlas(slipTime->getAtlas()); // reuse atlas from slipTime
   peakRate->allocateStorage();
 
-  for (vert_iterator v_iter=vBegin; v_iter != vEnd; ++v_iter) {
-    finalSlip->setFiberDimension(*v_iter, spaceDim);
-    slipTime->setFiberDimension(*v_iter, 1);
-    peakRate->setFiberDimension(*v_iter, 1);
-  } // for
-  mesh->allocate(finalSlip);
-  mesh->allocate(slipTime);
-  mesh->allocate(peakRate);
-  
   // Open databases and set query values
   _dbFinalSlip->open();
   switch (spaceDim)
@@ -314,5 +305,21 @@
   return _slipField;
 } // slipIncr
 
+// ----------------------------------------------------------------------
+// Get final slip.
+ALE::Obj<pylith::real_section_type>
+pylith::faults::BruneSlipFn::finalSlip(void)
+{ // finalSlip
+  return _parameters->getReal("final slip");
+} // finalSlip
 
+// ----------------------------------------------------------------------
+// Get time when slip begins at each point.
+ALE::Obj<pylith::real_section_type>
+pylith::faults::BruneSlipFn::slipTime(void)
+{ // slipTime
+  return _parameters->getReal("slip time");
+} // slipTime
+
+
 // End of file