module comgeomphy
   real,save,allocatable :: cell_area(:) ! airephy(:)
   real,save,allocatable :: dx(:) !cuphy(:)
   real,save,allocatable :: dy(:) !cvphy(:)
   real,save,allocatable :: latitude(:) !rlatd(:)
   real,save,allocatable :: longitude(:) !rlond(:)
!$OMP THREADPRIVATE(cell_area,dx,dy,latitude,longitude)
contains
  
  subroutine initcomgeomphy
  USE mod_phys_lmdz_para, only: klon_omp
  implicit none
    
 
    allocate(cell_area(klon_omp))
    allocate(dx(klon_omp))
    allocate(dy(klon_omp))
    allocate(latitude(klon_omp))
    allocate(longitude(klon_omp))

  end subroutine initcomgeomphy
  
end module comgeomphy