[cig-commits] r19492 - seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D

[rietmann at geodynamics.org]

Author: rietmann
Date: 2012-01-27 03:16:36 -0800 (Fri, 27 Jan 2012)
New Revision: 19492

Modified:
   seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic.f90
Log:
making MPI only version default

Modified: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic.f90	2012-01-27 11:15:40 UTC (rev 19491)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic.f90	2012-01-27 11:16:36 UTC (rev 19492)
@@ -460,7 +460,7 @@
 
   integer,intent(in) :: iphase
   logical OPENMP_MODE
-  OPENMP_MODE = .true.
+  OPENMP_MODE = .false.
 
   ! write(*,*) "num_elem_colors_elastic(1)=",num_elem_colors_elastic(1)