[cig-commits] r23008 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2014-03-07 10:37:54 -0800 (Fri, 07 Mar 2014)
New Revision: 23008

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90
Log:
local dimensions revert to constant offset. otherwise the solver fails to read the correct values from the adios files.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90	2014-03-07 04:32:13 UTC (rev 23007)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90	2014-03-07 18:37:54 UTC (rev 23008)
@@ -1389,7 +1389,7 @@
   if( num_interfaces > 0 ) then
     call adios_write(handle, trim(region_name) // "max_nibool_interfaces", &
         max_nibool_interfaces, adios_err)
-    local_dim = num_interfaces
+    local_dim = num_interfaces_wmax
     call write_adios_global_1d_array(handle, myrank, sizeprocs,      &
                                      local_dim, trim(region_name) // &
                                      STRINGIFY_VAR(my_neighbours))
@@ -1397,7 +1397,7 @@
                                      local_dim,  trim(region_name) // &
                                      STRINGIFY_VAR(nibool_interfaces))
 
-    local_dim = max_nibool_interfaces * num_interfaces
+    local_dim = max_nibool_interfaces_wmax * num_interfaces_wmax
     call write_adios_global_1d_array(handle, myrank, sizeprocs,      &
                                      local_dim, trim(region_name) // &
                                      STRINGIFY_VAR(ibool_interfaces))
@@ -1412,7 +1412,7 @@
                    num_phase_ispec, adios_err)
 
   if(num_phase_ispec > 0 ) then
-    local_dim = num_phase_ispec * 2
+    local_dim = num_phase_ispec_wmax * 2
     call write_adios_global_1d_array(handle, myrank, sizeprocs, local_dim, &
                           trim(region_name) // STRINGIFY_VAR(phase_ispec_inner))
   endif
@@ -1424,7 +1424,7 @@
     call adios_write(handle, trim(region_name) // "num_colors_inner", &
                      nspec_inner, adios_err)
 
-    local_dim = num_colors_outer + num_colors_inner
+    local_dim = num_colors_outer_wmax + num_colors_inner_wmax
     call write_adios_global_1d_array(handle, myrank, sizeprocs, local_dim, &
                             trim(region_name) // STRINGIFY_VAR(num_elem_colors))
   endif