From c7fa939998c0bc64cb9b8283bf303b8be0d2828e Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 12 Apr 2021 11:22:12 +0200
Subject: [PATCH] naming change of comm_r to comm_kr
---
src/processing_mod.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/processing_mod.F90 b/src/processing_mod.F90
index 53ece956..aa483103 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)
--
GitLab