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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-12-02 03:06:52 -0800 (Fri, 02 Dec 2011)
New Revision: 19260

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
fixed the MPI bug detected by Paul Cristini: fluid/solid interface arrays were not allocated but used in subroutine calls when a given MPI slice had no such fluid/solid interface


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-12-02 02:47:16 UTC (rev 19259)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-12-02 11:06:52 UTC (rev 19260)
@@ -1135,6 +1135,21 @@
                               my_neighbours,my_nelmnts_neighbours,my_interfaces, &
                               perm,antecedent_list)
 
+  else
+    if(ipass == 1) then
+       allocate(my_neighbours(1))
+       allocate(my_nelmnts_neighbours(1))
+       allocate(my_interfaces(1,1,1))
+       allocate(ibool_interfaces_acoustic(1,1))
+       allocate(ibool_interfaces_elastic(1,1))
+       allocate(ibool_interfaces_poroelastic(1,1))
+       allocate(nibool_interfaces_acoustic(1))
+       allocate(nibool_interfaces_elastic(1))
+       allocate(nibool_interfaces_poroelastic(1))
+       allocate(inum_interfaces_acoustic(1))
+       allocate(inum_interfaces_elastic(1))
+       allocate(inum_interfaces_poroelastic(1))
+    endif
   endif