[cig-commits] r22565 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-10 09:32:56 -0700 (Wed, 10 Jul 2013)
New Revision: 22565

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90
Log:
removed useless white lines


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90	2013-07-09 21:46:55 UTC (rev 22564)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_element.F90	2013-07-10 16:32:56 UTC (rev 22565)
@@ -1993,7 +1993,6 @@
           duzdyl_plus_duydzl = duzdyl + duydzl
 
 ! compute deviatoric strain
-
           eps_trace_over_3_loc(i,j,k) = ONE_THIRD * (duxdxl + duydyl + duzdzl)
           epsilondev_loc(1,i,j,k) = duxdxl - eps_trace_over_3_loc(i,j,k)
           epsilondev_loc(2,i,j,k) = duydyl - eps_trace_over_3_loc(i,j,k)
@@ -2134,7 +2133,6 @@
           duzdyl_plus_duydzl = duzdyl + duydzl
 
 ! compute deviatoric strain
-
           templ = ONE_THIRD * (duxdxl + duydyl + duzdzl)
           epsilondev_loc_nplus1(1,i,j,k) = duxdxl - templ
           epsilondev_loc_nplus1(2,i,j,k) = duydyl - templ
@@ -2148,5 +2146,3 @@
 
   end subroutine compute_element_strain_att_noDev
 
-
-