REAL rad_froid, rad_chau1, rad_chau2

      common /nuage/ rad_froid,rad_chau1, rad_chau2