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

MESH: Send primitive variables in redistribute_blocks() too.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-01-08 15:51:31 -02:00
parent 7f585f4ffe
commit a366a9cede
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mesh.F90
View File

@ -1402,7 +1402,7 @@ module mesh
! 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