From 07b8b3655cd3b20d573cbc685bcc7c3704063a90 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 10 Nov 2022 16:35:05 +0100
Subject: [PATCH] small bugs correction
---
src/ghosts_mod.F90 | 3 ++-
src/processing_mod.F90 | 6 +++---
2 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/src/ghosts_mod.F90 b/src/ghosts_mod.F90
index bea0f5c4..0f3136bf 100644
--- a/src/ghosts_mod.F90
+++ b/src/ghosts_mod.F90
@@ -39,7 +39,8 @@ SUBROUTINE update_ghosts_EM
IF(beta .GT. 0._dp) &
CALL update_ghosts_z_psi
ENDIF
-
+
+ CALL cpu_time(t1_ghost)
tc_ghost = tc_ghost + (t1_ghost - t0_ghost)
END SUBROUTINE update_ghosts_EM
diff --git a/src/processing_mod.F90 b/src/processing_mod.F90
index d0157a5b..ac908a70 100644
--- a/src/processing_mod.F90
+++ b/src/processing_mod.F90
@@ -378,7 +378,7 @@ SUBROUTINE compute_radial_electron_heatflux
buffer(2) = 2._dp*REAL(hflux_local)
root = 0
!Gather manually among the rank_p=0 processes and perform the sum
- hflux_xi = 0
+ hflux_xe = 0
IF (num_procs_ky .GT. 1) THEN
!! Everyone sends its local_sum to root = 0
IF (rank_ky .NE. root) THEN
@@ -388,11 +388,11 @@ SUBROUTINE compute_radial_electron_heatflux
DO i_ = 0,num_procs_ky-1
IF (i_ .NE. rank_ky) &
CALL MPI_RECV(buffer, 2 , MPI_DOUBLE_PRECISION, i_, 1234, comm_ky, MPI_STATUS_IGNORE, ierr)
- hflux_xi = hflux_xi + buffer(2)
+ hflux_xe = hflux_xe + buffer(2)
ENDDO
ENDIF
ELSE
- hflux_xi = hflux_local
+ hflux_xe = hflux_local
ENDIF
END SUBROUTINE compute_radial_electron_heatflux
--
GitLab