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

Remove unnecessary argument from bnd_copy() subroutine.

Browse Source 
BOUNDARY CONDITIONS

 - if the blocks are on the same level there is no need for iteration
   over the faces; remove the argument iface from the subroutine
   bnd_copy() since it is not used;
This commit is contained in:
Grzegorz Kowal 2010-07-20 11:39:23 -03:00
parent ea448122be
commit b9dd7d97e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boundaries.F90
View File

@ -361,7 +361,7 @@ module boundaries
!
!===============================================================================
!
subroutine bnd_copy(pdata, u, idir, iside, iface)
subroutine bnd_copy(pdata, u, idir, iside)
use blocks, only : block_data, nfl, nqt
#ifdef MHD
@ -379,7 +379,7 @@ module boundaries
type(block_data), pointer , intent(inout) :: pdata
real , dimension(nqt,im,jm,km), intent(in) :: u
integer , intent(in) :: idir, iside, iface
integer , intent(in) :: idir, iside
! local variables
!