module conc
     use dimphy
     IMPLICIT NONE

     
      REAL, ALLOCATABLE, SAVE :: mmean(:,:)
!$OMP THREADPRIVATE(mmean)
      REAL, ALLOCATABLE, SAVE :: rho(:,:)
!$OMP THREADPRIVATE(rho)
      REAL, ALLOCATABLE, SAVE :: Akknew(:,:)
!$OMP THREADPRIVATE(Akknew)
      REAL, ALLOCATABLE, SAVE :: rnew(:,:)
!$OMP THREADPRIVATE(rnew)
      REAL, ALLOCATABLE, SAVE :: cpnew(:,:)
!$OMP THREADPRIVATE(cpnew)


      CONTAINS
!=================================================================
     subroutine conc_init
     USE dimphy
     implicit none

     ALLOCATE(mmean(klon,klev)) 
     ALLOCATE(rho(klon,klev))       
     ALLOCATE(Akknew(klon,klev))  
     ALLOCATE(rnew(klon,klev))  
     ALLOCATE(cpnew(klon,klev)) 
     end subroutine conc_init


  end module conc