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

1           MODULE pscor
2     
3     
4           Use param
5           Use param1
6     
7     
8           INTEGER          P_star_bdry
9           PARAMETER        (P_star_bdry = 100)
10     
11     !
12     !  Variables for solids pressure correction equation
13     !
14     !
15           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  e_e
16     !
17           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  e_n
18     !
19           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  e_t
20     !
21     !                      dPodEP_s
22           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  K_cp
23     !
24     !                      Solids volume fraction correction
25           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  EPp
26     !
27     !                      Indicates the phase used for solids pressure correction
28           INTEGER, DIMENSION(:), ALLOCATABLE ::           PHASE_4_P_s
29     !
30     !                      Indicates whether different phases were used for solids
31     !                      pressure correction
32           LOGICAL          SWITCH_4_P_s
33     !
34     !                      Indicates whether solids pressure correction is needed.
35           LOGICAL          DO_P_s
36     !
37     !                      Index for close-packed solids phase
38           INTEGER          Mcp
39     !
40     
41     
42     !!!HPF$ align e_e(:) with TT(:)
43     !!!HPF$ align e_n(:) with TT(:)
44     !!!HPF$ align e_t(:) with TT(:)
45     !!!HPF$ align K_cp(:) with TT(:)
46     !!!HPF$ align EPp(:) with TT(:)
47     !!!HPF$ align PHASE_4_P_s(:) with TT(:)
48     
49     
50           END MODULE pscor
51