User: eschnett Date: 2012/10/12 09:29 PM
Modified: /trunk/src/metrics/ Bertotti.F77
Log: Remove save attribute from Bertotti metric
File Changes:
Directory: /trunk/src/metrics/ ==============================
File [modified]: Bertotti.F77 Delta lines: +1 -10 =================================================================== --- trunk/src/metrics/Bertotti.F77 2012-10-13 01:25:24 UTC (rev 278) +++ trunk/src/metrics/Bertotti.F77 2012-10-13 02:29:46 UTC (rev 279) @@ -31,12 +31,6 @@ 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 ==> 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)