Fix parsing of r_xyz

Warwick-Plasma · Sep 2, 2024 · d52bc44 · d52bc44
1 parent aafed39
commit d52bc44
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 &