From d29c99273d5b3c831b9544fd5c441913f60ad570 Mon Sep 17 00:00:00 2001 From: allen Date: Tue, 21 May 2002 22:09:58 +0000 Subject: Typo git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@41 b1d164ef-f17a-46e7-89d4-021c7118ef4e --- src/macro/DYDB_guts.h | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/macro/DYDB_guts.h b/src/macro/DYDB_guts.h index 015c8d4..536c6fd 100644 --- a/src/macro/DYDB_guts.h +++ b/src/macro/DYDB_guts.h @@ -19,24 +19,24 @@ DYDB_OO2DY = 1D0/(2D0*DYDB_DY) - if (admmacros_advectionx .eq. 0) then /* CENTER */ + if (admmacros_advectiony .eq. 0) then /* CENTER */ DYDB_DYDBX = DYDB_OO2DY*(DYDB_BX_JP - DYDB_BX_JM) - else if (admmacros_advectionx .eq. 1) then /* UPWIND1 */ + else if (admmacros_advectiony .eq. 1) then /* UPWIND1 */ DYDB_DYDBX = (DYDB_BX_JP - DYDB_BX)/DYDB_DY - else if (admmacros_advectionx .eq. -1) then /* UPWIND1 */ + else if (admmacros_advectiony .eq. -1) then /* UPWIND1 */ DYDB_DYDBX = (DYDB_BX - DYDB_BX_JM)/DYDB_DY - else if (admmacros_advectionx .eq. 2) then /* UPWIND2 */ + else if (admmacros_advectiony .eq. 2) then /* UPWIND2 */ DYDB_DYDBX = - 0.5D0/DYDB_DY \ *(3.0D0*DYDB_BX - 4.0D0*DYDB_BX_JP + DYDB_BX_JPP) - else if (admmacros_advectionx .eq. -2) then /* UPWIND2 */ + else if (admmacros_advectiony .eq. -2) then /* UPWIND2 */ DYDB_DYDBX = 0.5D0/DYDB_DY \ *(3.0D0*DYDB_BX - 4.0D0*DYDB_BX_JM + DYDB_BX_JMM) -- cgit v1.2.3