gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into new_time_advance

Browse Source
This commit is contained in:
Grzegorz Kowal 2012-07-31 14:37:34 -03:00
commit b337e89f88
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boundaries.F90
View File

@ -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