check_solids_mppic.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!                                                                      !
!  SUBROUTINE: CHECK_SOLIDS_MPPIC                                      !
!  Purpose:                                                            !
!                                                                      !
!  Author: J.Musser                                   Date: 02-FEB-14  !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      SUBROUTINE check_solids_mppic


! Global Variables:
!---------------------------------------------------------------------//
! Domain partitions in various directions.
!      use geometry, only: IMAX
!      use geometry, only: JMAX
!      use geometry, only: KMAX
! Runtime flag specifying 2D simulations
!      use geometry, only: NO_K


      USE param1
      USE geometry
      USE funits
      USE discretelement
      USE constant
      USE physprop
      USE fldvar
      USE toleranc
      USE mfix_pic
      USE cutcell
      USE functions

      USE mpi_utility


! Global Parameters:
!---------------------------------------------------------------------//
!      use param1, only: UNDEFINED_I

! Use the error manager for posting error messages.
!---------------------------------------------------------------------//
      use error_manager

      implicit none

!-----------------------------------------------

! Initialize the error manager.
      CALL init_err_msg("CHECK_SOLIDS_MPPIC")




      IF(mppic_coeff_en1 == undefined) THEN
         WRITE(err_msg, 1000) 'MPPIC_COEFF_EN1'
         CALL flush_err_msg(abort=.true.)

      ELSEIF(mppic_coeff_en1 > one .OR.                                &
         mppic_coeff_en1 < zero) THEN
         WRITE(err_msg, 1001) 'MPPIC_COEFF_EN1',                       &
            trim(ival(mppic_coeff_en1))
         CALL flush_err_msg(abort=.true.)
      ENDIF

      IF(mppic_coeff_en2 == undefined) THEN
         WRITE(err_msg, 1000) 'MPPIC_COEFF_EN2'
         CALL flush_err_msg(abort=.true.)

      ELSEIF(mppic_coeff_en2 > one .OR.                                &
         mppic_coeff_en2 < zero) THEN
         WRITE(err_msg, 1001) 'MPPIC_COEFF_EN2',                       &
            trim(ival(mppic_coeff_en2))
         CALL flush_err_msg(abort=.true.)
      ENDIF

      IF(mppic_coeff_en_wall > one .OR.                                &
         mppic_coeff_en_wall < zero) THEN
         WRITE(err_msg, 1001) 'MPPIC_COEFF_EN_WALL',                   &
            trim(ival(mppic_coeff_en_wall))
         CALL flush_err_msg(abort=.true.)
      ENDIF

      IF(mppic_coeff_et_wall > one .OR.                                &
         mppic_coeff_et_wall < zero) THEN
         WRITE(err_msg, 1001) 'MPPIC_COEFF_ET_WALL',                   &
            trim(ival(mppic_coeff_et_wall))
         CALL flush_err_msg(abort=.true.)
      ENDIF


 1000 FORMAT('Error 1000: Required input not specified: ',a,/'Please ',&
         'correct the mfix.dat file.')

 1001 FORMAT('Error 1001: Illegal or unknown input: ',a,' = ',a,/   &
         'Please correct the mfix.dat file.')


      CALL finl_err_msg

      RETURN

      END SUBROUTINE check_solids_mppic