!-----------------------------------------------------------------------
! INCLUDE fisice.h

      COMMON/fisice/dqsf,rice,nuice,rdust,zcondicea

      REAL dqsf(nqmx)       ! tendance of tracer on surface (e.g. kg.m-2)
      REAL rice(ngridmx,nlayermx) ! Estimated ice crystal radius (m)
      REAL nuice(ngridmx,nlayermx) ! Estimated effective variance
                                   !   of the size distribution
                                   !   MODIF_JBM_08W45
      REAL rdust(ngridmx,nlayermx) ! Prescribed dust radius in each layer (m) 
! Variables used to define water ice scavenging by atmos. CO2 condensing
      REAL zcondicea(ngridmx,nlayermx)
!-----------------------------------------------------------------------