source:
trunk/LMDZ.PLUTO/libf/phypluto/comdiurn_h.F90
Last change on this file was 3184, checked in by , 10 months ago | |
---|---|
File size: 205 bytes |
Line | |
---|---|
1 | |
2 | module comdiurn_h |
3 | |
4 | implicit none |
5 | |
6 | real,allocatable,dimension(:),save :: sinlon, coslon, sinlat, coslat |
7 | !$OMP THREADPRIVATE(sinlon,coslon,sinlat,coslat) |
8 | |
9 | end module comdiurn_h |
10 |
Note: See TracBrowser
for help on using the repository browser.