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 | |
---|---|
File size: 220 bytes |
Rev | Line | |
---|---|---|
[222] | 1 | |
2 | module comgeomfi_h | |
3 | ||
4 | implicit none | |
5 | ||
6 | REAL,ALLOCATABLE,DIMENSION(:) :: long,lati,area | |
7 | REAL :: totarea, totarea_planet | |
[227] | 8 | !$OMP THREADPRIVATE(long,lati,area,totarea) |
[222] | 9 | |
10 | end module comgeomfi_h | |
11 |
Note: See TracBrowser
for help on using the repository browser.