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

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

calling iniphysics directly from dynamico

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