c-----------------------------------------------------------------------
c INCLUDE fisice.h

      COMMON/fisice/dqsf,rice_ch4,rice_co,nuice,rnuclei,zcondicea

      REAL dqsf(nqmx)       ! tendance of tracer on surface (e.g. kg.m-2)
      REAL rice_ch4(ngridmx,nlayermx) ! CH4 Estimated ice crystal radius (m)
      REAL rice_co(ngridmx,nlayermx)  ! CO Estimated ice crystal radius (m)
      REAL nuice(ngridmx,nlayermx) ! Estimated effective variance
                                   !   of the size distribution
                                   !   MODIF_JBM_08W45
      REAL rnuclei(ngridmx,nlayermx) ! Prescribed nuclei radius in each layer (m) 
c Variables used to define ice scavenging by atmos. N2 condensing
      REAL zcondicea(ngridmx,nlayermx)
c-----------------------------------------------------------------------