set_bc_pic.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!                                                                      !
!  Subroutine: SET_BC_PIC                                              !
!  Author: R. Garg                                    Date: 11-Jun-14  !
!                                                                      !
!  Purpose: Check the data provided for the pic mass inflow boundary   !
!  condition and flag errors if the data is improper.  This module is  !
!  also used to convert the proveded information into the format       !
!  necessary for the dependent subrountines to function properly.      !
!  Rehack of set_bc_dem                                                !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      SUBROUTINE set_bc_pic

! Modules
!---------------------------------------------------------------------//
      USE discretelement, only: particles
      use error_manager
      USE param1, only: undefined_i
      USE pic_bc, only: pic_bcmi, pic_bcmo, pic_mio
      IMPLICIT NONE
!......................................................................!

      CALL init_err_msg("SET_BC_PIC")

! The variable PARTICLES should already be set by this point if using
! gener_part_config option
      IF(particles == undefined_i) THEN
         particles = 0
      ENDIF

! If the system is started without any particles and an inlet is not
! specified, the run is likely aborted.
! Inlet/outlet for MPPIC are based off the regular mfix declarations,
! and so PIC_BCMI could still be zero.
      IF(particles == 0 .AND. pic_bcmi == 0) THEN
         WRITE(err_msg, 1202)
         CALL flush_err_msg
      ENDIF

 1202 FORMAT('WARNING 1202: The system is initiated with no particles',&
         ' and no',/'solids inlet was detected.')

      IF(pic_bcmi > 0) CALL set_bc_pic_mi
      IF(pic_bcmo > 0) CALL set_bc_pic_mo

! Set the flag that one or more PIC MI/MO exists.
      pic_mio = (pic_bcmi /= 0 .OR. pic_bcmo /= 0)

      CALL finl_err_msg

      RETURN
      END SUBROUTINE set_bc_pic