diff options
| -rw-r--r-- | Source/FortranInterface/WarpX_f.H | 99 | ||||
| -rw-r--r-- | Source/FortranInterface/WarpX_picsar.F90 | 3 |
2 files changed, 0 insertions, 102 deletions
diff --git a/Source/FortranInterface/WarpX_f.H b/Source/FortranInterface/WarpX_f.H index aac23f781..8bf3dc425 100644 --- a/Source/FortranInterface/WarpX_f.H +++ b/Source/FortranInterface/WarpX_f.H @@ -17,8 +17,6 @@ #if (AMREX_SPACEDIM == 3) -#define WRPX_COMPUTE_DIVB warpx_compute_divb_3d -#define WRPX_COMPUTE_DIVE warpx_compute_dive_3d #define WRPX_SYNC_CURRENT warpx_sync_current_3d #define WRPX_SYNC_RHO warpx_sync_rho_3d @@ -41,7 +39,6 @@ #elif (AMREX_SPACEDIM == 2) -#define WRPX_COMPUTE_DIVB warpx_compute_divb_2d #define WRPX_SYNC_CURRENT warpx_sync_current_2d #define WRPX_SYNC_RHO warpx_sync_rho_2d @@ -62,12 +59,6 @@ #define WRPX_PUSH_LEAPFROG warpx_push_leapfrog_2d #define WRPX_PUSH_LEAPFROG_POSITIONS warpx_push_leapfrog_positions_2d -#ifdef WARPX_DIM_RZ -#define WRPX_COMPUTE_DIVE warpx_compute_dive_rz -#else -#define WRPX_COMPUTE_DIVE warpx_compute_dive_2d -#endif - #endif #ifdef __cplusplus @@ -90,26 +81,6 @@ extern "C" const long* nox, const long* noy,const long* noz, const int* l_nodal, const long* lvect, const long* current_depo_algo); - // Particle pusher (velocity and position) - - void warpx_particle_pusher(const long* np, - amrex::Real* xp, amrex::Real* yp, amrex::Real* zp, - amrex::Real* uxp, amrex::Real* uyp, amrex::Real* uzp, amrex::Real* gaminv, - const amrex::Real* exp, const amrex::Real* eyp,const amrex::Real* ezp, - const amrex::Real* bxp, const amrex::Real* byp,const amrex::Real* bzp, - const amrex::Real* charge, const amrex::Real* mass, const amrex::Real* dt, - const long* particle_pusher_algo); - - // Particle pusher (velocity) - - void warpx_particle_pusher_momenta(const long* np, - amrex::Real* xp, amrex::Real* yp, amrex::Real* zp, - amrex::Real* uxp, amrex::Real* uyp, amrex::Real* uzp, amrex::Real* gaminv, - const amrex::Real* exp, const amrex::Real* eyp,const amrex::Real* ezp, - const amrex::Real* bxp, const amrex::Real* byp,const amrex::Real* bzp, - const amrex::Real* charge, const amrex::Real* mass, const amrex::Real* dt, - const long* particle_pusher_algo); - // Laser pusher @@ -138,58 +109,6 @@ extern "C" amrex::Real* mobility, amrex::Real* dt, const amrex::Real* c, const amrex::Real* beta_boost, const amrex::Real* gamma_boost ); - // Maxwell solver - - void warpx_push_evec( - const int* xlo, const int* xhi, - const int* ylo, const int* yhi, - const int* zlo, const int* zhi, - BL_FORT_FAB_ARG_3D(ex), - BL_FORT_FAB_ARG_3D(ey), - BL_FORT_FAB_ARG_3D(ez), - const BL_FORT_FAB_ARG_3D(bx), - const BL_FORT_FAB_ARG_3D(by), - const BL_FORT_FAB_ARG_3D(bz), - const BL_FORT_FAB_ARG_3D(jx), - const BL_FORT_FAB_ARG_3D(jy), - const BL_FORT_FAB_ARG_3D(jz), - const amrex::Real* mudt, - const amrex::Real* dtsdx, - const amrex::Real* dtsdy, - const amrex::Real* dtsdz, - const amrex::Real* xmin, - const amrex::Real* dx); - - void warpx_push_bvec( - const int* xlo, const int* xhi, - const int* ylo, const int* yhi, - const int* zlo, const int* zhi, - const BL_FORT_FAB_ARG_3D(ex), - const BL_FORT_FAB_ARG_3D(ey), - const BL_FORT_FAB_ARG_3D(ez), - BL_FORT_FAB_ARG_3D(bx), - BL_FORT_FAB_ARG_3D(by), - BL_FORT_FAB_ARG_3D(bz), - const amrex::Real* dtsdx, - const amrex::Real* dtsdy, - const amrex::Real* dtsdz, - const amrex::Real* xmin, - const amrex::Real* dx, - const int* maxwell_fdtd_solver_id); - - void warpx_push_evec_f( - const int* xlo, const int* xhi, - const int* ylo, const int* yhi, - const int* zlo, const int* zhi, - BL_FORT_FAB_ARG_3D(ex), - BL_FORT_FAB_ARG_3D(ey), - BL_FORT_FAB_ARG_3D(ez), - const BL_FORT_FAB_ARG_3D(f), - const amrex::Real* dtsdx_c2, - const amrex::Real* dtsdy_c2, - const amrex::Real* dtsdz_c2, - const int* maxwell_fdtd_solver_id); - #ifdef USE_OPENBC_POISSON void warpx_openbc_potential (amrex::Real* rho, amrex::Real* phi, const amrex::Real* dx); void warpx_openbc_decompose (const int*, const int*, int*, int*); @@ -285,24 +204,6 @@ extern "C" // These functions are used to evolve E and B in the PML - void WRPX_COMPUTE_DIVB (const int* lo, const int* hi, - BL_FORT_FAB_ARG_ANYD(divb), - const BL_FORT_FAB_ARG_ANYD(Bx), - const BL_FORT_FAB_ARG_ANYD(By), - const BL_FORT_FAB_ARG_ANYD(Bz), - const amrex::Real* dx); - - void WRPX_COMPUTE_DIVE (const int* lo, const int* hi, - BL_FORT_FAB_ARG_ANYD(dive), - const BL_FORT_FAB_ARG_ANYD(ex), - const BL_FORT_FAB_ARG_ANYD(ey), - const BL_FORT_FAB_ARG_ANYD(ez), - const amrex::Real* dx -#ifdef WARPX_DIM_RZ - ,const amrex::Real* rmin -#endif - ); - void WRPX_PUSH_PML_BVEC(const int* xlo, const int* xhi, const int* ylo, const int* yhi, const int* zlo, const int* zhi, diff --git a/Source/FortranInterface/WarpX_picsar.F90 b/Source/FortranInterface/WarpX_picsar.F90 index 34084d753..ff331a122 100644 --- a/Source/FortranInterface/WarpX_picsar.F90 +++ b/Source/FortranInterface/WarpX_picsar.F90 @@ -16,9 +16,6 @@ #endif -#define LVECT_CURRDEPO 8_c_long -#define LVECT_FIELDGATHE 64_c_long - ! _________________________________________________________________ ! !> @brief |