! ! $Id: nuage.h 4707 2023-09-25 18:19:15Z aborella $ ! REAL rad_froid, rad_chau1, rad_chau2 REAL tau_cld_cv,coefw_cld_cv REAL tmax_fonte_cv INTEGER iflag_cld_cv, iflag_ratqs LOGICAL ok_icefra_lscp common /nuagecom/ rad_froid,rad_chau1, rad_chau2, & & tau_cld_cv,coefw_cld_cv, & & tmax_fonte_cv,iflag_ratqs, & & iflag_cld_cv, & & ok_icefra_lscp !$OMP THREADPRIVATE(/nuagecom/)