aboutsummaryrefslogtreecommitdiff
path: root/src/brilldata.F
diff options
context:
space:
mode:
authorrideout <rideout@a678b1cf-93e1-4b43-a69d-d43939e66649>2002-05-05 21:27:33 +0000
committerrideout <rideout@a678b1cf-93e1-4b43-a69d-d43939e66649>2002-05-05 21:27:33 +0000
commitb512afb951c546e99187b8a5c66a2e84938fd987 (patch)
tree7dd35460916db0b8428602adbad7ce7b6b53cac3 /src/brilldata.F
parent009711d38c7bbe2b2b434d935f34ce5d6969dfed (diff)
Conversion to CactusEinstein2.
Some minor documentation fixes/updates. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@66 a678b1cf-93e1-4b43-a69d-d43939e66649
Diffstat (limited to 'src/brilldata.F')
-rw-r--r--src/brilldata.F16
1 files changed, 7 insertions, 9 deletions
diff --git a/src/brilldata.F b/src/brilldata.F
index bf02a00..596da0d 100644
--- a/src/brilldata.F
+++ b/src/brilldata.F
@@ -12,7 +12,6 @@
#include "cctk_Parameters.h"
#include "cctk_Arguments.h"
-#include "CactusEinstein/Einstein/src/Einstein.h"
#include "CactusElliptic/EllBase/src/EllBase.h"
subroutine brilldata(CCTK_ARGUMENTS)
@@ -31,13 +30,13 @@
c Get indices for metric.
- call CCTK_VarIndex(metpsi_index(1), "einstein::gxx")
- call CCTK_VarIndex(metpsi_index(2), "einstein::gxy")
- call CCTK_VarIndex(metpsi_index(3), "einstein::gxz")
- call CCTK_VarIndex(metpsi_index(4), "einstein::gyy")
- call CCTK_VarIndex(metpsi_index(5), "einstein::gyz")
- call CCTK_VarIndex(metpsi_index(6), "einstein::gzz")
- call CCTK_VarIndex(metpsi_index(7), "einstein::psi")
+ call CCTK_VarIndex(metpsi_index(1), "admbase::gxx")
+ call CCTK_VarIndex(metpsi_index(2), "admbase::gxy")
+ call CCTK_VarIndex(metpsi_index(3), "admbase::gxz")
+ call CCTK_VarIndex(metpsi_index(4), "admbase::gyy")
+ call CCTK_VarIndex(metpsi_index(5), "admbase::gyz")
+ call CCTK_VarIndex(metpsi_index(6), "admbase::gzz")
+ call CCTK_VarIndex(metpsi_index(7), "staticconformal::psi")
c Get indices for grid functions.
@@ -117,4 +116,3 @@ c Reconstruct physical metric.
return
end
-