[cig-commits] r14957 - seismo/2D/SPECFEM2D/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2009-05-10 07:01:57 -0700 (Sun, 10 May 2009)
New Revision: 14957

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
moved some variables that are used only in the case of MPI


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-05-10 13:54:16 UTC (rev 14956)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-05-10 14:01:57 UTC (rev 14957)
@@ -378,8 +378,10 @@
   double precision, external :: ricker_Bielak_displ,ricker_Bielak_veloc,ricker_Bielak_accel
   double precision :: angleforce_refl, c_inc, c_refl, cploc, csloc, denst, lambdaplus2mu, mu, p
   double precision, dimension(2) :: A_plane, B_plane, C_plane
-  double precision :: PP, PS, SP, SS, z0_source, x0_source, xmax, xmin, zmax, zmin, &
-       time_offset, xmax_glob, xmin_glob, zmax_glob, zmin_glob
+  double precision :: PP, PS, SP, SS, z0_source, x0_source, xmax, xmin, zmax, zmin, time_offset
+#ifdef USE_MPI
+  double precision :: xmax_glob, xmin_glob, zmax_glob, zmin_glob
+#endif
 
 ! beyond critical angle
   integer , dimension(:), allocatable :: left_bound,right_bound,bot_bound