diff options
author | schnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87> | 2004-05-30 11:26:05 +0000 |
---|---|---|
committer | schnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87> | 2004-05-30 11:26:05 +0000 |
commit | deb8609f1000f3b3946ff4576c78b76ae3dd77b9 (patch) | |
tree | 32291568e7a2c43555a32071eceeb9a9bcbc8061 /src | |
parent | d20a28ea62010b16fc89618d7b190385f25e2dc5 (diff) |
Add parameters for adding an arbitraty constant shift to any model.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@200 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
-rw-r--r-- | src/gauge.F77 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/gauge.F77 b/src/gauge.F77 index 8382760..56088fb 100644 --- a/src/gauge.F77 +++ b/src/gauge.F77 @@ -123,6 +123,9 @@ C (also to tell the models about the conformal_state) $ bxxjunk, bxyjunk, bxzjunk, $ byxjunk, byyjunk, byzjunk, $ bzxjunk, bzyjunk, bzzjunk) + betax(i,j,k) = betax(i,j,k) + shift_add_x + betay(i,j,k) = betay(i,j,k) + shift_add_y + betaz(i,j,k) = betaz(i,j,k) + shift_add_z end do end do end do @@ -244,6 +247,9 @@ C (also to tell the models about the conformal_state) $ bxxjunk, bxyjunk, bxzjunk, $ byxjunk, byyjunk, byzjunk, $ bzxjunk, bzyjunk, bzzjunk) + betax(i,j,k) = betax(i,j,k) + shift_add_x + betay(i,j,k) = betay(i,j,k) + shift_add_y + betaz(i,j,k) = betaz(i,j,k) + shift_add_z end do end do |