updated EMfldCart.f90

impact-lbl · Oct 22, 2024 · 3bad673 · 3bad673
1 parent 87494d2
commit 3bad673
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Appl/EMfldCart.f90 b/src/Appl/EMfldCart.f90
@@ -1084,7 +1084,8 @@ subroutine  getfldt_EMfldCart(pos,extfld,this,fldata)
           jx = (pos(2)-fldata%YminRfgt)/hy + 1
           cd = ((fldata%YminRfgt-pos(2))+jx*hy)/hy
           hz = (fldata%ZmaxRfgt-fldata%ZminRfgt)/fldata%NzIntvRfgt
-          zz = pos(3)-this%Param(1)+fldata%ZminRfgt
+          !zz = pos(3)-this%Param(1)+fldata%ZminRfgt
+          zz = pos(3)-this%Param(1)
           kx = (zz-fldata%ZminRfgt)/hz + 1
           ef = ((fldata%ZminRfgt-zz)+kx*hz)/hz
           ix1 = ix + 1
@@ -1211,7 +1212,8 @@ subroutine  getflderrt_EMfldCart(pos,extfld,this,fldata)
           jx = (poss(2)-fldata%YminRfgt)/hy + 1
           cd = ((fldata%YminRfgt-poss(2))+jx*hy)/hy
           hz = (fldata%ZmaxRfgt-fldata%ZminRfgt)/fldata%NzIntvRfgt
-          zz = poss(3)-this%Param(1)+fldata%ZminRfgt
+          !zz = poss(3)-this%Param(1)+fldata%ZminRfgt
+          zz = poss(3)-this%Param(1)
           kx = (zz-fldata%ZminRfgt)/hz + 1
           ef = ((fldata%ZminRfgt-zz)+kx*hz)/hz
           ix1 = ix + 1