Fix the flux boundary update.

This commit is contained in:
Grzegorz Kowal 2012-07-31 14:37:05 -03:00
parent b09f21351a
commit 771c769c70

View File

@ -1612,7 +1612,7 @@ module boundaries
integer :: idir, iside, iface integer :: idir, iside, iface
integer :: is, js, ks integer :: is, js, ks
#ifdef MPI #ifdef MPI
integer :: irecv, isend, nblocks, itag, l integer :: irecv, isend, nblocks, itag, l, iret
! local arrays ! local arrays
! !
@ -1875,7 +1875,7 @@ module boundaries
! send data buffer ! send data buffer
! !
call send_arra_real(size(rbuf(:,:,:,:)), irecv, itag, rbuf(:,:,:,:), iret) call send_real_array(size(rbuf(:,:,:,:)), irecv, itag, rbuf(:,:,:,:), iret)
end if ! isend = nproc end if ! isend = nproc