From 5874f2056f8e9fe3628b319392aac529d101d965 Mon Sep 17 00:00:00 2001 From: pollney Date: Thu, 26 Jun 2003 11:38:34 +0000 Subject: Update for 4th order differencing. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@89 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index ef5de5d..cb8db2f 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -49,11 +49,12 @@ c Return code from Cactus sync routine and boundary conditions. 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 +#include "CactusEinstein/ADMMacros/src/macro/ADM_Spacing_declare.h" + c Temporaries for the Stress-Energy tensor. CCTK_REAL Ttt,Ttx,Tty,Ttz,Txx,Txy,Txz,Tyy,Tyz,Tzz @@ -79,9 +80,7 @@ c -------------------------------------------------------------- c Grid parameters. - dx = CCTK_DELTA_SPACE(1) - dy = CCTK_DELTA_SPACE(2) - dz = CCTK_DELTA_SPACE(3) +#include "CactusEinstein/ADMMacros/src/macro/ADM_Spacing.h" nx = cctk_lsh(1) ny = cctk_lsh(2) -- cgit v1.2.3