integer nn,lng,lenc,k,nltop,nlayr

      _RL UOI(lng,nlayr,ntracedim),   POI(lng,K)

      _RL QOI(lng,K), PRS(lng,K+1), PRJ(lng,K+1)

      _RL RAINS(lng,K), CLN(lng,K), CLF(lng,K)

      _RL cldmas(lng,K), detrain(lng,K)

      _RL cp,grav,rkappa,alhl,rhfrac(lng),rasmax

      _RL TCU(lng,K), QCU(lng,K)

      _RL ucu(lng,K,ntracedim)

      _RL ALF(lng,K), BET(lng,K), GAM(lng,K)

     *,         ETA(lng,K), HOI(lng,K)

     *,         PRH(lng,K), PRI(lng,K)

      _RL HST(lng,K), QOL(lng,K), GMH(lng,K)

      _RL TX1(lng), TX2(lng), TX3(lng), TX4(lng), TX5(lng)

     *,         TX6(lng), TX7(lng), TX8(lng), TX9(lng)

     *,         TX11(lng), TX12(lng), TX13(lng), TX14(lng,ntracedim)

     *,         TX15(lng)

     *,         WFN(lng) 

      integer IA1(lng), IA2(lng), IA3(lng)

      _RL cloudn(lng), pcu(lng)

      _RL cmass(lng,K)

      _RL thbef(lng,K)

       CALL CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IB, RASBLF,SETRAS,FRAC

      SUBROUTINE CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IC, RASALF

      integer nn,lng,LENC,K,NLTOP,nlayr,ic,ntracedim, ntracer

      _RL POI(lng,K),QOI(lng,K),PRS(lng,K+1),PRJ(lng,K+1)

      _RL uoi(lng,nlayr,ntracedim)

      _RL PCU(LENC), CLN(lng)

      _RL TCU(lng,K),QCU(lng,K),ucu(lng,k,ntracedim),CMASS(lng,K)

      _RL ALF(lng,K), BET(lng,K),  GAM(lng,K), PRH(lng,K), PRI(lng,K)

      _RL uht(lng,ntracedim)

      _RL      rhfrac(lng)

      DO 10 I=1,lng

      SUBROUTINE RNCL(lng, PL, RNO, CLF)

      integer lng

      _RL PL(lng),  RNO(lng), CLF(lng)

      DO 10 I=1,lng

      SUBROUTINE ACRITN ( lng,PL,PLB,ACR )

      integer lng

      _RL PL(lng), PLB(lng), ACR(lng)

      do i=1,lng

      do i=1,lng

      do i=1,lng