[cig-commits] r15564 - short/3D/PyLith/branches/pylith-friction/libsrc/faults

[surendra at geodynamics.org]

Author: surendra
Date: 2009-08-20 09:24:13 -0700 (Thu, 20 Aug 2009)
New Revision: 15564

Modified:
   short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.cc
   short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.hh
Log:
Finished Initial Implementation of Integrate Residual (not tested)

Modified: short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.cc
===================================================================
--- short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.cc	2009-08-20 16:11:31 UTC (rev 15563)
+++ short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.cc	2009-08-20 16:24:13 UTC (rev 15564)
@@ -26,7 +26,8 @@
 
 // ----------------------------------------------------------------------
 // Default constructor.
-pylith::faults::FaultCohesiveDyn::FaultCohesiveDyn(void)
+pylith::faults::FaultCohesiveDyn::FaultCohesiveDyn(void) : 
+  _dbInitial(0)
 { // constructor
 } // constructor
 
@@ -43,9 +44,18 @@
 pylith::faults::FaultCohesiveDyn::deallocate(void)
 { // deallocate
   FaultCohesive::deallocate();
+
+  _dbInitial = 0; // :TODO: Use shared pointer
 } // deallocate
-  
+
 // ----------------------------------------------------------------------
+// Sets the spatial database for the inital tractions
+void pylith::faults::FaultCohesiveDyn::dbInitial(spatialdata::spatialdb::SpatialDB* dbs)
+{ // dbInitial
+  _dbInitial = dbs;
+} // dbInitial
+
+// ----------------------------------------------------------------------
 // Initialize fault. Determine orientation and setup boundary
 void
 pylith::faults::FaultCohesiveDyn::initialize(const topology::Mesh& mesh,

Modified: short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.hh
===================================================================
--- short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.hh	2009-08-20 16:11:31 UTC (rev 15563)
+++ short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDyn.hh	2009-08-20 16:24:13 UTC (rev 15564)
@@ -44,6 +44,11 @@
   /// Deallocate PETSc and local data structures.
   virtual
   void deallocate(void);
+
+  /** Sets the spatial database for the inital tractions
+   * @param dbs spatial database for initial tractions
+   */
+  void dbInitial(spatialdata::spatialdb::SpatialDB* dbs);
   
   /** Initialize fault. Determine orientation and setup boundary
    * condition parameters.