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

BLOCKS: Add missing variables in refine_block().

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-07-22 03:35:09 -03:00
parent 1f7e65b359
commit 5f932ff906
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/blocks.F90
View File

@ -1370,6 +1370,8 @@ module blocks
! !
logical, save :: first = .true. logical, save :: first = .true.
integer :: p, q, i, j, k, ic, jc, kc, cf integer :: p, q, i, j, k, ic, jc, kc, cf
integer :: ip, jp, kp
integer :: ir, jr, kr
real(kind=8) :: xln, yln, zln, xmn, xmx, ymn, ymx, zmn, zmx real(kind=8) :: xln, yln, zln, xmn, xmx, ymn, ymx, zmn, zmx
! local arrays ! local arrays