diff options
Diffstat (limited to 'src/macro/DZDB_guts.h')
| -rw-r--r-- | src/macro/DZDB_guts.h | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/macro/DZDB_guts.h b/src/macro/DZDB_guts.h index a83f12a..75b708e 100644 --- a/src/macro/DZDB_guts.h +++ b/src/macro/DZDB_guts.h @@ -19,48 +19,48 @@ DZDB_OO2DZ = 1D0/(2D0*DZDB_DZ) - if (admmacros_advectionx .eq. 0) then /* CENTER */ + if (admmacros_advectionz .eq. 0) then /* CENTER */ DZDB_DZDBX = DZDB_OO2DZ*(DZDB_BX_KP - DZDB_BX_KM) - else if (admmacros_advectionx .eq. 1) then /* UPWIND1 */ + else if (admmacros_advectionz .eq. 1) then /* UPWIND1 */ DZDB_DZDBX = (DZDB_BX_KP - DZDB_BX)/DZDB_DZ - else if (admmacros_advectionx .eq. -1) then /* UPWIND1 */ + else if (admmacros_advectionz .eq. -1) then /* UPWIND1 */ DZDB_DZDBX = (DZDB_BX - DZDB_BX_KM)/DZDB_DZ - else if (admmacros_advectionx .eq. 2) then /* UPWIND2 */ + 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_advectionx .eq. -2) then /* UPWIND2 */ + 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_advectiony .eq. 0) then /* CENTER */ + if (admmacros_advectionz .eq. 0) then /* CENTER */ DZDB_DZDBY = DZDB_OO2DZ*(DZDB_BY_KP - DZDB_BY_KM) - else if (admmacros_advectiony .eq. 1) then /* UPWIND1 */ + else if (admmacros_advectionz .eq. 1) then /* UPWIND1 */ DZDB_DZDBY = (DZDB_BY_KP - DZDB_BY)/DZDB_DZ - else if (admmacros_advectiony .eq. -1) then /* UPWIND1 */ + else if (admmacros_advectionz .eq. -1) then /* UPWIND1 */ DZDB_DZDBY = (DZDB_BY - DZDB_BY_KM)/DZDB_DZ - else if (admmacros_advectiony .eq. 2) then /* UPWIND2 */ + 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_advectiony .eq. -2) then /* UPWIND2 */ + 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) @@ -86,7 +86,7 @@ else if (admmacros_advectionz .eq. -2) then /* UPWIND2 */ - DZDB_DZDBY = 0.5D0/DZDB_DZ \ + DZDB_DZDBZ = 0.5D0/DZDB_DZ \ *(3.0D0*DZDB_BZ - 4.0D0*DZDB_BZ_KM + DZDB_BZ_KMM) end if |