turbo_mod.F90

Go to the documentation of this file.

module turbo
!       Common block for turbulence model
  use kinds, only : dp
  implicit none

#if 0
  real(DP), allocatable, dimension(:,:,:,:) :: vturb, turbl, uwall, zwall
  real(DP), allocatable, dimension(:,:,:,:) :: twx, twy, twz

  real(DP) :: cmu,cmt,sgk,sge,ce1,ce2,vkc,bta,sgt &
    , beta1,beta2 &
    , cmi,ski,sei,vki,bti,sti &
    , zpldat,zpudat,zpvdat,tlmax,tlimul
#endif

  integer :: ifldk,ifldtk,iflde,ifldte
  logical :: ifswall,ifcwuz
!  logical, allocatable :: IFTWSH(:,:)

  contains

  subroutine init_turbo
    use size_m
    implicit none

#if 0
    allocate(vturb(lx1m,ly1m,lz1m,lelv) &
    , turbl(lx1m,ly1m,lz1m,lelv) &
    , uwall(lx1m,lz1m,6,lelv) &
    , zwall(lx1m,lz1m,6,lelv) &
    , twx(lx1m,lz1m,6,lelv) &
    , twy(lx1m,lz1m,6,lelv) &
    , twz(lx1m,lz1m,6,lelv) )

    allocate(iftwsh(6,lelv))
#endif

  end subroutine init_turbo

end module turbo