source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/comgeomfi_h.F90 @ 264

Last change on this file since 264 was 227, checked in by milmd, 10 years ago

Last LMDZ version (1315) with OpenMP directives and other stuff
File size: 220 bytes
Line 
1
2       module comgeomfi_h
3
4       implicit none
5
6       REAL,ALLOCATABLE,DIMENSION(:) :: long,lati,area
7       REAL :: totarea, totarea_planet
8!$OMP THREADPRIVATE(long,lati,area,totarea)
9
10       end module comgeomfi_h
11
Note: See TracBrowser for help on using the repository browser.