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/boost_rotation_symmetric.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/boost_rotation_symmetric.F77')
| -rw-r--r-- | src/metrics/boost_rotation_symmetric.F77 | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/src/metrics/boost_rotation_symmetric.F77 b/src/metrics/boost_rotation_symmetric.F77 index 1346c3b..85f303d 100644 --- a/src/metrics/boost_rotation_symmetric.F77 +++ b/src/metrics/boost_rotation_symmetric.F77 @@ -36,28 +36,19 @@ c functions local to this file CCTK_REAL gfunc c local variables + CCTK_REAL h, d, numlim CCTK_REAL a, b, mu0, mu1, lam1, mu2, lam2, $ lam3, mu4, lam4, mu5, lam5, num, div, f, $ elam, emu0, delta, tmp -c local static variables - logical firstcall - CCTK_REAL h, d, numlim - data firstcall /.true./ - save firstcall, h, d, numlim - C This is a vacuum spacetime with no cosmological constant Tmunu_flag = .false. C Get parameters of the exact solution. - if (firstcall) then - h = boost_rotation_symmetric__scale - d = boost_rotation_symmetric__amp - numlim = boost_rotation_symmetric__min_d - - firstcall = .false. - end if + h = boost_rotation_symmetric__scale + d = boost_rotation_symmetric__amp + numlim = boost_rotation_symmetric__min_d C Intermediate quantities. |