From d1c7f60e4196063853a8e7d705462a75f3e5cf6a Mon Sep 17 00:00:00 2001 From: eschnett Date: Fri, 28 May 2010 21:00:13 +0000 Subject: Initialise the variable exact_psiyy, which was not initialised before. Instead, exact_psixx was initialised twice. This should have affected only simulations with a static conformal factor, and where its second derivative has storage. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@257 e296648e-0e4f-0410-bd07-d597d9acff87 --- src/blended_boundary.F77 | 2 +- src/boundary.F77 | 2 +- src/gauge.F77 | 2 +- src/initialize.F77 | 2 +- src/xyz_blended_boundary.F77 | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/blended_boundary.F77 b/src/blended_boundary.F77 index 752ce52..c46623c 100644 --- a/src/blended_boundary.F77 +++ b/src/blended_boundary.F77 @@ -101,7 +101,7 @@ C (also to tell the models about the conformal_state) exact_psiy = 0.0D0 exact_psiz = 0.0D0 exact_psixx = 0.0D0 - exact_psixx = 0.0D0 + exact_psiyy = 0.0D0 exact_psizz = 0.0D0 exact_psixy = 0.0D0 exact_psiyz = 0.0D0 diff --git a/src/boundary.F77 b/src/boundary.F77 index 31ee55c..644d6a5 100644 --- a/src/boundary.F77 +++ b/src/boundary.F77 @@ -49,7 +49,7 @@ C (also to tell the models about the conformal_state) exact_psiy = 0.0D0 exact_psiz = 0.0D0 exact_psixx = 0.0D0 - exact_psixx = 0.0D0 + exact_psiyy = 0.0D0 exact_psizz = 0.0D0 exact_psixy = 0.0D0 exact_psiyz = 0.0D0 diff --git a/src/gauge.F77 b/src/gauge.F77 index f8b35e2..1e6ffad 100644 --- a/src/gauge.F77 +++ b/src/gauge.F77 @@ -126,7 +126,7 @@ C (also to tell the models about the conformal_state) exact_psiy = 0.0D0 exact_psiz = 0.0D0 exact_psixx = 0.0D0 - exact_psixx = 0.0D0 + exact_psiyy = 0.0D0 exact_psizz = 0.0D0 exact_psixy = 0.0D0 exact_psiyz = 0.0D0 diff --git a/src/initialize.F77 b/src/initialize.F77 index c1ef459..16a7be2 100644 --- a/src/initialize.F77 +++ b/src/initialize.F77 @@ -98,7 +98,7 @@ C (also to tell the models about the conformal_state) exact_psiy = 0.0D0 exact_psiz = 0.0D0 exact_psixx = 0.0D0 - exact_psixx = 0.0D0 + exact_psiyy = 0.0D0 exact_psizz = 0.0D0 exact_psixy = 0.0D0 exact_psiyz = 0.0D0 diff --git a/src/xyz_blended_boundary.F77 b/src/xyz_blended_boundary.F77 index 8106361..06db214 100644 --- a/src/xyz_blended_boundary.F77 +++ b/src/xyz_blended_boundary.F77 @@ -102,7 +102,7 @@ C (also to tell the models about the conformal_state) exact_psiy = 0.0D0 exact_psiz = 0.0D0 exact_psixx = 0.0D0 - exact_psixx = 0.0D0 + exact_psiyy = 0.0D0 exact_psizz = 0.0D0 exact_psixy = 0.0D0 exact_psiyz = 0.0D0 -- cgit v1.2.3