diff options
Diffstat (limited to 'src/metrics/Schwarzschild_Lemaitre.F77')
| -rw-r--r-- | src/metrics/Schwarzschild_Lemaitre.F77 | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/src/metrics/Schwarzschild_Lemaitre.F77 b/src/metrics/Schwarzschild_Lemaitre.F77 index 7f6b0c3..b5a2dc7 100644 --- a/src/metrics/Schwarzschild_Lemaitre.F77 +++ b/src/metrics/Schwarzschild_Lemaitre.F77 @@ -33,24 +33,15 @@ c output arguments CCTK_REAL psi LOGICAL Tmunu_flag -c local static variables - logical firstcall - CCTK_REAL lam, mas - data firstcall /.true./ - save firstcall, lam, mas - c local variables + CCTK_REAL lam, mas CCTK_REAL r2, ppp, unu, doi C This model has a cosmological constant Tmunu_flag = .true. - - if (firstcall) then - lam = Schwarzschild_Lemaitre__Lambda - mas = Schwarzschild_Lemaitre__mass - firstcall = .false. - end if + lam = Schwarzschild_Lemaitre__Lambda + mas = Schwarzschild_Lemaitre__mass r2 =x*x+y*y+z*z |