diff options
Diffstat (limited to 'src')
-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) |