[cig-commits] r20201 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-05-20 15:49:51 -0700 (Sun, 20 May 2012)
New Revision: 20201

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
set some uninitialized variables to zero


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-05-20 21:37:15 UTC (rev 20200)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-05-20 22:49:51 UTC (rev 20201)
@@ -7122,7 +7122,15 @@
       valux = ZERO
       valuy = ZERO
       valuz = ZERO
+
       valcurl = ZERO
+
+      dxd = 0
+      dyd = 0
+      dzd = 0
+
+      dcurld = 0
+
       do j = 1,NGLLZ
         do i = 1,NGLLX
           iglob = ibool(i,j,ispec)