diff options
Diffstat (limited to 'Source')
| -rw-r--r-- | Source/WarpX_picsar.F90 | 27 |
1 files changed, 2 insertions, 25 deletions
diff --git a/Source/WarpX_picsar.F90 b/Source/WarpX_picsar.F90 index 2c1ea106c..7a68f12ee 100644 --- a/Source/WarpX_picsar.F90 +++ b/Source/WarpX_picsar.F90 @@ -320,13 +320,11 @@ subroutine warpx_charge_deposition(rho,np,xp,yp,zp,w,q,xmin,ymin,zmin,dx,dy,dz,n !! Vay pusher -- Full push CASE (1_c_long) -!#if (BL_SPACEDIM == 3) + CALL pxr_set_gamma(np,uxp,uyp,uzp,gaminv) + CALL pxr_ebcancelpush3d(np,uxp,uyp,uzp,gaminv, & ex,ey,ez, & bx,by,bz,q,m,dt,0_c_long) -!#else -! call bl_error("Is there a 2d Vay pusher implemented?") -!#endif CASE DEFAULT ! Momentum pusher in a single loop @@ -336,27 +334,6 @@ subroutine warpx_charge_deposition(rho,np,xp,yp,zp,w,q,xmin,ymin,zmin,dx,dy,dz,n bx,by,bz, & q,m,dt) - ! Momentum pusher by block -! CALL pxr_boris_push_u_3d_block(np,uxp,uyp,uzp,& -! gaminv, & -! ex,ey,ez, & -! bx,by,bz, & -! q,m,dt,lvect) - - !! --- Push velocity with E half step -! CALL pxr_epush_v(np,uxp,uyp,uzp, & -! ex,ey,ez,q,m,dt*0.5_amrex_real) - !! --- Set gamma of particles -! CALL pxr_set_gamma(np,uxp,uyp,uzp,gaminv) - !! --- Push velocity with B -! CALL pxr_bpush_v(np,uxp,uyp,uzp,gaminv, & -! bx,by,bz,q,m,dt) - !!! --- Push velocity with E half step -! CALL pxr_epush_v(np,uxp,uyp,uzp, & -! ex,ey,ez,q,m,dt*0.5_amrex_real) - !! --- Set gamma of particles -! CALL pxr_set_gamma(np,uxp,uyp,uzp,gaminv) - END SELECT !!!! --- push particle species positions a time step |