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 --- param.ccl | 4 ++++ src/ADMConstraints.F | 7 +++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/param.ccl b/param.ccl index f0768e7..f9d661b 100644 --- a/param.ccl +++ b/param.ccl @@ -13,6 +13,10 @@ shares: StaticConformal USES KEYWORD conformal_storage +shares: ADMMacros + +USES INT spatial_order + private: BOOLEAN constraints_persist "Keep storage of ham and mom* around for use in special tricks?" 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