[cig-commits] r13319 - seismo/3D/SPECFEM3D_SESAME/trunk

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-11-16 14:52:03 -0800 (Sun, 16 Nov 2008)
New Revision: 13319

Modified:
   seismo/3D/SPECFEM3D_SESAME/trunk/specfem3D.f90
Log:
fixed a bug with movie generation : only process zero should allocate the whole array for gathering data.

Modified: seismo/3D/SPECFEM3D_SESAME/trunk/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/trunk/specfem3D.f90	2008-11-16 08:15:03 UTC (rev 13318)
+++ seismo/3D/SPECFEM3D_SESAME/trunk/specfem3D.f90	2008-11-16 22:52:03 UTC (rev 13319)
@@ -1087,6 +1087,7 @@
       endif
     endif
     call sum_all_i(nfaces_surface_external_mesh,nfaces_surface_glob_ext_mesh)
+    if (myrank == 0) then
     if (USE_HIGHRES_FOR_MOVIES) then
     allocate(store_val_x_all_external_mesh(NGLLX*NGLLY*nfaces_surface_glob_ext_mesh))
     allocate(store_val_y_all_external_mesh(NGLLX*NGLLY*nfaces_surface_glob_ext_mesh))
@@ -1102,6 +1103,7 @@
     allocate(store_val_uy_all_external_mesh(NGNOD2D*nfaces_surface_glob_ext_mesh))
     allocate(store_val_uz_all_external_mesh(NGNOD2D*nfaces_surface_glob_ext_mesh))
     endif
+    endif
     call gather_all_i(nfaces_surface_external_mesh,1,nfaces_perproc_surface_ext_mesh,1,NPROC)
     
     faces_surface_offset_ext_mesh(1) = 0