[cig-commits] r21470 - seismo/2D/SPECFEM2D/trunk/src/specfem2D
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Fri Mar 8 05:32:31 PST 2013
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, &
More information about the CIG-COMMITS
mailing list