Skip to content

Commit 2126d4e

Browse files
Fixed compiler issue for non-mpi cases
1 parent f282fe9 commit 2126d4e

1 file changed

Lines changed: 0 additions & 2 deletions

File tree

src/simulation/m_start_up.fpp

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1282,7 +1282,6 @@ contains
12821282
integer :: ierr
12831283
integer, dimension(4) :: buf4
12841284
integer, dimension(2) :: buf2, rbuf2
1285-
#endif
12861285

12871286
ax = ib_neighborhood_radius
12881287

@@ -1291,7 +1290,6 @@ contains
12911290
ib_neighbor_ranks = MPI_PROC_NULL
12921291
ib_neighbor_ranks(0, 0, 0) = proc_rank
12931292

1294-
#ifdef MFC_MPI
12951293
! Fill radius-1 entries: face neighbors are known from domain decomposition
12961294
ib_neighbor_ranks(-1, 0, 0) = bc_x%beg
12971295
ib_neighbor_ranks(+1, 0, 0) = bc_x%end

0 commit comments

Comments
 (0)