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

MESH: Redistribute all variable arrays in redistribute_blocks().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-09-17 08:34:47 -03:00
parent f89d213386
commit 7c3a621096
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mesh.F90
View File

@ -878,7 +878,7 @@ module mesh
! local buffer for data block exchange
!
real(kind=8) , dimension(2,nv,im,jm,km) :: rbuf
real(kind=8) , dimension(3,nv,im,jm,km) :: rbuf
#endif /* MPI */
!-------------------------------------------------------------------------------
@ -931,8 +931,9 @@ module mesh
! copy data to buffer
!
rbuf(1,:,:,:,:) = pmeta%data%u(:,:,:,:)
rbuf(2,:,:,:,:) = pmeta%data%q(:,:,:,:)
rbuf(1,:,:,:,:) = pmeta%data%q (:,:,:,:)
rbuf(2,:,:,:,:) = pmeta%data%u0(:,:,:,:)
rbuf(3,:,:,:,:) = pmeta%data%u1(:,:,:,:)
! send data
!
@ -961,8 +962,9 @@ module mesh
! coppy the buffer to data block
!
pmeta%data%u(:,:,:,:) = rbuf(1,:,:,:,:)
pmeta%data%q(:,:,:,:) = rbuf(2,:,:,:,:)
pmeta%data%q (:,:,:,:) = rbuf(1,:,:,:,:)
pmeta%data%u0(:,:,:,:) = rbuf(2,:,:,:,:)
pmeta%data%u1(:,:,:,:) = rbuf(3,:,:,:,:)
end if ! nproc == n