doxy/html/phydev_2comgeomphy_8_f90_source.html

module comgeomphy

   real,save,allocatable :: airephy(:)

   real,save,allocatable :: cuphy(:)

   real,save,allocatable :: cvphy(:)

   real,save,allocatable :: rlatd(:)

   real,save,allocatable :: rlond(:)

!$OMP THREADPRIVATE(airephy,cuphy,cvphy,rlatd,rlond)

contains


  subroutine initcomgeomphy

  USE mod_phys_lmdz_para

  implicit none


    allocate(airephy(klon_omp))

    allocate(cuphy(klon_omp))

    allocate(cvphy(klon_omp))

    allocate(rlatd(klon_omp))

    allocate(rlond(klon_omp))


  end subroutine initcomgeomphy


end module comgeomphy