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