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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2012-07-09 03:34:28 -0700 (Mon, 09 Jul 2012)
New Revision: 20510

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
fix minor bugs


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-07-09 10:26:41 UTC (rev 20509)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-07-09 10:34:28 UTC (rev 20510)
@@ -1316,7 +1316,7 @@
   endif
 
 #ifdef USE_MPI
-  if(PML_BOUNDARY_CONDITIONS .and. (any_acoustic .or. any_poroelastic )then
+  if(PML_BOUNDARY_CONDITIONS .and. (any_acoustic .or. any_poroelastic) )then
    stop 'PML_BOUNDARY_CONDITIONS do not ready for mpi version of the code'
   endif
 #endif