source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/comsaison_h.F90 @ 242

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

Last LMDZ version (1315) with OpenMP directives and other stuff
File size: 276 bytes
Line 
1
2       module comsaison_h
3
4       implicit none
5
6       integer isaison
7       logical callsais
8       real dist_star,declin
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.