diff --git a/cicecore/cicedyn/infrastructure/comm/mpi/ice_boundary.F90 b/cicecore/cicedyn/infrastructure/comm/mpi/ice_boundary.F90
index a33e050b9..11cd0d2e1 100644
--- a/cicecore/cicedyn/infrastructure/comm/mpi/ice_boundary.F90
+++ b/cicecore/cicedyn/infrastructure/comm/mpi/ice_boundary.F90
@@ -1333,7 +1333,7 @@ subroutine ice_HaloUpdate2DR8(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)
-      call MPI_IRECV(bufRecvR8(1:len,nmsg), len, mpiR8, &
+      call MPI_IRECV(bufRecvR8(1,nmsg), len, mpiR8, &
                      halo%recvTask(nmsg),               &
                      mpitagHalo + halo%recvTask(nmsg),  &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -1359,7 +1359,7 @@ subroutine ice_HaloUpdate2DR8(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)
-      call MPI_ISEND(bufSendR8(1:len,nmsg), len, mpiR8, &
+      call MPI_ISEND(bufSendR8(1,nmsg), len, mpiR8, &
                      halo%sendTask(nmsg),               &
                      mpitagHalo + my_task,              &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -1768,7 +1768,7 @@ subroutine ice_HaloUpdate2DR4(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)
-      call MPI_IRECV(bufRecvR4(1:len,nmsg), len, mpiR4, &
+      call MPI_IRECV(bufRecvR4(1,nmsg), len, mpiR4, &
                      halo%recvTask(nmsg),               &
                      mpitagHalo + halo%recvTask(nmsg),  &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -1794,7 +1794,7 @@ subroutine ice_HaloUpdate2DR4(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)
-      call MPI_ISEND(bufSendR4(1:len,nmsg), len, mpiR4, &
+      call MPI_ISEND(bufSendR4(1,nmsg), len, mpiR4, &
                      halo%sendTask(nmsg),               &
                      mpitagHalo + my_task,              &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -2183,7 +2183,7 @@ subroutine ice_HaloUpdate2DI4(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)
-      call MPI_IRECV(bufRecvI4(1:len,nmsg), len, MPI_INTEGER, &
+      call MPI_IRECV(bufRecvI4(1,nmsg), len, MPI_INTEGER, &
                      halo%recvTask(nmsg),                     &
                      mpitagHalo + halo%recvTask(nmsg),        &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -2209,7 +2209,7 @@ subroutine ice_HaloUpdate2DI4(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)
-      call MPI_ISEND(bufSendI4(1:len,nmsg), len, MPI_INTEGER, &
+      call MPI_ISEND(bufSendI4(1,nmsg), len, MPI_INTEGER, &
                      halo%sendTask(nmsg),                     &
                      mpitagHalo + my_task,                    &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -2702,7 +2702,7 @@ subroutine ice_HaloUpdate3DR8(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)*nz
-      call MPI_IRECV(bufRecv(1:len,nmsg), len, mpiR8,   &
+      call MPI_IRECV(bufRecv(1,nmsg), len, mpiR8,   &
                      halo%recvTask(nmsg),               &
                      mpitagHalo + halo%recvTask(nmsg),  &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -2732,7 +2732,7 @@ subroutine ice_HaloUpdate3DR8(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)*nz
-      call MPI_ISEND(bufSend(1:len,nmsg), len, mpiR8, &
+      call MPI_ISEND(bufSend(1,nmsg), len, mpiR8, &
                      halo%sendTask(nmsg),             &
                      mpitagHalo + my_task,            &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -3176,7 +3176,7 @@ subroutine ice_HaloUpdate3DR4(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)*nz
-      call MPI_IRECV(bufRecv(1:len,nmsg), len, mpiR4,   &
+      call MPI_IRECV(bufRecv(1,nmsg), len, mpiR4,   &
                      halo%recvTask(nmsg),               &
                      mpitagHalo + halo%recvTask(nmsg),  &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -3206,7 +3206,7 @@ subroutine ice_HaloUpdate3DR4(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)*nz
-      call MPI_ISEND(bufSend(1:len,nmsg), len, mpiR4, &
+      call MPI_ISEND(bufSend(1,nmsg), len, mpiR4, &
                      halo%sendTask(nmsg),             &
                      mpitagHalo + my_task,            &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -3650,7 +3650,7 @@ subroutine ice_HaloUpdate3DI4(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)*nz
-      call MPI_IRECV(bufRecv(1:len,nmsg), len, MPI_INTEGER, &
+      call MPI_IRECV(bufRecv(1,nmsg), len, MPI_INTEGER, &
                      halo%recvTask(nmsg),                   &
                      mpitagHalo + halo%recvTask(nmsg),      &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -3680,7 +3680,7 @@ subroutine ice_HaloUpdate3DI4(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)*nz
-      call MPI_ISEND(bufSend(1:len,nmsg), len, MPI_INTEGER, &
+      call MPI_ISEND(bufSend(1,nmsg), len, MPI_INTEGER, &
                      halo%sendTask(nmsg),                   &
                      mpitagHalo + my_task,                  &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -4125,7 +4125,7 @@ subroutine ice_HaloUpdate4DR8(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)*nz*nt
-      call MPI_IRECV(bufRecv(1:len,nmsg), len, mpiR8,  &
+      call MPI_IRECV(bufRecv(1,nmsg), len, mpiR8,  &
                      halo%recvTask(nmsg),              &
                      mpitagHalo + halo%recvTask(nmsg), &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -4158,7 +4158,7 @@ subroutine ice_HaloUpdate4DR8(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)*nz*nt
-      call MPI_ISEND(bufSend(1:len,nmsg), len, mpiR8, &
+      call MPI_ISEND(bufSend(1,nmsg), len, mpiR8, &
                      halo%sendTask(nmsg),             &
                      mpitagHalo + my_task,            &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -4623,7 +4623,7 @@ subroutine ice_HaloUpdate4DR4(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)*nz*nt
-      call MPI_IRECV(bufRecv(1:len,nmsg), len, mpiR4,  &
+      call MPI_IRECV(bufRecv(1,nmsg), len, mpiR4,  &
                      halo%recvTask(nmsg),              &
                      mpitagHalo + halo%recvTask(nmsg), &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -4656,7 +4656,7 @@ subroutine ice_HaloUpdate4DR4(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)*nz*nt
-      call MPI_ISEND(bufSend(1:len,nmsg), len, mpiR4, &
+      call MPI_ISEND(bufSend(1,nmsg), len, mpiR4, &
                      halo%sendTask(nmsg),             &
                      mpitagHalo + my_task,            &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -5121,7 +5121,7 @@ subroutine ice_HaloUpdate4DI4(array, halo,                    &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)*nz*nt
-      call MPI_IRECV(bufRecv(1:len,nmsg), len, MPI_INTEGER, &
+      call MPI_IRECV(bufRecv(1,nmsg), len, MPI_INTEGER, &
                      halo%recvTask(nmsg),                   &
                      mpitagHalo + halo%recvTask(nmsg),      &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -5154,7 +5154,7 @@ subroutine ice_HaloUpdate4DI4(array, halo,                    &
       end do
 
       len = halo%SizeSend(nmsg)*nz*nt
-      call MPI_ISEND(bufSend(1:len,nmsg), len, MPI_INTEGER, &
+      call MPI_ISEND(bufSend(1,nmsg), len, MPI_INTEGER, &
                      halo%sendTask(nmsg),                   &
                      mpitagHalo + my_task,                  &
                      halo%communicator, sndRequest(nmsg), ierr)
@@ -5588,7 +5588,7 @@ subroutine ice_HaloUpdate_stress(array1, array2, halo, &
    do nmsg=1,halo%numMsgRecv
 
       len = halo%SizeRecv(nmsg)
-      call MPI_IRECV(bufRecvR8(1:len,nmsg), len, mpiR8, &
+      call MPI_IRECV(bufRecvR8(1,nmsg), len, mpiR8, &
                      halo%recvTask(nmsg),               &
                      mpitagHalo + halo%recvTask(nmsg),  &
                      halo%communicator, rcvRequest(nmsg), ierr)
@@ -5614,7 +5614,7 @@ subroutine ice_HaloUpdate_stress(array1, array2, halo, &
       end do
 
       len = halo%SizeSend(nmsg)
-      call MPI_ISEND(bufSendR8(1:len,nmsg), len, mpiR8, &
+      call MPI_ISEND(bufSendR8(1,nmsg), len, mpiR8, &
                      halo%sendTask(nmsg),               &
                      mpitagHalo + my_task,              &
                      halo%communicator, sndRequest(nmsg), ierr)