diff options
| author | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 02:29:46 +0000 |
|---|---|---|
| committer | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 02:29:46 +0000 |
| commit | 84cf1675037e1335a4acd8b8cef2ec32a33b79a6 (patch) | |
| tree | 7b297dcb37fc2a772801cd5fbfe512b75e4e692c | |
| parent | 55e95e4557524afce0caf9fd5a015c9c8fdf051b (diff) | |
Remove save attribute from Bertotti metric
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@279 e296648e-0e4f-0410-bd07-d597d9acff87
| -rw-r--r-- | src/metrics/Bertotti.F77 | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/metrics/Bertotti.F77 b/src/metrics/Bertotti.F77 index b1e6c8b..003a282 100644 --- a/src/metrics/Bertotti.F77 +++ b/src/metrics/Bertotti.F77 @@ -31,12 +31,6 @@ c output arguments CCTK_REAL psi LOGICAL Tmunu_flag -c static local variables - logical firstcall - data firstcall /.true./ - save firstcall, baza -c$omp threadprivate (firstcall, baza) - c local variables CCTK_REAL baza CCTK_REAL unu, doi @@ -45,10 +39,7 @@ C this model has a cosmological constant C ==> it sets the stress-energy tensor in the "CalcTmunu" code Tmunu_flag = .true. - if (firstcall) then - baza = Bertotti__Lambda - firstcall = .false. - end if + baza = Bertotti__Lambda unu=exp(2.0D0*sqrt(-baza)*x) doi=exp(2.0D0*sqrt(-baza)*z) |