diff options
Diffstat (limited to 'src/metric.F77')
| -rw-r--r-- | src/metric.F77 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/metric.F77 b/src/metric.F77 index a93ea12..f28c948 100644 --- a/src/metric.F77 +++ b/src/metric.F77 @@ -154,6 +154,15 @@ c $ guxx, guyy, guzz, guxy, guyz, guxz, $ psi, Tmunu_flag) + elseif (decoded_exact_model .eq. EXACT__Kerr_KerrSchild_spherical) then + call Exact__Kerr_KerrSchild_spherical( + $ x, y, z, t, + $ gdtt, gdtx, gdty, gdtz, + $ gdxx, gdyy, gdzz, gdxy, gdyz, gdxz, + $ gutt, gutx, guty, gutz, + $ guxx, guyy, guzz, guxy, guyz, guxz, + $ psi, Tmunu_flag) + elseif (decoded_exact_model .eq. EXACT__Schwarzschild_Lemaitre) then call Exact__Schwarzschild_Lemaitre( $ x, y, z, t, |