aboutsummaryrefslogtreecommitdiff
path: root/src/decode_pars.F77
diff options
context:
space:
mode:
authorschnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87>2007-04-21 02:53:19 +0000
committerschnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87>2007-04-21 02:53:19 +0000
commita29e3c43c4cd68052703cf6f37abdf4c6a5f921a (patch)
tree5754134572da8f6191db4389b396604be1ac0018 /src/decode_pars.F77
parent0ab811fd67780bf002aca301e64dc34a9d0b65e0 (diff)
Add the capability to rotate initial data, similar to the existing
boost transformation. Add spherical Kerr-Schild initial data, i.e., Kerr-Schild data in which the horizon is a coordinate sphere. Add the capability to smooth Kerr-Schild data with a parabolic term. Re-indent param.ccl consistently. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@246 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/decode_pars.F77')
-rw-r--r--src/decode_pars.F772
1 files changed, 2 insertions, 0 deletions
diff --git a/src/decode_pars.F77 b/src/decode_pars.F77
index 1b7da46..d51bb4a 100644
--- a/src/decode_pars.F77
+++ b/src/decode_pars.F77
@@ -76,6 +76,8 @@ c black hole spacetimes
decoded_exact_model = EXACT__Kerr_BoyerLindquist
elseif (CCTK_Equals(exact_model, "Kerr/Kerr-Schild") .ne. 0) then
decoded_exact_model = EXACT__Kerr_KerrSchild
+ elseif (CCTK_Equals(exact_model, "Kerr/Kerr-Schild/spherical") .ne. 0) then
+ decoded_exact_model = EXACT__Kerr_KerrSchild_spherical
elseif (CCTK_Equals(exact_model, "Schwarzschild-Lemaitre") .ne. 0) then
decoded_exact_model = EXACT__Schwarzschild_Lemaitre
elseif (CCTK_Equals(exact_model, "multi-BH") .ne. 0) then