diff options
Diffstat (limited to 'src/macro/DYDB_guts.h')
-rw-r--r-- | src/macro/DYDB_guts.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/macro/DYDB_guts.h b/src/macro/DYDB_guts.h index 536c6fd..43f5b91 100644 --- a/src/macro/DYDB_guts.h +++ b/src/macro/DYDB_guts.h @@ -67,26 +67,26 @@ end if - if (admmacros_advectionz .eq. 0) then /* CENTER */ + if (admmacros_advectiony .eq. 0) then /* CENTER */ DYDB_DYDBZ = DYDB_OO2DY*(DYDB_BZ_JP - DYDB_BZ_JM) - else if (admmacros_advectionz .eq. 1) then /* UPWIND1 */ + else if (admmacros_advectiony .eq. 1) then /* UPWIND1 */ DYDB_DYDBZ = (DYDB_BZ_JP - DYDB_BZ)/DYDB_DY - else if (admmacros_advectionz .eq. -1) then /* UPWIND1 */ + else if (admmacros_advectiony .eq. -1) then /* UPWIND1 */ DYDB_DYDBZ = (DYDB_BZ - DYDB_BZ_JM)/DYDB_DY - else if (admmacros_advectionz .eq. 2) then /* UPWIND2 */ + else if (admmacros_advectiony .eq. 2) then /* UPWIND2 */ DYDB_DYDBZ = - 0.5D0/DYDB_DY \ *(3.0D0*DYDB_BZ - 4.0D0*DYDB_BZ_JP + DYDB_BZ_JPP) - else if (admmacros_advectionz .eq. -2) then /* UPWIND2 */ + else if (admmacros_advectiony .eq. -2) then /* UPWIND2 */ - DYDB_DYDBY = 0.5D0/DYDB_DY \ + DYDB_DYDBZ = 0.5D0/DYDB_DY \ *(3.0D0*DYDB_BZ - 4.0D0*DYDB_BZ_JM + DYDB_BZ_JMM) end if |