diff options
| author | allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2002-05-21 22:09:58 +0000 |
|---|---|---|
| committer | allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2002-05-21 22:09:58 +0000 |
| commit | d29c99273d5b3c831b9544fd5c441913f60ad570 (patch) | |
| tree | 7c3dc101a32e9689923fff1fa38731b0843d6f0b | |
| parent | 5bc50fd3a4ef4e51ce51d85b8382dc35d0d2a5b3 (diff) | |
Typo
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@41 b1d164ef-f17a-46e7-89d4-021c7118ef4e
| -rw-r--r-- | src/macro/DYDB_guts.h | 10 |
1 files changed, 5 insertions, 5 deletions
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) |