fix serial compile errors

amend previous commit
bugfix: missing nprocs import
amend previous commit

src/main/mpi_balance.F90

@@ -14,15 +14,16 @@ module mpibalance
 !
 ! :Runtime parameters: None
 !
-! :Dependencies: dim, io, mpi, mpiutils, part, timing
+! :Dependencies: allocutils, io, mpi, mpiutils, part, timing
 !
 #ifdef MPI
  use mpi
- use io,       only:id,nprocs
+ use io,       only:id
  use mpiutils, only:mpierr,status,MPI_DEFAULT_REAL,reduceall_mpi, &
                     comm_balance,comm_balancecount
  use part,     only:ipartbufsize
 #endif
+ use io,       only:nprocs
 
  implicit none
 
@@ -32,22 +33,22 @@ module mpibalance
  private
 
 #ifdef MPI
- real, dimension(ipartbufsize)  :: xsendbuf,xbuffer
- integer, dimension(1) :: irequestrecv,irequestsend
- integer(kind=8) :: ntot_start
+ real,            dimension(ipartbufsize)  :: xsendbuf,xbuffer
+ integer,         dimension(1)             :: irequestrecv,irequestsend
+ integer(kind=8)                           :: ntot_start
+ integer                                   :: npartnew, ncomplete
+#endif
  integer,allocatable :: nsent(:),nexpect(:),nrecv(:)
  integer,allocatable :: countrequest(:)
- integer :: npartnew, ncomplete
-#endif
 
 contains
 
 subroutine allocate_balance_arrays
-   use allocutils, only:allocate_array
-   call allocate_array('nsent',       nsent,       nprocs)
-   call allocate_array('nexpect',     nexpect,     nprocs)
-   call allocate_array('nrecv',       nrecv,       nprocs)
-   call allocate_array('countrequest',countrequest,nprocs)
+ use allocutils, only:allocate_array
+ call allocate_array('nsent',       nsent,       nprocs)
+ call allocate_array('nexpect',     nexpect,     nprocs)
+ call allocate_array('nrecv',       nrecv,       nprocs)
+ call allocate_array('countrequest',countrequest,nprocs)
 end subroutine allocate_balance_arrays
 
 !----------------------------------------------------------------
@@ -239,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
@@ -279,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

src/main/mpi_derivs.F90

@@ -80,6 +80,7 @@ module mpiderivs
  integer :: dtype_cellforce
 
  integer :: globallevel
+#endif
  integer,allocatable :: comm_cofm(:)  ! only comms up to globallevel are used
  integer,allocatable :: comm_owner(:) ! only comms up to globallevel are used
 
@@ -88,7 +89,6 @@ module mpiderivs
  integer,allocatable :: nrecv(:)     ! counter for number of cells received from i
 
  integer,allocatable :: countrequest(:)
-#endif
 
 contains