!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*C       Calculate small time step for sedimentation terms when
*C       explicit microphysics (Kong & Yau, 1996) is used
*
            if (dzsedi.ge.dzsedi_def) then
               write(6,1150)
               call qqexit(1)
            endif
*
            nspliti=int(factdt*delt/(0.39*dzsedi)+0.5)
            if(nspliti.eq.0) then
               nsplit =1
               nspliti=1
            else
               nsplit =3
            endif
            nsplitg=2*nsplit*nspliti
            dti0=factdt*delt/float(nspliti)
            dt0=dti0/float(nsplit)
            cr6=grav*dt0
            ci6=grav*dti0
            cg6=0.5*cr6
*