Diff of /trunk/src/core/openboundary.f90
Parent Directory
| 
Revision Log
| 
Patch
| 27 |
fraction = 0.9_num |
fraction = 0.9_num |
| 28 |
|
|
| 29 |
! right boundary |
! right boundary |
| 30 |
IF (xbc_right == BC_OPEN .AND. right == MPI_PROC_NULL) THEN |
IF (xbc_max == BC_OPEN .AND. right == MPI_PROC_NULL) THEN |
| 31 |
DO iy = -1, ny + 1 |
DO iy = -1, ny + 1 |
| 32 |
! variables carried out of domain by Riemann invariants |
! variables carried out of domain by Riemann invariants |
| 33 |
vxbc(1) = vx(nx, iy) |
vxbc(1) = vx(nx, iy) |
| 74 |
END IF |
END IF |
| 75 |
|
|
| 76 |
! left bounday |
! left bounday |
| 77 |
IF (xbc_left == BC_OPEN .AND. left == MPI_PROC_NULL) THEN |
IF (xbc_min == BC_OPEN .AND. left == MPI_PROC_NULL) THEN |
| 78 |
DO iy = -1, ny + 1 |
DO iy = -1, ny + 1 |
| 79 |
vxbc(1) = - vx(0, iy) |
vxbc(1) = - vx(0, iy) |
| 80 |
vybc(1) = vy(0, iy) |
vybc(1) = vy(0, iy) |
| 118 |
END IF |
END IF |
| 119 |
|
|
| 120 |
! top boundary |
! top boundary |
| 121 |
IF (ybc_up == BC_OPEN .AND. up == MPI_PROC_NULL) THEN |
IF (ybc_max == BC_OPEN .AND. up == MPI_PROC_NULL) THEN |
| 122 |
DO ix = -1, nx + 1 |
DO ix = -1, nx + 1 |
| 123 |
vxbc(1) = vy(ix, ny) |
vxbc(1) = vy(ix, ny) |
| 124 |
vybc(1) = vx(ix, ny) |
vybc(1) = vx(ix, ny) |
| 162 |
END IF |
END IF |
| 163 |
|
|
| 164 |
! bottom boundary |
! bottom boundary |
| 165 |
IF (ybc_down == BC_OPEN .AND. down == MPI_PROC_NULL) THEN |
IF (ybc_min == BC_OPEN .AND. down == MPI_PROC_NULL) THEN |
| 166 |
DO ix = -1, nx + 1 |
DO ix = -1, nx + 1 |
| 167 |
vxbc(1) = - vy(ix, 0) |
vxbc(1) = - vy(ix, 0) |
| 168 |
vybc(1) = vx(ix, 0) |
vybc(1) = vx(ix, 0) |
|
|
Legend:
| Removed from v.114 |
|
| changed lines |
| |
Added in v.171 |
|
|
