[cig-commits] r21266 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-01-17 04:36:27 -0800 (Thu, 17 Jan 2013)
New Revision: 21266

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90
Log:
fixed a typo


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90	2013-01-17 03:54:35 UTC (rev 21265)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_common.f90	2013-01-17 12:36:27 UTC (rev 21266)
@@ -248,7 +248,7 @@
   real(kind=CUSTOM_REAL), intent(in) :: v(:,:)
   real(kind=CUSTOM_REAL) :: dv(3,bc%nglob)
 
-  ! diference between side 2 and side 1 of fault nodes. dv
+  ! difference between side 2 and side 1 of fault nodes. dv
   dv(1,:) = v(1,bc%ibulk2)-v(1,bc%ibulk1)
   dv(2,:) = v(2,bc%ibulk2)-v(2,bc%ibulk1)
   dv(3,:) = v(3,bc%ibulk2)-v(3,bc%ibulk1)
@@ -264,7 +264,7 @@
 
   real(kind=CUSTOM_REAL) :: da(3,bc%nglob)
 
-  ! diference between side 2 and side 1 of fault nodes. M-1 * F
+  ! difference between side 2 and side 1 of fault nodes. M-1 * F
   da(1,:) = bc%invM2*f(1,bc%ibulk2)-bc%invM1*f(1,bc%ibulk1)
   da(2,:) = bc%invM2*f(2,bc%ibulk2)-bc%invM1*f(2,bc%ibulk1)
   da(3,:) = bc%invM2*f(3,bc%ibulk2)-bc%invM1*f(3,bc%ibulk1)