Do not attempt to reassign submaps in allreduce mode

hpc4cmb · Mar 15, 2018 · fe95ae1 · fe95ae1
1 parent 770f84d
commit fe95ae1
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/maptod_transfer.f90 b/src/maptod_transfer.f90
@@ -324,6 +324,10 @@ SUBROUTINE assign_submaps(id_submap, nosubmaps, nopix_map, nopix_cross, &
     integer, allocatable :: nosubmaps_task(:)
     integer :: isubmap_start, isubmap_stop
 
+    ! Every process owns every submap in allreduce mode
+
+    if (allreduce) return
+
     if (.not. allocated(ksubmap_table)) &
          call abort_mpi('assign_submaps: ksubmap_table not allocated')