set_bc_dem.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!                                                                      !
!  Subroutine: SET_BC_DEM                                              !
!  Author: J.Musser                                   Date: 13-Jul-09  !
!                                                                      !
!  Purpose: Check the data provided for the des 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.      !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      SUBROUTINE set_bc_dem

      USE constant
      USE des_bc
      USE discretelement
      USE funits
      USE geometry
      USE indices
      USE param
      USE param1
      USE physprop
      USE run
      USE mfix_pic
      use mpi_utility

      use bc

      use error_manager

      IMPLICIT NONE


      CALL init_err_msg("SET_BC_DEM")

! 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 DEM_BCMI could still be zero.
      IF(particles == 0 .AND. dem_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(dem_bcmi > 0) CALL set_bc_dem_mi
      IF(dem_bcmo > 0) CALL set_bc_dem_mo

! Set the flag that one or more DEM MI/MO exists.
      dem_mio = (dem_bcmi /= 0 .OR. dem_bcmo /= 0)

      CALL finl_err_msg

      RETURN
      END SUBROUTINE set_bc_dem