BOUNDARIES: Pass t and dt to boundaries_specific().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2017-03-07 16:06:33 -03:00
parent 334252c83d
commit e503c4fc0a

View File

@ -400,7 +400,7 @@ module boundaries
! update specific boundaries
!
call boundaries_specific()
call boundaries_specific(t, dt)
#if NDIMS == 3
! prolong face boundaries from lower level blocks
@ -424,7 +424,7 @@ module boundaries
! update specific boundaries
!
call boundaries_specific()
call boundaries_specific(t, dt)
! convert updated primitive variables to conservative ones in all ghost cells
!
@ -1042,10 +1042,13 @@ module boundaries
! neighbors and update the corresponding boundaries for the selected
! boundary type.
!
! Arguments:
!
! t, dt - time and time increment;
!
!===============================================================================
!
subroutine boundaries_specific()
subroutine boundaries_specific(t, dt)
! import external procedures and variables
!
@ -1063,6 +1066,10 @@ module boundaries
!
implicit none
! subroutine arguments
!
real(kind=8), intent(in) :: t, dt
! local pointers
!
type(block_meta), pointer :: pmeta, pneigh