From af40c93ec4154db6a51c8508f31fc66fdf5a6505 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Wed, 30 Sep 2020 09:36:48 +0200
Subject: [PATCH] Origin singularity cancelation with ikr_0 variables
---
src/poisson.F90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/poisson.F90 b/src/poisson.F90
index abfa7269..fd7f9030 100644
--- a/src/poisson.F90
+++ b/src/poisson.F90
@@ -95,6 +95,7 @@ SUBROUTINE poisson
END DO
END DO
-!write(*,*) 'gammaD =',gammaD
+! Cancel origin singularity
+phi(ikr_0,ikz_0) = 0
END SUBROUTINE poisson
--
GitLab