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

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