From f1b4af2a37470148bf34b9826dc3001e1aacf4b5 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Tue, 7 Mar 2017 16:20:11 -0300
Subject: [PATCH] BOUNDARIES: Pass t, dt, and coordinates to
block_boundary_specific().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
src/boundaries.F90 | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/boundaries.F90 b/src/boundaries.F90
index 9c305ab..744a13e 100644
--- a/src/boundaries.F90
+++ b/src/boundaries.F90
@@ -1149,6 +1149,7 @@ module boundaries
!
if (.not. associated(pmeta%edges(i,j,m)%ptr)) &
call block_boundary_specific(i, j, k, n &
+ , t, dt, x(:), y(:), z(:) &
, pmeta%data%q(1:nv,1:im,1:jm,1:km))
end do ! i = 1, sides
@@ -1177,6 +1178,7 @@ module boundaries
!
if (.not. associated(pmeta%faces(i,j,k,n)%ptr)) &
call block_boundary_specific(i, j, k, n &
+ , t, dt, x(:), y(:), z(:) &
, pmeta%data%q(1:nv,1:im,1:jm,1:km))
end do ! i = 1, sides
@@ -4975,11 +4977,13 @@ module boundaries
!
! nc - the edge direction;
! ic, jc, kc - the corner position;
+! t, dt - time and time increment;
+! x, y, z - the block coordinates;
! qn - the variable array;
!
!===============================================================================
!
- subroutine block_boundary_specific(ic, jc, kc, nc, qn)
+ subroutine block_boundary_specific(ic, jc, kc, nc, t, dt, x, y, z, qn)
! import external procedures and variables
!
@@ -4998,6 +5002,10 @@ module boundaries
!
integer , intent(in) :: ic, jc, kc
integer , intent(in) :: nc
+ real(kind=8) , intent(in) :: t, dt
+ real(kind=8), dimension(1:im) , intent(inout) :: x
+ real(kind=8), dimension(1:jm) , intent(inout) :: y
+ real(kind=8), dimension(1:km) , intent(inout) :: z
real(kind=8), dimension(1:nv,1:im,1:jm,1:km), intent(inout) :: qn
! local variables