diff options
| author | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 02:53:45 +0000 |
|---|---|---|
| committer | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 02:53:45 +0000 |
| commit | 7896b7882fe0095132b76a4096a708acce958b46 (patch) | |
| tree | b8c3c6017ee56fe43e3cd1670d00a1d924c2e88d /src/metrics/Kerr_BoyerLindquist.F77 | |
| parent | 84cf1675037e1335a4acd8b8cef2ec32a33b79a6 (diff) | |
Remove save attributes from several metric routines
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@280 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/metrics/Kerr_BoyerLindquist.F77')
| -rw-r--r-- | src/metrics/Kerr_BoyerLindquist.F77 | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/src/metrics/Kerr_BoyerLindquist.F77 b/src/metrics/Kerr_BoyerLindquist.F77 index 3c77de8..0a8c25f 100644 --- a/src/metrics/Kerr_BoyerLindquist.F77 +++ b/src/metrics/Kerr_BoyerLindquist.F77 @@ -31,23 +31,14 @@ c output arguments $ guxx, guyy, guzz, guxy, guyz, guzx CCTK_REAL psi LOGICAL Tmunu_flag - -c local static variables - logical firstcall - data firstcall /.true./ - save firstcall, arad, marad CCTK_REAL arad, marad C This is a vacuum spacetime with no cosmological constant Tmunu_flag = .false. - if (firstcall) then - arad = Kerr_BoyerLindquist__spin - marad = Kerr_BoyerLindquist__mass - firstcall = .false. - end if - + arad = Kerr_BoyerLindquist__spin + marad = Kerr_BoyerLindquist__mass gdtt = -(y**2*arad**2+x**2-2*marad*x)/(x**2+y**2*arad**2) gdtx = 2*(arad*marad*x*(y**2-1))/(x**2+y**2*arad**2) |