turb_mod.f

Go to the documentation of this file.

      MODULE turb

! Source term for K & Epsilon eq is linearized as
!    Source = K_Turb_G_c - K_Turb_G_p * K_Turb_G
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  k_turb_g_c
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  k_turb_g_p
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  e_turb_g_c
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  e_turb_g_p

! Diffusion coefficient for K & Epsilon
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  dif_k_turb_g
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  dif_e_turb_g

! Cross-corelation K_12 and time-scales in Simonin and Ahmadi
! models
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  k_12
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  tau_12
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  tau_1

      END MODULE turb