diff options
| -rw-r--r-- | param.ccl | 4 | ||||
| -rw-r--r-- | src/ADMConstraints.F | 7 |
2 files changed, 7 insertions, 4 deletions
@@ -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) |