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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-03-08 05:32:30 -0800 (Fri, 08 Mar 2013)
New Revision: 21470

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
solve a bug caused data inconsistency when using LDDRK


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-08 00:02:57 UTC (rev 21469)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-08 13:32:30 UTC (rev 21470)
@@ -989,7 +989,7 @@
 
 ! for LDDRK46
   integer :: i_stage,stage_time_scheme
-  double precision, dimension(Nstages):: alpha_LDDRK,beta_LDDRK,c_LDDRK
+  real(kind=CUSTOM_REAL), dimension(Nstages):: alpha_LDDRK,beta_LDDRK,c_LDDRK
 
 Data alpha_LDDRK /0.0_CUSTOM_REAL,-0.737101392796_CUSTOM_REAL, &
      -1.634740794341_CUSTOM_REAL,-0.744739003780_CUSTOM_REAL, &