BLOCKS: Add missing variables in refine_block().
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
1f7e65b359
commit
5f932ff906
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user