diff --git a/src/ghosts_mod.F90 b/src/ghosts_mod.F90 index bea0f5c41c5e996b6c4ce4ef004fbf970f374c8b..0f3136bf665f2be95b9f90c265859ad4cf40d990 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 d0157a5b85d092952c07212dbc70f2ae6fd79b48..ac908a7033ee6dfa35af925c63f55e7cf4264912 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