[cig-commits] r19868 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src

[surendra at geodynamics.org]

Author: surendra
Date: 2012-03-26 06:13:17 -0700 (Mon, 26 Mar 2012)
New Revision: 19868

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Fixed a typo and made sure code compiles

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-03-26 07:46:39 UTC (rev 19867)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-03-26 13:13:17 UTC (rev 19868)
@@ -89,7 +89,7 @@
     real(kind=CUSTOM_REAL)         :: dt
     integer, dimension(:), pointer :: ibulk1, ibulk2
     type(swf_type), pointer        :: swf => null()
-    type(rsf_type), pointer        :: rs => null()
+    type(rsf_type), pointer        :: rsf => null()
     type(asperity_type), pointer   :: asp => null()
     logical                        :: allow_opening = .false. ! default : do not allow opening
     type(dataT_type)               :: dataT
@@ -922,7 +922,8 @@
   integer, dimension(bc%nglob) :: ierr
   real(kind=CUSTOM_REAL), dimension(bc%nglob) :: TxExt
   real(kind=CUSTOM_REAL) :: TLoad,DTau0,GLoad
-  real(kind=CUSTOM_REAL) :: thetan,time
+  real(kind=CUSTOM_REAL) :: time
+  real(kind=CUSTOM_REAL), dimension(bc%nglob) :: thetan
 
   half_dt = 0.5e0_CUSTOM_REAL*bc%dt
   theta_old = bc%swf%theta