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

EQUATIONS: Fill the block borders in update_primitive_variables().

Browse Source 
This should not be normally required, but it helps to avoid the
unexpected appearance of NaNs and the code execution termination due
to the floating point exceptions.

This should also help with more advanced open boundary conditions (such
as the conditions which keep the divergence or curl of vector fields
zero).

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2015-06-05 18:41:39 -03:00
parent 8678de92f5
commit a42e6a0a16
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/equations.F90
View File

@ -1017,8 +1017,9 @@ module equations
! include external procedures and variables
!
use coordinates, only : im, jm, km, in, jn, kn
use coordinates, only : ib, jb, kb, ie, je, ke
use coordinates, only : im , jm , km , in , jn , kn
use coordinates, only : ib , jb , kb , ie , je , ke
use coordinates, only : ibl, jbl, kbl, ieu, jeu, keu
! local variables are not implicit by default
!
@ -1079,6 +1080,29 @@ module equations
end if
! fill out the borders
!
do i = ibl, 1, -1
qq(1:nv, i,jb:je,kb:ke) = qq(1:nv,ib,jb:je,kb:ke)
end do
do i = ieu, im
qq(1:nv, i,jb:je,kb:ke) = qq(1:nv,ie,jb:je,kb:ke)
end do
do j = jbl, 1, -1
qq(1:nv, 1:im, j,kb:ke) = qq(1:nv, 1:im,jb,kb:ke)
end do
do j = jeu, jm
qq(1:nv, 1:im, j,kb:ke) = qq(1:nv, 1:im,je,kb:ke)
end do
#if NDIMS == 3
do k = kbl, 1, -1
qq(1:nv, 1:im, 1:jm, k) = qq(1:nv, 1:im, 1:jm,kb)
end do
do k = keu, km
qq(1:nv, 1:im, 1:jm, k) = qq(1:nv, 1:im, 1:jm,ke)
end do
#endif /* NDIMS == 3 */
!-------------------------------------------------------------------------------
!
end subroutine update_primitive_variables