diff options
Diffstat (limited to 'src/ADMConstraints.F')
| -rw-r--r-- | src/ADMConstraints.F | 12 |
1 files changed, 12 insertions, 0 deletions
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 |