BOUNDARIES: Pass t and dt to boundaries_specific().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
334252c83d
commit
e503c4fc0a
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user