source: trunk/LMDZ.GENERIC/libf/phystd/comsaison_h.F90 @ 1626

Last change on this file since 1626 was 1327, checked in by jleconte, 10 years ago

correct previous commit

File size: 288 bytes
Line 
1
2       module comsaison_h
3
4       implicit none
5
6       integer isaison
7       logical callsais
8       real dist_star,declin,right_ascen
9
10       real, allocatable, dimension(:) :: mu0,fract
11!$OMP THREADPRIVATE(isaison,callsais,dist_star,declin,mu0,fract)
12
13       end module comsaison_h
Note: See TracBrowser for help on using the repository browser.