File: N:\mfix\model\init_fvars.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
2     !                                                                      !
3     !  Module name: INIT_FVARS                                             !
4     !  Purpose: Initialize all field variables.                            !
5     !                                                                      !
6     !  Author: M. Syamlal                                 Date: 23-JAN-94  !
7     !  Reviewer: J.Musser                                 Date:  8-Oct-13  !
8     !                                                                      !
9     !  Literature/Document References:                                     !
10     !                                                                      !
11     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
12           SUBROUTINE INIT_FVARS
13     
14     ! Global Variables:
15     !---------------------------------------------------------------------//
16     ! Gas phase volume farction
17           USE fldvar, only: EP_G
18     ! Pressures
19           USE fldvar, only: P_G    ! Gas
20           USE fldvar, only: P_s    ! Solids
21           USE fldvar, only: P_STAR ! Solids at EP_star
22     ! Densities
23           USE fldvar, only: RO_G  ! Gas
24           USE fldvar, only: RO_s  ! Solids
25     ! Bulk densities: RO*EP
26           USE fldvar, only: ROP_G ! Gas
27           USE fldvar, only: ROP_s ! Solids
28     ! Gas velocity components:
29           USE fldvar, only: U_G  ! x-axis
30           USE fldvar, only: V_G  ! y-axis
31           USE fldvar, only: W_G  ! z-axis
32     ! Solids velocity components:
33           USE fldvar, only: U_S  ! x-axis
34           USE fldvar, only: V_S  ! y-axis
35           USE fldvar, only: W_S  ! z-axis
36     ! Temperature
37           USE fldvar, only: T_G  ! Gas
38           USE fldvar, only: T_S  ! Solids
39     ! Species mass fractions
40           USE fldvar, only: X_G  ! Gas
41           USE fldvar, only: X_S  ! Solids
42     ! Solids particle diameter
43           USE fldvar, only: D_P
44     ! Granular Energy
45           USE fldvar, only: THETA_M
46     ! Granular energy conductivity
47           USE physprop, only: KTH_S
48     ! Gas turbulence
49           USE fldvar, only: K_Turb_G
50           USE fldvar, only: E_Turb_G
51     ! User-scalar equation field
52           USE fldvar, only: Scalar
53     ! Reaction Rates
54           USE rxns, only: ReactionRates
55     
56     ! Global Parameters:
57     !---------------------------------------------------------------------//
58           USE param1, only: UNDEFINED
59           USE param1, only: ZERO
60     
61     
62           IMPLICIT NONE
63     
64     ! Passed Variables:
65     !---------------------------------------------------------------------//
66     ! NONE
67     
68     ! Local Variables:
69     !---------------------------------------------------------------------//
70     ! NONE
71     
72           IF(allocated(EP_G)) EP_G = UNDEFINED
73     
74           IF(allocated(P_G)) P_G  = UNDEFINED
75           IF(allocated(P_S)) P_s = UNDEFINED
76           IF(allocated(P_STAR)) P_STAR = UNDEFINED
77     
78           IF(allocated(RO_G)) RO_G = UNDEFINED
79           IF(allocated(RO_S)) RO_s = UNDEFINED
80           IF(allocated(ROP_G)) ROP_G = UNDEFINED
81           IF(allocated(ROP_S)) ROP_s = UNDEFINED
82     
83           IF(allocated(U_G)) U_G = UNDEFINED
84           IF(allocated(V_G)) V_G = UNDEFINED
85           IF(allocated(W_G)) W_G = UNDEFINED
86     
87           IF(allocated(U_S)) U_S = UNDEFINED
88           IF(allocated(V_S)) V_S = UNDEFINED
89           IF(allocated(W_S)) W_S = UNDEFINED
90     
91           IF(allocated(T_G)) T_G = ZERO
92           IF(allocated(T_S)) T_S = ZERO
93     
94           IF(allocated(X_G)) X_G = ZERO
95           IF(allocated(X_S)) X_S = ZERO
96     
97           IF(allocated(D_P)) D_P = ZERO
98           IF(allocated(THETA_M)) THETA_M = ZERO
99           IF(allocated(KTH_S)) KTH_S = UNDEFINED
100     
101           IF(allocated(K_Turb_G)) K_Turb_G = ZERO
102           IF(allocated(E_Turb_G)) E_Turb_G = ZERO
103     
104           IF(allocated(Scalar)) Scalar = ZERO
105           IF(allocated(ReactionRates)) ReactionRates = ZERO
106     
107           RETURN
108           END SUBROUTINE INIT_FVARS
109