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

Remove unnecessary case conditions from boundary_variables().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-17 14:14:01 -03:00
parent 8c4e774d1f
commit 70f3098d31
1 changed files with 17 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
src/boundaries.F90
View File

@ -627,53 +627,27 @@ module boundaries
!
call mrecvf(size(rbuf(:,:,:,:,:)), isend, itag, rbuf(:,:,:,:,:))
! update boundaries using the data received in the buffer
! iterate over all received blocks and update boundaries
!
select case(idir)
case(1)
l = 1
pinfo => block_array(1,irecv,isend)%ptr
do while(associated(pinfo))
l = 1
pinfo => block_array(1,irecv,isend)%ptr
do while(associated(pinfo))
iside = pinfo%side
pdata => pinfo%block%data
! set indices
!
iside = pinfo%side
call boundary_copy(pdata, rbuf(l,:,:,:,:), idir, iside)
! assign a pointer to the data structure of the current block
!
pdata => pinfo%block%data
pinfo => pinfo%prev
l = l + 1
end do
! update the boundaries of the current block
!
call boundary_copy(pdata, rbuf(l,:,:,:,:), idir, iside)
case(2)
l = 1
pinfo => block_array(1,irecv,isend)%ptr
do while(associated(pinfo))
iside = pinfo%side
pdata => pinfo%block%data
call boundary_copy(pdata, rbuf(l,:,:,:,:), idir, iside)
pinfo => pinfo%prev
l = l + 1
end do
#if NDIMS == 3
case(3)
l = 1
pinfo => block_array(1,irecv,isend)%ptr
do while(associated(pinfo))
iside = pinfo%side
pdata => pinfo%block%data
call boundary_copy(pdata, rbuf(l,:,:,:,:), idir, iside)
pinfo => pinfo%prev
l = l + 1
end do
#endif /* NDIMS == 3 */
end select
pinfo => pinfo%prev
l = l + 1
end do
end if ! irecv = ncpu
@ -808,20 +782,9 @@ module boundaries
! update the boundaries of the current block
!
select case(idir)
case(1)
call boundary_restrict(pdata, rbuf(l,:,:,:,:) &
call boundary_restrict(pdata, rbuf(l,:,:,:,:) &
, idir, iside, iface)
case(2)
call boundary_restrict(pdata, rbuf(l,:,:,:,:) &
, idir, iside, iface)
case(3)
call boundary_restrict(pdata, rbuf(l,:,:,:,:) &
, idir, iside, iface)
end select
pinfo => pinfo%prev
l = l + 1
end do