source: trunk/LMDZ.GENERIC/libf/phystd/comgeomfi_h.F90 @ 1477

Last change on this file since 1477 was 1315, checked in by milmd, 10 years ago

LMDZ.GENERIC. OpenMP directives added in generic physic. When running in pure OpenMP or hybrid OpenMP/MPI, may have some bugs with condense_cloud and wstats routines.

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.