CMASSI.f

  module cmassi_mod
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   implicit none
!
!-----------------------------------------------------------------------
      REAL, PARAMETER :: dmimin=.05e-3, dmimax=1.e-3,      &
     &  XMImin=1.e6*DMImin, XMImax=1.e6*DMImax
      INTEGER, PARAMETER :: mdimin=xmimin, mdimax=xmimax
!-----------------------------------------------------------------------
!--- Mean mass of precpitation ice particles as functions of their mean
!    size (in microns)
!
      REAL massi(mdimin:mdimax)
!
!--- Mean rain drop diameters vary from 50 microns to 1000 microns
! DMRmax definition is moved to microinit and has different values depending on imp_physics
      REAL, PARAMETER :: dmrmin=.05e-3, deldmr=1.e-6    &
     &, XMRmin=1.E6*DMRmin, N0r0=8.E6, N0rmin=1.e4
      REAL dmrmax,xmrmax
      INTEGER, PARAMETER :: mdrmin=xmrmin
      INTEGER mdrmax
!
!--- Various rain lookup tables
!
      REAL rqr_drmin,rqr_drmax,           &
           cn0r0,cn0r_dmrmin,cn0r_dmrmax
!
!--- Other important parameters
!    (NLImax, FLARGE2 are used for the older version of the microphysics)
!
      REAL t_ice,nlimax,flarge2,trad_ice
!
  end module  cmassi_mod