Go to the source code of this file.
|
| subroutine | set_wall_bc () |
| |
| subroutine | set_wall_bc1 (II1, II2, JJ1, JJ2, KK1, KK2, BC_JJ_PSL) |
| |
| subroutine | equal (ARRAY1, IJK1, SIGN0, ARRAY2, IJK2) |
| |
| subroutine set_wall_bc1::equal |
( |
double precision, dimension (dimension_3, *), intent(out) |
ARRAY1, |
|
|
integer, intent(in) |
IJK1, |
|
|
double precision, intent(in) |
SIGN0, |
|
|
double precision, dimension (dimension_3, *), intent(in) |
ARRAY2, |
|
|
integer, intent(in) |
IJK2 |
|
) |
| |
| subroutine set_wall_bc |
( |
| ) |
|
| subroutine set_wall_bc1 |
( |
integer, intent(in) |
II1, |
|
|
integer, intent(in) |
II2, |
|
|
integer, intent(in) |
JJ1, |
|
|
integer, intent(in) |
JJ2, |
|
|
integer, intent(in) |
KK1, |
|
|
integer, intent(in) |
KK2, |
|
|
integer, intent(in) |
BC_JJ_PSL |
|
) |
| |