diff options
-rw-r--r-- | interface.ccl | 4 | ||||
-rw-r--r-- | src/ADMConstraints.F | 8 |
2 files changed, 10 insertions, 2 deletions
diff --git a/interface.ccl b/interface.ccl index 52371c0..50a45e3 100644 --- a/interface.ccl +++ b/interface.ccl @@ -1,6 +1,10 @@ implements: admconstraints inherits: einstein +USES INCLUDE: CalcTmunu.inc +USES INCLUDE: CalcTmunu_temps.inc +USES INCLUDE: CalcTmunu_rfr.inc + private: real ADMconstraints type=GF diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 3c92324..93b5358 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -108,12 +108,16 @@ c ------------------------------------------------ Txx = 0.0D0; Txy = 0.0D0; Txz = 0.0D0; Tyy = 0.0D0 Tyz = 0.0D0; Tzz = 0.0D0 -c This may be needed for CalcTmunu etc +c This may be needed for CalcTmunu +c -------------------------------- + #include "CactusEinstein/Einstein/src/macro/DETG_guts.h" - det = DETG_DETCG #include "CactusEinstein/Einstein/src/macro/UPPERMET_guts.h" + + det = DETG_DETCG uxx = UPPERMET_UXX; uxy = UPPERMET_UXY; uxz = UPPERMET_UXZ uyy = UPPERMET_UYY; uyz = UPPERMET_UYZ; uzz = UPPERMET_UZZ + #include "CalcTmunu.inc" |