diff options
Diffstat (limited to 'src/setupbrilldata3D.F')
-rw-r--r-- | src/setupbrilldata3D.F | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/setupbrilldata3D.F b/src/setupbrilldata3D.F index 97cf28b..b77d886 100644 --- a/src/setupbrilldata3D.F +++ b/src/setupbrilldata3D.F @@ -47,7 +47,7 @@ c c \ z rho phi phi / CCTK_REAL x1,y1,z1,rho1,rho2 CCTK_REAL phi,phif,e2q - CCTK_REAL brillq,rhofudge,eps + CCTK_REAL brillq,eps CCTK_REAL zero,one,two,three c Define numbers @@ -57,10 +57,6 @@ c Define numbers two = 2.0D0 three = 3.0D0 -c Parameters. - - rhofudge = brill_rhofudge - c Epsilon for finite differencing. eps = cctk_delta_space(1) |