Skip to content
Permalink

Comparing changes

This is a direct comparison between two commits made in this repository or its related repositories. View the default comparison for this range or learn more about diff comparisons.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also . Learn more about diff comparisons here.
base repository: danieljprice/phantom
Failed to load repositories. Confirm that selected base ref is valid, then try again.
Loading
base: 78725d403095eab847c3caa185787955fbadaeb3
Choose a base ref
..
head repository: danieljprice/phantom
Failed to load repositories. Confirm that selected head ref is valid, then try again.
Loading
compare: 25e44347bf6dc0dc9d77f5b8b75e89d08760c957
Choose a head ref
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/main/mpi_balance.F90
10 changes: 5 additions & 5 deletions src/main/mpi_balance.F90
View file
Original file line number Diff line number Diff line change
@@ -23,6 +23,7 @@ module mpibalance
comm_balance,comm_balancecount
use part, only:ipartbufsize
#endif
use io, only:nprocs

implicit none

@@ -43,7 +44,6 @@ module mpibalance
contains

subroutine allocate_balance_arrays
use io, only:nprocs
use allocutils, only:allocate_array
call allocate_array('nsent', nsent, nprocs)
call allocate_array('nexpect', nexpect, nprocs)
@@ -61,7 +61,7 @@ subroutine balancedomains(npart)
#ifndef MPI
integer, intent(inout) :: npart
#else
use io, only:id,master,iverbose,fatal,nprocs
use io, only:id,master,iverbose,fatal
use part, only:shuffle_part,count_dead_particles,ibelong,update_npartoftypetot
use timing, only:getused,printused
use mpiutils, only:barrier_mpi
@@ -240,7 +240,7 @@ end subroutine recv_part
!+
!-----------------------------------------------------------------------
subroutine send_part(i,newproc,replace)
use io, only:fatal,nprocs
use io, only:fatal
use part, only:fill_sendbuf,kill_particle
integer, intent(in) :: i,newproc
logical, intent(in), optional :: replace
@@ -280,7 +280,7 @@ end subroutine send_part
!+
!----------------------------------------------------------------
subroutine balance_finish(npart,replace)
use io, only:id,nprocs,fatal,iverbose
use io, only:id,fatal,iverbose
use part, only:recount_npartoftype
integer, intent(out) :: npart
logical, intent(in), optional :: replace
@@ -338,7 +338,7 @@ subroutine balance_finish(npart,replace)
end subroutine balance_finish

subroutine check_complete
use io, only:fatal,nprocs
use io, only:fatal
integer :: i
logical :: countreceived