source:
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/comdiurn_h.F90
@
264
Last change on this file since 264 was 227, checked in by milmd, 10 years ago | |
---|---|
File size: 252 bytes |
Rev | Line | |
---|---|---|
[222] | 1 | |
2 | module comdiurn_h | |
3 | ||
4 | implicit none | |
5 | ||
6 | real, allocatable, dimension(:) :: sinlon, coslon, sinlat, coslat | |
7 | logical :: ldiurn | |
[227] | 8 | !$OMP THREADPRIVATE(sinlon,coslon,sinlat,coslat,ldiurn) !ldiurn is unused |
[222] | 9 | |
10 | end module comdiurn_h | |
11 |
Note: See TracBrowser
for help on using the repository browser.