1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! ! 3 ! Subroutine: GET_WALLS_BC ! 4 ! Author: P. Nicoletti Date: 10-DEC-91 ! 5 ! ! 6 ! Purpose: Find and validate i, j, k locations for walls BC's ! 7 ! ! 8 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^! 9 SUBROUTINE GET_WALLS_BC 10 11 IMPLICIT NONE 12 13 ! Stub file: TBR/JM 14 15 RETURN 16 END SUBROUTINE GET_WALLS_BC 17 18