source: trunk/LMDZ.MARS/libf/phymars/turb_mod.F90 @ 3400

module turb_mod

  !! variables
  REAL,SAVE,ALLOCATABLE :: q2(:,:)    ! Turbulent Kinetic Energy
  REAL,allocatable,SAVE :: l0(:)
  REAL,SAVE,ALLOCATABLE :: ustar(:)
  REAL,SAVE,ALLOCATABLE :: wstar(:)
  REAL,SAVE,ALLOCATABLE :: tstar(:)
  REAL,SAVE,ALLOCATABLE :: hfmax_th(:)
  REAL,SAVE,ALLOCATABLE :: zmax_th(:)
  REAL,SAVE,ALLOCATABLE :: sensibFlux(:)
  LOGICAL :: turb_resolved = .false. 
      ! this is a flag to say 'turbulence is resolved'
      ! mostly for LES use. default is FALSE (for GCM and mesoscale)

!$OMP THREADPRIVATE(q2, l0,ustar,wstar,tstar,hfmax_th,zmax_th,     &
!$OMP                sensibFlux)

contains

  subroutine ini_turb_mod(ngrid,nlayer)
  
  implicit none
  integer,intent(in) :: ngrid ! number of atmospheric columns
  integer,intent(in) :: nlayer ! number of atmospheric layers

    allocate(q2(ngrid,nlayer+1))
    allocate(l0(ngrid))
    allocate(wstar(ngrid))
    allocate(ustar(ngrid))
    allocate(tstar(ngrid))
    allocate(hfmax_th(ngrid))
    allocate(zmax_th(ngrid))
    allocate(sensibFlux(ngrid))

  end subroutine ini_turb_mod

  subroutine end_turb_mod

  implicit none

    if (allocated(q2)) deallocate(q2)
    if (allocated(l0)) deallocate(l0)
    if (allocated(wstar)) deallocate(wstar)
    if (allocated(ustar)) deallocate(ustar)
    if (allocated(tstar)) deallocate(tstar)
    if (allocated(hfmax_th)) deallocate(hfmax_th)
    if (allocated(zmax_th)) deallocate(zmax_th)
    if (allocated(sensibFlux)) deallocate(sensibFlux)

  end subroutine end_turb_mod

end module turb_mod