source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/comdiurn_h.F90 @ 227

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

Last LMDZ version (1315) with OpenMP directives and other stuff
File size: 252 bytes
Line 
1
2       module comdiurn_h
3
4       implicit none
5
6       real, allocatable, dimension(:) :: sinlon, coslon, sinlat, coslat
7       logical :: ldiurn
8!$OMP THREADPRIVATE(sinlon,coslon,sinlat,coslat,ldiurn) !ldiurn is unused
9
10       end module comdiurn_h
11
Note: See TracBrowser for help on using the repository browser.