MESH: Send primitive variables in redistribute_blocks() too.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
7f585f4ffe
commit
a366a9cede
@ -1402,7 +1402,7 @@ module mesh
|
||||
|
||||
! local buffer for data block exchange
|
||||
!
|
||||
real(kind=8) , dimension(nv,im,jm,km) :: rbuf
|
||||
real(kind=8) , dimension(2,nv,im,jm,km) :: rbuf
|
||||
#endif /* MPI */
|
||||
|
||||
!-------------------------------------------------------------------------------
|
||||
@ -1451,7 +1451,8 @@ module mesh
|
||||
|
||||
! copy data to buffer
|
||||
!
|
||||
rbuf(:,:,:,:) = pmeta%data%u(:,:,:,:)
|
||||
rbuf(1,:,:,:,:) = pmeta%data%u(:,:,:,:)
|
||||
rbuf(2,:,:,:,:) = pmeta%data%q(:,:,:,:)
|
||||
|
||||
! send data
|
||||
!
|
||||
@ -1480,7 +1481,8 @@ module mesh
|
||||
|
||||
! coppy the buffer to data block
|
||||
!
|
||||
pmeta%data%u(:,:,:,:) = rbuf(:,:,:,:)
|
||||
pmeta%data%u(:,:,:,:) = rbuf(1,:,:,:,:)
|
||||
pmeta%data%q(:,:,:,:) = rbuf(2,:,:,:,:)
|
||||
|
||||
end if ! nproc == n
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user