From 007001a2b78cc02b078055ff0d390bfaeb26c8a6 Mon Sep 17 00:00:00 2001
From: Ji Qiang <jqiang@lbl.gov>
Date: Thu, 12 Dec 2024 09:18:31 -0800
Subject: [PATCH] remove the final dirft back of phase space distribution

---
 src/Contrl/AccSimulator.f90 | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/Contrl/AccSimulator.f90 b/src/Contrl/AccSimulator.f90
index ab9ef88..bb441fb 100644
--- a/src/Contrl/AccSimulator.f90
+++ b/src/Contrl/AccSimulator.f90
@@ -2447,16 +2447,16 @@ subroutine run_AccSimulator()
 ! final output.
         call MPI_BARRIER(comm2d,ierr)
         !drift back half time step
-        do ib = 1, Nbunch   
-          call drifthalf_BeamBunch(Ebunch(ib),t,-dtless,betazini)
-          do ipt = 1, Nplocal(ib)
-            deltaz = blnLength/Scxlt - Ebunch(ib)%Pts1(5,ipt)
-            Ebunch(ib)%Pts1(1,ipt) = Ebunch(ib)%Pts1(1,ipt)+&
-                     Ebunch(ib)%Pts1(2,ipt)/Ebunch(ib)%Pts1(6,ipt)*deltaz
-            Ebunch(ib)%Pts1(3,ipt) = Ebunch(ib)%Pts1(3,ipt)+&
-                     Ebunch(ib)%Pts1(4,ipt)/Ebunch(ib)%Pts1(6,ipt)*deltaz
-          enddo
-        enddo   
+!        do ib = 1, Nbunch   
+!          call drifthalf_BeamBunch(Ebunch(ib),t,-dtless,betazini)
+!          do ipt = 1, Nplocal(ib)
+!            deltaz = blnLength/Scxlt - Ebunch(ib)%Pts1(5,ipt)
+!            Ebunch(ib)%Pts1(1,ipt) = Ebunch(ib)%Pts1(1,ipt)+&
+!                     Ebunch(ib)%Pts1(2,ipt)/Ebunch(ib)%Pts1(6,ipt)*deltaz
+!            Ebunch(ib)%Pts1(3,ipt) = Ebunch(ib)%Pts1(3,ipt)+&
+!                     Ebunch(ib)%Pts1(4,ipt)/Ebunch(ib)%Pts1(6,ipt)*deltaz
+!          enddo
+!        enddo   
         !output six 2-D phase projections.
         !call phase2dold_Output(30,Ebunch,Np)
         !output all particles in 6d phase space at given location blnLength.