gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix boundary restriction subroutine bnd_rest() for 3D.

Browse Source
This commit is contained in:
Grzegorz Kowal 2009-09-30 01:26:05 -03:00
parent 463be7ad77
commit 36e2dbac40
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/boundaries.F90
View File

@ -720,11 +720,12 @@ module boundaries
ju = jm - ng / 2 ju = jm - ng / 2
kl = km / 2 + 1 kl = km / 2 + 1
ku = km - ng / 2 ku = km - ng / 2
do k = kl, ku do k = kl, ku
k2 = 2 * k - km + ng k2 = 2 * k - km + ng
k1 = k2 - 1 k1 = k2 - 1
do j = jl, ju do j = jl, ju
j2 = 2 * j - ng j2 = 2 * j - jm + ng
j1 = j2 - 1 j1 = j2 - 1
do i = il, iu do i = il, iu
i2 = ng + 2 * (i - ie) i2 = ng + 2 * (i - ie)
@ -1005,7 +1006,7 @@ module boundaries
jl = ng / 2 + 1 jl = ng / 2 + 1
ju = jm / 2 ju = jm / 2
kl = 1 kl = 1
kl = ng ku = ng
do k = kl, ku do k = kl, ku
k2 = ke + 2 * (k - ng) k2 = ke + 2 * (k - ng)
@ -1031,7 +1032,7 @@ module boundaries
jl = ng / 2 + 1 jl = ng / 2 + 1
ju = jm / 2 ju = jm / 2
kl = 1 kl = 1
kl = ng ku = ng
do k = kl, ku do k = kl, ku
k2 = ke + 2 * (k - ng) k2 = ke + 2 * (k - ng)
@ -1057,7 +1058,7 @@ module boundaries
jl = jm / 2 + 1 jl = jm / 2 + 1
ju = jm - ng / 2 ju = jm - ng / 2
kl = 1 kl = 1
kl = ng ku = ng
do k = kl, ku do k = kl, ku
k2 = ke + 2 * (k - ng) k2 = ke + 2 * (k - ng)
@ -1083,7 +1084,7 @@ module boundaries
jl = jm / 2 + 1 jl = jm / 2 + 1
ju = jm - ng / 2 ju = jm - ng / 2
kl = 1 kl = 1
kl = ng ku = ng
do k = kl, ku do k = kl, ku
k2 = ke + 2 * (k - ng) k2 = ke + 2 * (k - ng)