BLOCKS: Add missing variables in refine_block().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
2014-07-22 03:35:09 -03:00 · 2014-07-22 03:35:09 -03:00 · 5f932ff906
commit 5f932ff906
parent 1f7e65b359
1 changed files with 2 additions and 0 deletions
--- a/src/blocks.F90
+++ b/src/blocks.F90
@ -1370,6 +1370,8 @@ module blocks
 !
    logical, save :: first = .true.
    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

 ! local arrays