1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Subroutine: GET_FLOW_BC C 4 ! Purpose: Find and validate i, j, k locations for flow BC's. Also C 5 ! set value of bc_plane for flow BC's. C 6 ! C 7 ! Author: P. Nicoletti Date: 10-DEC-91 C 8 ! Reviewer: M.SYAMLAL, W.ROGERS, P.NICOLETTI Date: 27-JAN-92 C 9 ! C 10 ! Revision Number: C 11 ! Purpose: C 12 ! Author: Date: dd-mmm-yy C 13 ! Reviewer: Date: dd-mmm-yy C 14 ! C 15 ! Literature/Document References: C 16 ! C 17 ! Variables referenced: BC_DEFINED, BC_X_w, BC_X_e, BC_Y_s, BC_Y_n C 18 ! BC_Z_b, BC_Z_t, DX, DY, DZ, IMAX, JMAX, KMAX C 19 ! C 20 ! Variables modified: BC_I_w, BC_I_e, BC_J_s, BC_J_n, BC_K_b, BC_K_t C 21 ! ICBC_FLAG, BC_PLANE C 22 ! C 23 ! Local variables: BC, I, J, K, IJK, I_w, I_e, J_s, J_n, K_b, K_t C 24 ! ERROR, X_CONSTANT, Y_CONSTANT, Z_CONSTANT C 25 ! C 26 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 27 SUBROUTINE GET_FLOW_BC 28 29 IMPLICIT NONE 30 31 32 ! Stub file: TBR/JM 33 34 RETURN 35 END SUBROUTINE GET_FLOW_BC 36 37