Merge pull request #701 from Warwick-Plasma/tom/issue700

Fix parsing of r_xyz
Warwick-Plasma · Sep 6, 2024 · 0b4e1e1 · 0b4e1e1
2 parents aafed39 + d52bc44
commit 0b4e1e1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/epoch3d/src/parser/evaluator_blocks.F90 b/epoch3d/src/parser/evaluator_blocks.F90
@@ -301,7 +301,7 @@ SUBROUTINE do_constant(opcode, simplify, parameters, err)
       IF (parameters%use_grid_position) THEN
         CALL push_on_eval(&
             SQRT(x(parameters%pack_ix)**2 + y(parameters%pack_iy)**2 &
-               + z(parameters%pack_iy)**2))
+               + z(parameters%pack_iz)**2))
       ELSE
         CALL push_on_eval(&
             SQRT(parameters%pack_pos(1)**2 + parameters%pack_pos(2)**2 &