From eea6dc2929fdb7e096d8255a6e80b89981b99a69 Mon Sep 17 00:00:00 2001 From: miguel Date: Wed, 9 Oct 2002 22:19:29 +0000 Subject: eliminated upwinding here! Derivatives of the shift SHOULD NOT be upwinded. Upwinding happens in derivatives of other fields that are hit by a shift in front. This upwindind was wrong and was introducing large errors. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@49 b1d164ef-f17a-46e7-89d4-021c7118ef4e --- src/macro/DZDB_guts.h | 76 +++------------------------------------------------ 1 file changed, 4 insertions(+), 72 deletions(-) (limited to 'src/macro/DZDB_guts.h') diff --git a/src/macro/DZDB_guts.h b/src/macro/DZDB_guts.h index 75b708e..5797db7 100644 --- a/src/macro/DZDB_guts.h +++ b/src/macro/DZDB_guts.h @@ -17,79 +17,11 @@ #ifdef FCODE - DZDB_OO2DZ = 1D0/(2D0*DZDB_DZ) - - if (admmacros_advectionz .eq. 0) then /* CENTER */ - - DZDB_DZDBX = DZDB_OO2DZ*(DZDB_BX_KP - DZDB_BX_KM) - - else if (admmacros_advectionz .eq. 1) then /* UPWIND1 */ - - DZDB_DZDBX = (DZDB_BX_KP - DZDB_BX)/DZDB_DZ - - else if (admmacros_advectionz .eq. -1) then /* UPWIND1 */ - - DZDB_DZDBX = (DZDB_BX - DZDB_BX_KM)/DZDB_DZ - - else if (admmacros_advectionz .eq. 2) then /* UPWIND2 */ - - DZDB_DZDBX = - 0.5D0/DZDB_DZ \ - *(3.0D0*DZDB_BX - 4.0D0*DZDB_BX_KP + DZDB_BX_KPP) - - else if (admmacros_advectionz .eq. -2) then /* UPWIND2 */ - - DZDB_DZDBX = 0.5D0/DZDB_DZ \ - *(3.0D0*DZDB_BX - 4.0D0*DZDB_BX_KM + DZDB_BX_KMM) - - end if - - if (admmacros_advectionz .eq. 0) then /* CENTER */ - - DZDB_DZDBY = DZDB_OO2DZ*(DZDB_BY_KP - DZDB_BY_KM) - - else if (admmacros_advectionz .eq. 1) then /* UPWIND1 */ - - DZDB_DZDBY = (DZDB_BY_KP - DZDB_BY)/DZDB_DZ - - else if (admmacros_advectionz .eq. -1) then /* UPWIND1 */ - - DZDB_DZDBY = (DZDB_BY - DZDB_BY_KM)/DZDB_DZ - - else if (admmacros_advectionz .eq. 2) then /* UPWIND2 */ - - DZDB_DZDBY = - 0.5D0/DZDB_DZ \ - *(3.0D0*DZDB_BY - 4.0D0*DZDB_BY_KP + DZDB_BY_KPP) - - else if (admmacros_advectionz .eq. -2) then /* UPWIND2 */ - - DZDB_DZDBY = 0.5D0/DZDB_DZ \ - *(3.0D0*DZDB_BY - 4.0D0*DZDB_BY_KM + DZDB_BY_KMM) - - end if - - if (admmacros_advectionz .eq. 0) then /* CENTER */ - - DZDB_DZDBZ = DZDB_OO2DZ*(DZDB_BZ_KP - DZDB_BZ_KM) - - else if (admmacros_advectionz .eq. 1) then /* UPWIND1 */ - - DZDB_DZDBZ = (DZDB_BZ_KP - DZDB_BZ)/DZDB_DZ - - else if (admmacros_advectionz .eq. -1) then /* UPWIND1 */ - - DZDB_DZDBZ = (DZDB_BZ - DZDB_BZ_KM)/DZDB_DZ - - else if (admmacros_advectionz .eq. 2) then /* UPWIND2 */ - - DZDB_DZDBZ = - 0.5D0/DZDB_DZ \ - *(3.0D0*DZDB_BZ - 4.0D0*DZDB_BZ_KP + DZDB_BZ_KPP) - - else if (admmacros_advectionz .eq. -2) then /* UPWIND2 */ - - DZDB_DZDBZ = 0.5D0/DZDB_DZ \ - *(3.0D0*DZDB_BZ - 4.0D0*DZDB_BZ_KM + DZDB_BZ_KMM) + DZDB_OO2DZ = 1.0D0/(2.0D0*DZDB_DZ) - end if + DZDB_DZDBX = DZDB_OO2DZ*(DZDB_BX_KP - DZDB_BX_KM) + DZDB_DZDBY = DZDB_OO2DZ*(DZDB_BY_KP - DZDB_BY_KM) + DZDB_DZDBZ = DZDB_OO2DZ*(DZDB_BZ_KP - DZDB_BZ_KM) #endif -- cgit v1.2.3