source: trunk/LMDZ.GENERIC/libf/phystd/comdiurn_h.F90 @ 1351

Last change on this file since 1351 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: 252 bytes
RevLine 
[787]1
2       module comdiurn_h
3
4       implicit none
5
6       real, allocatable, dimension(:) :: sinlon, coslon, sinlat, coslat
7       logical :: ldiurn
[1315]8!$OMP THREADPRIVATE(sinlon,coslon,sinlat,coslat,ldiurn) !ldiurn is unused
[787]9
10       end module comdiurn_h
11
Note: See TracBrowser for help on using the repository browser.