Skip to content
Snippets Groups Projects
Commit 9eb9937f authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

remove unused variable; ierr

parent e71cf68a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/solve_EM_fields.F90
+ 1
− 1
View file @ 9eb9937f
...@@ -28,7 +28,7 @@ CONTAINS ...@@ -28,7 +28,7 @@ CONTAINS
USE geometry, ONLY: iInt_Jacobian, Jacobian USE geometry, ONLY: iInt_Jacobian, Jacobian
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ij, ia, ikx, iky, iz, izi, iji, ierr INTEGER :: ij, ia, ikx, iky, iz, izi, iji
COMPLEX(xp) :: fsa_phi, intf_ ! current flux averaged phi COMPLEX(xp) :: fsa_phi, intf_ ! current flux averaged phi
COMPLEX(xp), DIMENSION(local_nz) :: rho, integrant ! charge density q_a n_a and aux var COMPLEX(xp), DIMENSION(local_nz) :: rho, integrant ! charge density q_a n_a and aux var
!! Poisson can be solved only for process containng p=0 !! Poisson can be solved only for process containng p=0
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment