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

Last change on this file since 1316 was 1315, checked in by milmd, 11 years ago

LMDZ.GENERIC. OpenMP directives added in generic physic. When running in pure OpenMP or hybrid OpenMP/MPI, may have some bugs with condense_cloud and wstats routines.

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.