File: RELATIVE:/../../../mfix.git/model/ps_mod.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !  Module name: ps_mod.f                                               C
3     !                                                                      C
4     !  Purpose: Common block containing point source data.                 C
5     !                                                                      C
6     !  Author: J. Musser                                  Date: 10-Jun-13  C
7     !  Reviewer:                                          Date: dd-mmm-yy  C
8     !                                                                      C
9     !  Revision Number:                                                    C
10     !  Purpose:                                                            C
11     !  Author:                                            Date: dd-mmm-yy  C
12     !  Reviewer:                                          Date: dd-mmm-yy  C
13     !                                                                      C
14     !  Literature/Document References: None                                C
15     !                                                                      C
16     !  Variables referenced: None                                          C
17     !  Variables modified: None                                            C
18     !                                                                      C
19     !  Local variables: None                                               C
20     !                                                                      C
21     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
22           MODULE ps
23     
24           use param
25     
26     ! Run-time logical indicating that point sources are present.
27           LOGICAL :: POINT_SOURCE
28     
29           LOGICAL :: PS_DEFINED(DIMENSION_PS)
30     
31     ! Physical location of point sources.
32           DOUBLE PRECISION :: PS_X_w(DIMENSION_PS)  ! West
33           DOUBLE PRECISION :: PS_X_e(DIMENSION_PS)  ! East
34           DOUBLE PRECISION :: PS_Y_s(DIMENSION_PS)  ! South
35           DOUBLE PRECISION :: PS_Y_n(DIMENSION_PS)  ! North
36           DOUBLE PRECISION :: PS_Z_b(DIMENSION_PS)  ! Bottom
37           DOUBLE PRECISION :: PS_Z_t(DIMENSION_PS)  ! Top
38     
39     ! Cell indices delineating point source region:
40           INTEGER :: PS_I_w(DIMENSION_PS)  ! West
41           INTEGER :: PS_I_e(DIMENSION_PS)  ! East
42           INTEGER :: PS_J_s(DIMENSION_PS)  ! South
43           INTEGER :: PS_J_n(DIMENSION_PS)  ! North
44           INTEGER :: PS_K_b(DIMENSION_PS)  ! Bottom
45           INTEGER :: PS_K_t(DIMENSION_PS)  ! Top
46     
47     ! Gas mass flow rate through the point source:
48           DOUBLE PRECISION PS_MASSFLOW_g (DIMENSION_PS)
49     
50     ! Velocity vector for gas point source: (normalized)
51           DOUBLE PRECISION :: PS_U_g(DIMENSION_PS) ! X-axis
52           DOUBLE PRECISION :: PS_V_g(DIMENSION_PS) ! Y-axis
53           DOUBLE PRECISION :: PS_W_g(DIMENSION_PS) ! Z-axis
54     
55     ! Gas phase velocity magnitude: (calculated)
56           DOUBLE PRECISION :: PS_VEL_MAG_G(DIMENSION_PS)
57     
58     ! Gas phase species mass fractions
59           DOUBLE PRECISION :: PS_X_g(DIMENSION_PS, DIM_N_g)
60     
61     ! Gas phase temperature.
62           DOUBLE PRECISION :: PS_T_g(DIMENSION_PS)
63           DOUBLE PRECISION :: PS_CpxMFLOW_g(DIMENSION_PS)
64     
65     ! Solids mass flow rate through the point source:
66           DOUBLE PRECISION PS_MASSFLOW_s (DIMENSION_PS, DIM_M)
67     
68     ! Velocity vector for solids point sources: (normalized)
69           DOUBLE PRECISION :: PS_U_s(DIMENSION_PS, DIM_M) ! X-axis
70           DOUBLE PRECISION :: PS_V_s(DIMENSION_PS, DIM_M) ! Y-axis
71           DOUBLE PRECISION :: PS_W_s(DIMENSION_PS, DIM_M) ! Z-axis
72     
73     ! Solids phase velocity magnitude: (calculated)
74           DOUBLE PRECISION :: PS_VEL_MAG_S(DIMENSION_PS, DIM_M)
75     
76     ! Solids phase species mass fractions
77           DOUBLE PRECISION :: PS_X_s(DIMENSION_PS, DIM_M, DIM_N_s)
78     
79     ! Solids phase temperature.
80           DOUBLE PRECISION :: PS_T_s(DIMENSION_PS, DIM_M)
81           DOUBLE PRECISION :: PS_CpxMFLOW_s(DIMENSION_PS, DIM_M)
82     
83     ! Total volume of cells comprising point source cells (calculated)
84           DOUBLE PRECISION :: PS_VOLUME(DIMENSION_PS)
85     
86     ! Legacy variable... to be deleated
87           INTEGER, DIMENSION(:), ALLOCATABLE :: POINT_SOURCES
88     
89     
90           END MODULE ps
91