diff options
-rw-r--r-- | src/metrics/Schwarzschild_EF.F77 | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/metrics/Schwarzschild_EF.F77 b/src/metrics/Schwarzschild_EF.F77 index 05b001f..66a9db4 100644 --- a/src/metrics/Schwarzschild_EF.F77 +++ b/src/metrics/Schwarzschild_EF.F77 @@ -33,10 +33,7 @@ c output arguments LOGICAL Tmunu_flag c local static variables - logical firstcall CCTK_REAL eps, m - data firstcall /.true./ - save firstcall, eps, m c local variables CCTK_REAL r @@ -46,11 +43,8 @@ C This is a vacuum spacetime with no cosmological constant C Get parameters of the exact solution. - if (firstcall) then - eps = Schwarzschild_EF__epsilon - m = Schwarzschild_EF__mass - firstcall = .false. - end if + eps = Schwarzschild_EF__epsilon + m = Schwarzschild_EF__mass r = max(sqrt(x**2 + y**2 + z**2), eps) |