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

1     
2           MODULE turb
3     
4     
5           Use param
6           Use param1
7     
8     
9     !
10     !                      Source term for K & Epsilon eq is linearized as
11     !                      Source = K_Turb_G_c - K_Turb_G_p * K_Turb_G
12           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  K_Turb_G_c
13           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  K_Turb_G_p
14           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  E_Turb_G_c
15           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  E_Turb_G_p
16     !
17     !                      Diffusion coefficient for K & Epsilon
18           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Dif_K_Turb_G
19           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Dif_E_Turb_G
20     !
21     !                      Cross-corelation K_12 and time-scales in Simonin
22     !                      and Ahmadi models
23           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  K_12
24           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Tau_12
25           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  Tau_1
26     !                      Cos_theta in Tau_12 calculation
27           DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: Cos_Theta
28     
29           END MODULE turb
30