!
! $Header$
!
      REAL rad_froid, rad_chau1, rad_chau2

      common /nuagecom/ rad_froid,rad_chau1, rad_chau2