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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:57:41 -0800 (Fri, 07 Dec 2007)
New Revision: 8574

Modified:
   seismo/2D/SPECFEM2D/trunk/plotpost.F90
Log:
r1776 : fixed a bug related to any_elastic; we need a global any_elastic when we check if simulation is acoustic only (for attenuation for example). current revision : fixed bugs in plotpost.f90 related to globals uninitialized variables when running in serial.

Modified: seismo/2D/SPECFEM2D/trunk/plotpost.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/plotpost.F90	2007-09-11 10:34:04 UTC (rev 8573)
+++ seismo/2D/SPECFEM2D/trunk/plotpost.F90	2007-12-07 23:57:41 UTC (rev 8574)
@@ -2098,6 +2098,7 @@
 !
 !--- draw absorbing boundaries with a thick color line
 !
+  anyabs_glob = anyabs
 #ifdef USE_MPI
   call MPI_ALLREDUCE(anyabs, anyabs_glob, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, ier)
 #endif
@@ -2300,6 +2301,7 @@
 !
 !----  draw the fluid-solid coupling edges with a thick color line
 !
+  coupled_acoustic_elastic_glob = coupled_acoustic_elastic
 #ifdef USE_MPI
   call MPI_ALLREDUCE(coupled_acoustic_elastic, coupled_acoustic_elastic_glob, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, ier)
 #endif