From 4700a41c206721908b5eeca981861d7558bbcb3d Mon Sep 17 00:00:00 2001 From: miguel Date: Fri, 19 Oct 2001 13:00:20 +0000 Subject: Inverse metric is needed for some matter terms (BosonStar for example). git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@50 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'src') diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index edcb597..2fe6c23 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -47,6 +47,7 @@ c Various real variables. CCTK_REAL :: dx,dy,dz CCTK_REAL :: m_rho,m_sx,m_sy,m_sz CCTK_REAL :: pi,ialp,ialp2 + CCTK_REAL :: det,uxx,uyy,uzz,uxy,uxz,uyz c Temporaries for the Stress-Energy tensor. @@ -98,6 +99,17 @@ c Calculate constraints. c Calculate the stress energy tensor at this point c ------------------------------------------------ +c This may be needed for CalcTmunu + +#include "CactusEinstein/Einstein/src/macro/DETG_guts.h" + + det = DETG_DETCG + +#include "CactusEinstein/Einstein/src/macro/UPPERMET_guts.h" + + uxx = UPPERMET_UXX; uxy = UPPERMET_UXY; uxz = UPPERMET_UXZ + uyy = UPPERMET_UYY; uyz = UPPERMET_UYZ; uzz = UPPERMET_UZZ + c Initialize stress-energy tensor components. Ttt = 0.0D0 -- cgit v1.2.3