diff options
author | pollney <pollney@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2003-06-26 11:37:17 +0000 |
---|---|---|
committer | pollney <pollney@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2003-06-26 11:37:17 +0000 |
commit | f6be10b987d8db12434c2607dcd6d434a277157b (patch) | |
tree | bdfcb7c3758a15d492447b34e2fd727e2ab56aa5 /src/macro/DA_guts.h | |
parent | 948ce995e5d8976df0b5a69d7f4c3cb63a3448da (diff) |
Update of macros for 4th order differencing.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@53 b1d164ef-f17a-46e7-89d4-021c7118ef4e
Diffstat (limited to 'src/macro/DA_guts.h')
-rw-r--r-- | src/macro/DA_guts.h | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/src/macro/DA_guts.h b/src/macro/DA_guts.h index 2b3ea63..cceb5c8 100644 --- a/src/macro/DA_guts.h +++ b/src/macro/DA_guts.h @@ -12,13 +12,17 @@ #ifdef FCODE - DA_OO2DX = 1D0/(2D0*DA_DX) - DA_OO2DY = 1D0/(2D0*DA_DY) - DA_OO2DZ = 1D0/(2D0*DA_DZ) - - DA_DXDA = DA_OO2DX*(DA_A_IP - DA_A_IM) - DA_DYDA = DA_OO2DY*(DA_A_JP - DA_A_JM) - DA_DZDA = DA_OO2DZ*(DA_A_KP - DA_A_KM) +#include "ADM_Derivative.h" + + if (spatial_order.eq.2) then + DA_DXDA = ADM_DX_2(alp,i,j,k) + DA_DYDA = ADM_DY_2(alp,i,j,k) + DA_DZDA = ADM_DZ_2(alp,i,j,k) + else + DA_DXDA = ADM_DX_4(alp,i,j,k) + DA_DYDA = ADM_DY_4(alp,i,j,k) + DA_DZDA = ADM_DZ_4(alp,i,j,k) + end if #endif |