From 771c769c706ffe98339a5213856e25c6219830b5 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Tue, 31 Jul 2012 14:37:05 -0300 Subject: [PATCH] Fix the flux boundary update. --- src/boundaries.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/boundaries.F90 b/src/boundaries.F90 index d7fe356..8513a01 100644 --- a/src/boundaries.F90 +++ b/src/boundaries.F90 @@ -1612,7 +1612,7 @@ module boundaries integer :: idir, iside, iface integer :: is, js, ks #ifdef MPI - integer :: irecv, isend, nblocks, itag, l + integer :: irecv, isend, nblocks, itag, l, iret ! local arrays ! @@ -1875,7 +1875,7 @@ module boundaries ! 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