[cig-commits] r23003 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D
lefebvre at geodynamics.org
lefebvre at geodynamics.org
Thu Mar 6 07:25:50 PST 2014
Author: lefebvre
Date: 2014-03-06 07:25:49 -0800 (Thu, 06 Mar 2014)
New Revision: 23003
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90
Log:
bug fix: variable local dimension <= constant offset in adios mpi arrays.
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-04 22:10:51 UTC (rev 23002)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90 2014-03-06 15:25:49 UTC (rev 23003)
@@ -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_wmax
+ local_dim = num_interfaces
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_wmax * num_interfaces_wmax
+ local_dim = max_nibool_interfaces * num_interfaces
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_wmax * 2
+ local_dim = num_phase_ispec * 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_wmax + num_colors_inner_wmax
+ local_dim = num_colors_outer + num_colors_inner
call write_adios_global_1d_array(handle, myrank, sizeprocs, local_dim, &
trim(region_name) // STRINGIFY_VAR(num_elem_colors))
endif
More information about the CIG-COMMITS
mailing list