File: /nfs/home/0/users/jenkins/mfix.git/model/check_data/check_solids_mppic.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
2     !                                                                      !
3     !  SUBROUTINE: CHECK_SOLIDS_MPPIC                                      !
4     !  Purpose:                                                            !
5     !                                                                      !
6     !  Author: J.Musser                                   Date: 02-FEB-14  !
7     !                                                                      !
8     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
9           SUBROUTINE CHECK_SOLIDS_MPPIC
10     
11     
12     ! Global Variables:
13     !---------------------------------------------------------------------//
14     ! Domain partitions in various directions.
15     !      use geometry, only: IMAX
16     !      use geometry, only: JMAX
17     !      use geometry, only: KMAX
18     ! Runtime flag specifying 2D simulations
19     !      use geometry, only: NO_K
20     
21     
22           USE param1
23           USE geometry
24           USE funits
25           USE discretelement
26           USE constant
27           USE physprop
28           USE fldvar
29           USE toleranc
30           USE mfix_pic
31           USE cutcell
32           USE functions
33     
34           USE mpi_utility
35     
36     
37     ! Global Parameters:
38     !---------------------------------------------------------------------//
39     !      use param1, only: UNDEFINED_I
40     
41     ! Use the error manager for posting error messages.
42     !---------------------------------------------------------------------//
43           use error_manager
44     
45           implicit none
46     
47     !-----------------------------------------------
48     
49     ! Initialize the error manager.
50           CALL INIT_ERR_MSG("CHECK_SOLIDS_MPPIC")
51     
52     
53     
54     
55           IF(MPPIC_COEFF_EN1 == UNDEFINED) THEN
56              WRITE(ERR_MSG, 1000) 'MPPIC_COEFF_EN1'
57              CALL FLUSH_ERR_MSG(ABORT=.TRUE.)
58     
59           ELSEIF(MPPIC_COEFF_EN1 > ONE .OR.                                &
60              MPPIC_COEFF_EN1 < ZERO) THEN
61              WRITE(ERR_MSG, 1001) 'MPPIC_COEFF_EN1',                       &
62                 trim(iVal(MPPIC_COEFF_EN1))
63              CALL FLUSH_ERR_MSG(ABORT=.TRUE.)
64           ENDIF
65     
66           IF(MPPIC_COEFF_EN2 == UNDEFINED) THEN
67              WRITE(ERR_MSG, 1000) 'MPPIC_COEFF_EN2'
68              CALL FLUSH_ERR_MSG(ABORT=.TRUE.)
69     
70           ELSEIF(MPPIC_COEFF_EN2 > ONE .OR.                                &
71              MPPIC_COEFF_EN2 < ZERO) THEN
72              WRITE(ERR_MSG, 1001) 'MPPIC_COEFF_EN2',                       &
73                 trim(iVal(MPPIC_COEFF_EN2))
74              CALL FLUSH_ERR_MSG(ABORT=.TRUE.)
75           ENDIF
76     
77           IF(MPPIC_COEFF_EN_WALL > ONE .OR.                                &
78              MPPIC_COEFF_EN_WALL < ZERO) THEN
79              WRITE(ERR_MSG, 1001) 'MPPIC_COEFF_EN_WALL',                   &
80                 trim(iVal(MPPIC_COEFF_EN_WALL))
81              CALL FLUSH_ERR_MSG(ABORT=.TRUE.)
82           ENDIF
83     
84           IF(MPPIC_COEFF_ET_WALL > ONE .OR.                                &
85              MPPIC_COEFF_ET_WALL < ZERO) THEN
86              WRITE(ERR_MSG, 1001) 'MPPIC_COEFF_ET_WALL',                   &
87                 trim(iVal(MPPIC_COEFF_ET_WALL))
88              CALL FLUSH_ERR_MSG(ABORT=.TRUE.)
89           ENDIF
90     
91     
92      1000 FORMAT('Error 1000: Required input not specified: ',A,/'Please ',&
93              'correct the mfix.dat file.')
94     
95      1001 FORMAT('Error 1001: Illegal or unknown input: ',A,' = ',A,/   &
96              'Please correct the mfix.dat file.')
97     
98     
99           CALL FINL_ERR_MSG
100     
101           RETURN
102     
103           END SUBROUTINE CHECK_SOLIDS_MPPIC
104