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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-01-07 02:58:06 -0800 (Mon, 07 Jan 2013)
New Revision: 21214

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
Log:
solve one small bug when using single precision.


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-01-07 04:28:37 UTC (rev 21213)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-01-07 10:58:06 UTC (rev 21214)
@@ -284,7 +284,7 @@
   real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLZ,nspec_PML) ::  &
                     K_x_store,K_z_store,d_x_store,d_z_store,alpha_x_store,alpha_z_store
 
-  real(kind=CUSTOM_REAL), dimension(NDIM,npoin) ::  coord
+  double precision, dimension(NDIM,npoin) ::  coord
   integer, dimension(NGLLX,NGLLZ,nspec) :: ibool
   double precision, dimension(2,numat) ::  density
   double precision, dimension(4,3,numat) ::  poroelastcoef