From 87494d2f9a5ac110a581c6059a3485012464f931 Mon Sep 17 00:00:00 2001 From: Ji Qiang Date: Mon, 21 Oct 2024 20:46:40 -0700 Subject: [PATCH] fixed the defect in the field with errors --- src/Appl/EMfldCart.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Appl/EMfldCart.f90 b/src/Appl/EMfldCart.f90 index 56fea50..16a25ab 100644 --- a/src/Appl/EMfldCart.f90 +++ b/src/Appl/EMfldCart.f90 @@ -1192,7 +1192,8 @@ subroutine getflderrt_EMfldCart(pos,extfld,this,fldata) tmp(2) = temp(2)*cos(anglex)+temp(3)*sin(anglex) tmp(3) = -temp(2)*sin(anglex)+temp(3)*cos(anglex) poss(1:3) = tmp(1:3) - !z = tmp(3) + poss(3) = poss(3) + zedge + z = poss(3) if((z.gt.this%Param(1)).and.(z.lt.(this%Param(1)+this%Length))) then escale = this%Param(2) @@ -1273,7 +1274,7 @@ subroutine getflderrt_EMfldCart(pos,extfld,this,fldata) +fldata%Bzgridt(ix1,jx1,kx)*(1.d0-ab)*(1.d0-cd)*ef & +fldata%Bzgridt(ix1,jx,kx)*(1.d0-ab)*cd*ef)*tmptime) - !transform + !transform !for E field tmp(1) = extfld(1) tmp(2) = extfld(2)*cos(anglex)-extfld(3)*sin(anglex)