_RL    EVAP(NCH),  SATCAP(NCH),  VGWMAX(NLAY,NTYPS),

     &       CAPAC(NCH),    SNOW(NCH),    SWET(nch,NLAY),

      _RL   WSMAX(NLAY,NTYPS),   PHLAY(nch,NLAY),

     &       AKLAY(nch,NLAY),             TC(NCH),

     &                  DTSTEP,    SWET(nch,NLAY),

     &      VGZDEX(NLAY,nch),  WETEQ1(NCH),  WETEQ2(NCH),

     &      WMAX(NLAY,NTYPS), TC(NCH),   CSOIL(NCH),   CAPAC(NCH),

      _RL     SWET(nch,NLAY),   VGPSAT(NTYPS),   VGCSAT (NTYPS),

     &       VGZDEP(NLAY,NTYPS),   VGSLOP(NTYPS),            DELTC,

      _RL PHLAY(nch,NLAY), AKLAY(nch,NLAY), SWET12(nch),

      _RL EMAXRT(nch), VGWMAX(NLAY,NTYPS), FTEMP(nch),

     &                VGZDEX(NLAY,nch), VGSLOX(nch), VGPH1X(nch),

     &      EMAXRT(NCH),         WMAX(NLAY,NTYPS),

     &               SWET1(NCH,NLAY),   SNOW(NCH),

       SUBROUTINE RNEVP(NN,IRUN,NLAY,TL,QL,RAIN,PL,CLFRAC,SP,DP,PLKE,

      _RL TL(IRUN,NLAY),QL(IRUN,NLAY),RAIN(IRUN,NLAY),

     . PL(IRUN,NLAY),CLFRAC(IRUN,NLAY),SP(IRUN),TEMP1(IRUN,NLAY),

     . TEMP2(IRUN,NLAY),PLKE(IRUN,NLAY+1),

     . RCON(IRUN),RLAR(IRUN),DP(IRUN,NLAY),PLK(IRUN,NLAY),TH(IRUN,NLAY),

     . TEMP3(IRUN,NLAY)

      integer ITMP1(IRUN,NLAY),ITMP2(IRUN,NLAY)

      _RL CLSBTH(IRUN,NLAY)

      _RL EVP9(IRUN,NLAY)

       NLAYM1 = NLAY - 1

       IRNLAY = IRUN*NLAY

       IRNLM1 = IRUN*(NLAY-1)

      DO L = 1,NLAY

      DO L = 1,NLAY

      DO 100 L=1,NLAY

      DO 200 L=1,NLAY

      INTEGER  NLAY, SFCLY, ROOTLY, RECHLY

      PARAMETER (NLAY = 3)