module constlim
      REAL,ALLOCATABLE,SAVE :: dgcdrag(:),cdzconst(:)
      REAL :: ais1,ais2,cdzmin,ccdzh,cpgam,capsol
      REAL :: cdrat,dtradia,lmixmin
!$OMP THREADPRIVATE(dgcdrag,cdzconst)
!$OMP THREADPRIVATE(ais1,ais2,cdzmin,ccdzh,cpgam,capsol)
!$OMP THREADPRIVATE(cdrat,dtradia,lmixmin)
contains
  
  subroutine InitConstlim
  USE mod_phys_lmdz_para
  USE dimphy, ONLY : klon,klev
  implicit none
    
    allocate(dgcdrag(klon))
    allocate(cdzconst(klon))

  end subroutine Initconstlim
  
end module constlim