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..0546fe2f0 100644
--- a/infrastructure/source/utilities/halo_comms_mod.F90
+++ b/infrastructure/source/utilities/halo_comms_mod.F90
@@ -841,7 +841,6 @@ function generate_redistribution_map(src_indices, tgt_indices, datatype, xmap) &
   integer(i_def), allocatable :: src_offsets(:)
   integer(i_def), allocatable :: tgt_offsets(:)
   integer(i_def) :: i
-  type(lfric_comm_type) :: comm
   integer(i_def) :: datatype_mpi_val
 
   if( global_mpi%is_comm_set() )then
@@ -849,11 +848,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) ))