visc_g_mod.f

Go to the documentation of this file.

      MODULE visc_g

! trace of D_g at i, j, k
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  trd_g

! Turbulent viscosity of fluid phase: sum of molecular
! and eddy viscosities
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  mu_gt

! Turbulent viscosity of fluid phase: sum of molecular
! and eddy viscosities x the void fraction of fluid phase
! when ishii model is invoked
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  epmu_gt


! Second coefficient of viscosity
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  lambda_gt

! Second coefficient of viscosity x void fraction of fluid phase
! when ishii model is invoked
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  eplambda_gt

! Characteristic length for turbulence
      DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE ::  l_scale

! gas viscosity needs to be updated during iterations?
      LOGICAL :: recalc_visc_g

! diffusive component of conv-dif
! stores diffusive term in matrix for x, y, z momentum cell
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: df_gu
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: df_gv
      DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: df_gw

      END MODULE visc_g