[cig-commits] r17955 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-02-23 09:52:39 -0800 (Wed, 23 Feb 2011)
New Revision: 17955

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
Log:
fixed unallocated arrays for the central cube in the case of fewer than 6 chunks (these arrays are now used in the call to the compute_forces* subroutines in order to handle non blocking MPI)


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90	2011-02-23 05:45:13 UTC (rev 17954)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90	2011-02-23 17:52:39 UTC (rev 17955)
@@ -1468,6 +1468,15 @@
          idoubling_inner_core,npoin2D_cube_from_slices,ibool_central_cube, &
          NSPEC2D_BOTTOM(IREGION_INNER_CORE),ichunk)
 
+  else
+
+    ! allocate fictitious buffers for cube and slices with a dummy size, just to be able to use them as arguments in subroutine calls
+    allocate(sender_from_slices_to_cube(1))
+    allocate(buffer_all_cube_from_slices(1,1,1))
+    allocate(buffer_slices(1,1))
+    allocate(buffer_slices2(1,1))
+    allocate(ibool_central_cube(1,1))
+
   endif
 
   ! check that all the mass matrices are positive