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
20
src/mesh.F90
20
src/mesh.F90
@ -1384,25 +1384,25 @@ module mesh
|
|||||||
#ifdef MPI
|
#ifdef MPI
|
||||||
! local variables
|
! local variables
|
||||||
!
|
!
|
||||||
integer :: iret
|
integer :: iret
|
||||||
integer(kind=4) :: np, nl
|
integer(kind=4) :: np, nl
|
||||||
|
|
||||||
! local pointers
|
! local pointers
|
||||||
!
|
!
|
||||||
type(block_meta), pointer :: pmeta
|
type(block_meta), pointer :: pmeta
|
||||||
type(block_data), pointer :: pdata
|
type(block_data), pointer :: pdata
|
||||||
|
|
||||||
! tag for the MPI data exchange
|
! tag for the MPI data exchange
|
||||||
!
|
!
|
||||||
integer(kind=4) :: itag
|
integer(kind=4) :: itag
|
||||||
|
|
||||||
! array for number of data block for autobalancing
|
! array for number of data block for autobalancing
|
||||||
!
|
!
|
||||||
integer(kind=4), dimension(0:nprocs-1) :: lb
|
integer(kind=4), dimension(0:nprocs-1) :: lb
|
||||||
|
|
||||||
! local buffer for data block exchange
|
! 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 */
|
#endif /* MPI */
|
||||||
|
|
||||||
!-------------------------------------------------------------------------------
|
!-------------------------------------------------------------------------------
|
||||||
@ -1451,7 +1451,8 @@ module mesh
|
|||||||
|
|
||||||
! copy data to buffer
|
! copy data to buffer
|
||||||
!
|
!
|
||||||
rbuf(:,:,:,:) = pmeta%data%u(:,:,:,:)
|
rbuf(1,:,:,:,:) = pmeta%data%u(:,:,:,:)
|
||||||
|
rbuf(2,:,:,:,:) = pmeta%data%q(:,:,:,:)
|
||||||
|
|
||||||
! send data
|
! send data
|
||||||
!
|
!
|
||||||
@ -1480,7 +1481,8 @@ module mesh
|
|||||||
|
|
||||||
! coppy the buffer to data block
|
! coppy the buffer to data block
|
||||||
!
|
!
|
||||||
pmeta%data%u(:,:,:,:) = rbuf(:,:,:,:)
|
pmeta%data%u(:,:,:,:) = rbuf(1,:,:,:,:)
|
||||||
|
pmeta%data%q(:,:,:,:) = rbuf(2,:,:,:,:)
|
||||||
|
|
||||||
end if ! nproc == n
|
end if ! nproc == n
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user