diff --git a/CONTRIBUTORS.md b/CONTRIBUTORS.md
index 330c865c6..e21bc126d 100644
--- a/CONTRIBUTORS.md
+++ b/CONTRIBUTORS.md
@@ -14,3 +14,4 @@
 | harry-shepherd   | Harry Shepherd    | Met Office  | 2026-01-08 |
 | EdHone           | Ed Hone           | Met Office  | 2026-01-09 |
 | tom-j-h          | Tom Hill          | Met Office  | 2026-01-19 |
+| shreybh1         | Shrey Bhardwaj    | EPCC        | 2026-02-13 |
diff --git a/infrastructure/source/utilities/halo_comms_mod.F90 b/infrastructure/source/utilities/halo_comms_mod.F90
index 2691e65ce..bf9cd0e34 100644
--- a/infrastructure/source/utilities/halo_comms_mod.F90
+++ b/infrastructure/source/utilities/halo_comms_mod.F90
@@ -849,11 +849,6 @@ function generate_redistribution_map(src_indices, tgt_indices, datatype, xmap) &
     src_idxlist = xt_idxvec_new( src_indices, size(src_indices) )
     tgt_idxlist = xt_idxvec_new( tgt_indices, size(tgt_indices) )
 
-    ! generate exchange map
-    comm = global_mpi%get_comm()
-    xmap = xt_xmap_dist_dir_new( src_idxlist, tgt_idxlist, &
-                                 comm%get_comm_mpi_val() )
-
     allocate(src_offsets( size(src_indices) ))
     allocate(tgt_offsets( size(tgt_indices) ))
 
@@ -865,7 +860,6 @@ function generate_redistribution_map(src_indices, tgt_indices, datatype, xmap) &
       tgt_offsets(i) = i + size(src_indices) - 1
     end do
 
-    datatype_mpi_val = datatype%get_datatype_mpi_val()
     redist = xt_redist_p2p_off_new(xmap, src_offsets,tgt_offsets, datatype_mpi_val)
 
     deallocate(src_offsets)