diff options
| -rw-r--r-- | doc/ThornGuide.tex | 2 | ||||
| -rw-r--r-- | param.ccl | 2 | ||||
| -rw-r--r-- | schedule.ccl | 2 | ||||
| -rw-r--r-- | src/Misner_standard.F | 2 | ||||
| -rw-r--r-- | src/Schwarzschild.F | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/doc/ThornGuide.tex b/doc/ThornGuide.tex index 43cea26..80d4270 100644 --- a/doc/ThornGuide.tex +++ b/doc/ThornGuide.tex @@ -68,7 +68,7 @@ einstein &&&\\ & & bl\_bh & Brill Lindquist black holes \\ & & misner\_bh &Misner black holes \\ & & multiple\_misner\_bh & Multiple Misner black holes \\ -\parameter{lapseinit} & KEYWORD & schwarz & Set lapse to schwarzschild \\ +\parameter{initial_lapse} & KEYWORD & schwarz & Set lapse to schwarzschild \\ \end{tabular} \subsection{Private Parameters} @@ -110,7 +110,7 @@ EXTENDS KEYWORD initial_data "" "multiple_misner_bh" :: "Multiple Misner black holes" } -EXTENDS KEYWORD lapseinit "" +EXTENDS KEYWORD initial_lapse "" { "schwarz" :: "Set lapse to Schwarzschild" } diff --git a/schedule.ccl b/schedule.ccl index 83bfd0c..52e1dec 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -15,7 +15,7 @@ if (CCTK_Equals(initial_data,"schwarzschild") || if (CCTK_Equals(initial_data,"schwarzschild")) { - schedule Schwarzschild at CCTK_INITIAL + schedule Schwarzschild at CCTK_INITIAL after InitialEinstein { LANG: Fortran } "Construct initial data for a single Schwarzschild black hole" diff --git a/src/Misner_standard.F b/src/Misner_standard.F index afc901a..099c9db 100644 --- a/src/Misner_standard.F +++ b/src/Misner_standard.F @@ -129,7 +129,7 @@ c -------------------- c Should initialize lapse to Cadez value if possible c -------------------------------------------------- - if (CCTK_Equals(lapseinit,"cadez") == 1) then + if (CCTK_Equals(initial_lapse,"cadez") == 1) then write (*,*)"Initialise with cadez lapse" alp = one do n = 1,nmax diff --git a/src/Schwarzschild.F b/src/Schwarzschild.F index 28a3a91..2b1d90f 100644 --- a/src/Schwarzschild.F +++ b/src/Schwarzschild.F @@ -68,7 +68,7 @@ c derivatives of psi / psi endif c If the initial lapse is not one ... - if (CCTK_Equals(lapseinit,"schwarz")==1) then + if (CCTK_Equals(initial_lapse,"schwarz")==1) then print *,"Initialise with schwarzschild lapse" alp = (2.*r - mass)/(2.*r+mass) endif |