diff --git a/src/processing_mod.F90 b/src/processing_mod.F90
index 53ece95624f899559abca90653f04f8b272ff6f2..aa483103a6f52752b9e1284a256fa21eded2e387 100644
--- a/src/processing_mod.F90
+++ b/src/processing_mod.F90
@@ -45,12 +45,12 @@ SUBROUTINE compute_radial_ion_transport
         pflux_ri = 0
         IF (num_procs_kr .GT. 1) THEN
             !! Everyone sends its local_sum to root = 0
-            IF (rank_r .NE. root) THEN
+            IF (rank_kr .NE. root) THEN
                 CALL MPI_SEND(buffer, 2 , MPI_DOUBLE_PRECISION, root, 1234, comm_kr, ierr)
             ELSE
                 ! Recieve from all the other processes
                 DO i_ = 0,num_procs_kr-1
-                    IF (i_ .NE. rank_r) &
+                    IF (i_ .NE. rank_kr) &
                         CALL MPI_RECV(buffer, 2 , MPI_DOUBLE_PRECISION, i_, 1234, comm_kr, MPI_STATUS_IGNORE, ierr)
                         gflux_ri = gflux_ri + buffer(1)
                         pflux_ri = pflux_ri + buffer(2)