source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/comgeomphy.F90 @ 222

Last change on this file since 222 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 572 bytes
Line 
1module comgeomphy
2   real,save,allocatable :: airephy(:)
3   real,save,allocatable :: cuphy(:)
4   real,save,allocatable :: cvphy(:)
5   real,save,allocatable :: rlatd(:)
6   real,save,allocatable :: rlond(:)
7!$OMP THREADPRIVATE(airephy,cuphy,cvphy,rlatd,rlond)
8contains
9 
10  subroutine initcomgeomphy
11  USE mod_phys_lmdz_para, only: klon_omp
12  implicit none
13   
14 
15    allocate(airephy(klon_omp))
16    allocate(cuphy(klon_omp))
17    allocate(cvphy(klon_omp))
18    allocate(rlatd(klon_omp))
19    allocate(rlond(klon_omp))
20
21  end subroutine initcomgeomphy
22 
23end module comgeomphy
Note: See TracBrowser for help on using the repository browser.