Symbol Description Uses
NLEV 360


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1315 TRBFLX 
      _RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 1316 TRBFLX 
      _RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1317 TRBFLX 
      _RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1318 TRBFLX 
      _RL PLKE(irun,NLEV+1),DPSTR(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1397 TRBFLX 
      _RL TL(irun,NLEV),DTH(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1398 TRBFLX 
      _RL DSH(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1399 TRBFLX 
      _RL SHL(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1400 TRBFLX 
      _RL AA(irun,NLEV),BB(irun,NLEV),SSDEV(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1401 TRBFLX 
      _RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun)
./pkg/fizhi/fizhi_turb.F 1402 TRBFLX 
      _RL SVAR(irun,NLEV),Q1M(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1403 TRBFLX 
      _RL FCC(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1404 TRBFLX 
      _RL BETAT(irun,NLEV),BETAW(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1405 TRBFLX 
      _RL BETAL(irun,NLEV),BETAT1(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1406 TRBFLX 
      _RL BETAW1(irun,NLEV),SBAR(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1407 TRBFLX 
      _RL SHSAT(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1448 TRBFLX 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 1449 TRBFLX 
      NLEVM1 = NLEV - 1
./pkg/fizhi/fizhi_turb.F 1450 TRBFLX 
      NLEVM2 = NLEV - 2
./pkg/fizhi/fizhi_turb.F 1451 TRBFLX 
      NLEVP1 = NLEV + 1
./pkg/fizhi/fizhi_turb.F 1472 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1552 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1567 TRBFLX 
      HS(I) = 0.5 * ADZ1(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1580 TRBFLX 
      DZ3(I,NLEV) = ALPHA * HS(I)
./pkg/fizhi/fizhi_turb.F 1585 TRBFLX 
      DO L =2,NLEV
./pkg/fizhi/fizhi_turb.F 1591 TRBFLX 
      VKZE(I,NLEVM1) = TEMP(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1594 TRBFLX 
      L = NLEV - LL
./pkg/fizhi/fizhi_turb.F 1632 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1645 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1664 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1685 TRBFLX 
      DPK(I,NLEV) = GBYCP / THV(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1717 TRBFLX 
       TL(I,NLEV) = TH(I,NLEV)*PLK(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1722 TRBFLX 
       BB(I,NLEV) = FACEPS*SHSAT(I,NLEV)/(TL(I,NLEV)*TL(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1723 TRBFLX 
       AA(I,NLEV) = 1. / (1. + CLH * BB(I,NLEV) )
./pkg/fizhi/fizhi_turb.F 1724 TRBFLX 
       BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev)
./pkg/fizhi/fizhi_turb.F 1725 TRBFLX 
       DTH(I,NLEV) = TH(I,NLEV)-TH(I,NLEVP1)
./pkg/fizhi/fizhi_turb.F 1726 TRBFLX 
       DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1)
./pkg/fizhi/fizhi_turb.F 1727 TRBFLX 
       SBAR(I,NLEV) = AA(I,NLEV) * (SH(I,NLEV) - SHSAT(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1728 TRBFLX 
       SSDEV(I,NLEV)=CT(I)*(AA(I,NLEV)*DSH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1729 TRBFLX 
     1                  -BB(I,NLEV)*DTH(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1734 TRBFLX 
       SSDEV(I,NLEV) = B2*YY(I)*SSDEV(I,NLEV)*SSDEV(I,NLEV)/QBYU(I)
./pkg/fizhi/fizhi_turb.F 1735 TRBFLX 
       SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1736 TRBFLX 
       IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25
./pkg/fizhi/fizhi_turb.F 1737 TRBFLX 
       Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1738 TRBFLX 
       FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) )
./pkg/fizhi/fizhi_turb.F 1739 TRBFLX 
       SHL(I,NLEV) =  FCC(I,NLEV) * SBAR(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1740 TRBFLX 
       ARG(I,NLEV)  = (1./2.)*Q1M(I,NLEV)*Q1M(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1741 TRBFLX 
       IF(ARG(I,NLEV).LE.ARGMAX)
./pkg/fizhi/fizhi_turb.F 1742 TRBFLX 
     1 SHL(I,NLEV) =  SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1743 TRBFLX 
       BETAT(I,NLEV) = 1. + VIRTCON*SH(I,NLEV) - VRT1CON*SHL(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1744 TRBFLX 
       BETAW(I,NLEV) = VIRTCON *
./pkg/fizhi/fizhi_turb.F 1745 TRBFLX 
     1         ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) )
./pkg/fizhi/fizhi_turb.F 1746 TRBFLX 
       BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1747 TRBFLX 
     1  * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1748 TRBFLX 
       BETAT1(I,NLEV) = BETAT(I,NLEV) - BB(I,NLEV)*FCC(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1749 TRBFLX 
     1        * BETAL(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1750 TRBFLX 
       BETAW1(I,NLEV) = BETAW(I,NLEV) + AA(I,NLEV) * FCC(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1751 TRBFLX 
     1        * BETAL(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1752 TRBFLX 
       DTHV(I,NLEV) = BETAT1(I,NLEV)*DTH(I,NLEV) +
./pkg/fizhi/fizhi_turb.F 1753 TRBFLX 
     1       BETAW1(I,NLEV)*DSH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1754 TRBFLX 
       THV(I,NLEVP1) = THV(I,NLEV) - DTHV(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1759 TRBFLX 
       CALL SFCFLX(NN,U(1,NLEV),V(1,NLEV),
./pkg/fizhi/fizhi_turb.F 1760 TRBFLX 
     1   THV(1,NLEV),
./pkg/fizhi/fizhi_turb.F 1761 TRBFLX 
     2   THV(1,NLEVP1),TH(1,NLEV),TH(1,NLEVP1),
./pkg/fizhi/fizhi_turb.F 1762 TRBFLX 
     3   SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV),
./pkg/fizhi/fizhi_turb.F 1765 TRBFLX 
     6   FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV),
./pkg/fizhi/fizhi_turb.F 1766 TRBFLX 
     7   KH(1,NLEV),KM(1,NLEV),USTAR,
./pkg/fizhi/fizhi_turb.F 1786 TRBFLX 
      Q(I,NLEV) = QBUSTR * USTAR(I)
./pkg/fizhi/fizhi_turb.F 1787 TRBFLX 
      QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1885 TRBFLX 
      DU(I,NLEV) = CU(I)*XX(I)*AHS(I)*RVK
./pkg/fizhi/fizhi_turb.F 1886 TRBFLX 
      DV(I,NLEV) = V(I,NLEV) * DU(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1887 TRBFLX 
      DU(I,NLEV) = U(I,NLEV) * DU(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1888 TRBFLX 
      DTHV(I,NLEV) = CT(I) * YY(I) *
./pkg/fizhi/fizhi_turb.F 1889 TRBFLX 
     1 ((THV(I,NLEV)-THV(I,NLEVP1)) * RVK)* AHS(I)
./pkg/fizhi/fizhi_turb.F 1894 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1911 TRBFLX 
      SRI(I,NLEV) = RIB(I)
./pkg/fizhi/fizhi_turb.F 1945 TRBFLX 
       LMINQ = NLEV-1
./pkg/fizhi/fizhi_turb.F 1953 TRBFLX 
     1  NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2,
./pkg/fizhi/fizhi_turb.F 1957 TRBFLX 
      IF( LMIN .LT. NLEV ) THEN
./pkg/fizhi/fizhi_turb.F 1958 TRBFLX 
       NLEVML = NLEV - LMIN
./pkg/fizhi/fizhi_turb.F 1974 TRBFLX 
     1    NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2,
./pkg/fizhi/fizhi_turb.F 1981 TRBFLX 
      IF( LMIN .LT. NLEV ) THEN
./pkg/fizhi/fizhi_turb.F 2013 TRBFLX 
       NLEVML = NLEV - LMINQ
./pkg/fizhi/fizhi_turb.F 2021 TRBFLX 
       ISTNML = irun * ( NLEV - LMIN )
./pkg/fizhi/fizhi_turb.F 2023 TRBFLX 
      IF( LMIN .LT. NLEV ) THEN
./pkg/fizhi/fizhi_turb.F 2051 TRBFLX 
       RHOSIN(I) = RHODZ2(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2055 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2077 TRBFLX 
      NLEVMQ = NLEV - LMINQ1
./pkg/fizhi/fizhi_turb.F 2136 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2145 TRBFLX 
       CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2161 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2171 TRBFLX 
       CALL TRBDIF(SH,DELSH,RHOKDZ,FLXFAC,DTHL,DELTHL,NLEV,
./pkg/fizhi/fizhi_turb.F 2204 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2209 TRBFLX 
       CALL TRBDIF(U,V,RHOKDZ,FLXFAC,DTHS,DELTHS,NLEV,3,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2211 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2260 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2297 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2307 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3339 TRBLEN 
     1                   QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2,
./pkg/fizhi/fizhi_turb.F 3376 TRBLEN 
      _RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3377 TRBLEN 
      _RL Q(irun,NLEV),VKZM(irun,NLEV-1),VKZE(irun,NLEV-1)
./pkg/fizhi/fizhi_turb.F 3378 TRBLEN 
      _RL DTHV(irun,NLEV),DPK(irun,NLEV),DU(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3379 TRBLEN 
      _RL DV(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3380 TRBLEN 
      _RL QXLM(irun,NLEV-1),XL(irun,NLEV-1)
./pkg/fizhi/fizhi_turb.F 3409 TRBLEN 
      NLEVM1 = NLEV - 1
./pkg/fizhi/fizhi_turb.F 3410 TRBLEN 
      NLEVP1 = NLEV + 1
./pkg/fizhi/fizhi_turb.F 3411 TRBLEN 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3418 TRBLEN 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3433 TRBLEN 
      DO 40 LMIN = 1,NLEV
./pkg/fizhi/fizhi_turb.F 3450 TRBLEN 
      XL0(I,NLEV) = DZ3(I,NLEV)
./pkg/fizhi/fizhi_turb.F 3456 TRBLEN 
         NLEVML = NLEV - LMIN1
./pkg/fizhi/fizhi_turb.F 3473 TRBLEN 
      INT2(I,NLEVM1) = INT1(I,NLEV)
./pkg/fizhi/fizhi_turb.F 3500 TRBLEN 
      IF( INT1(I,NLEVM1).EQ.1 .AND. INT1(I,NLEV).EQ.1 ) THEN
./pkg/fizhi/fizhi_turb.F 3501 TRBLEN 
      XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1)
./pkg/fizhi/fizhi_turb.F 3504 TRBLEN 
      IF(LMIN.GT.NLEV) GOTO 1100
./pkg/fizhi/fizhi_turb.F 3506 TRBLEN 
      DO 1000 LL  = LMIN,NLEV-1
./pkg/fizhi/fizhi_turb.F 3521 TRBLEN 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3541 TRBLEN 
      IF(LMINQ.LT.NLEV) THEN
./pkg/fizhi/fizhi_turb.F 3542 TRBLEN 
        ISTNMQ = irun * (NLEV-LMINQ)
./pkg/fizhi/fizhi_turb.F 3591 TRBLEN 
                   ISTNMQ = irun * (NLEV-LMINQ1)
./pkg/fizhi/fizhi_turb.F 3619 TRBITP 
      SUBROUTINE TRBITP ( STBFCN,INTCHG,DTHV,DPK,DU,DV,DZITRP,NLEV,
./pkg/fizhi/fizhi_turb.F 3643 TRBITP 
      _RL STBFCN(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3644 TRBITP 
      integer INTCHG(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3645 TRBITP 
      _RL DTHV(irun,NLEV+1),DPK(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3646 TRBITP 
      _RL DU(irun,NLEV+1),DV(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3647 TRBITP 
      _RL DZITRP(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3648 TRBITP 
      _RL AAA(irun,NLEV),BBB(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3649 TRBITP 
      _RL CCC(irun,NLEV),DDD(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3669 TRBITP 
      ISTNLV = irun*NLEV
./pkg/fizhi/fizhi_turb.F 3670 TRBITP 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3675 TRBITP 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3706 TRBL20 
      SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV,
./pkg/fizhi/fizhi_turb.F 3732 TRBL20 
      _RL RI(irun*NLEV,1),STRT(irun*NLEV,1),DW2(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3733 TRBL20 
      _RL XL(irun*NLEV,1),ZKM(irun*NLEV,1), ZKH(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3734 TRBL20 
      _RL QE(irun*NLEV,1),QQE(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3735 TRBL20 
      INTEGER INTSTB(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3761 TRBL20 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3808 TRBL25 
      SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV,
./pkg/fizhi/fizhi_turb.F 3833 TRBL25 
      _RL Q(irun*NLEV,1),XL(irun*NLEV,1),STRT(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3834 TRBL25 
      _RL DW2(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3836 TRBL25 
      _RL ZKM(irun*NLEV,1),ZKH(irun*NLEV,1),P3(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 3859 TRBL25 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3894 TRBDIF 
      SUBROUTINE TRBDIF ( XX1,XX2,RHOKDZ,FLXFAC,DXX1G,DXX2G,NLEV,
./pkg/fizhi/fizhi_turb.F 3931 TRBDIF 
      _RL XX1(irun,NLEV+1),XX2(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3932 TRBDIF 
      _RL RHOKDZ(irun,NLEV),FLXFAC(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 3940 TRBDIF 
      NLEVP1 = NLEV + 1
./pkg/fizhi/fizhi_turb.F 3941 TRBDIF 
      NLEVX =  NLEV - 1
./pkg/fizhi/fizhi_turb.F 3942 TRBDIF 
      IF(ITYPE.EQ.2) NLEVX =  NLEV
./pkg/fizhi/fizhi_turb.F 3954 TRBDIF 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3963 TRBDIF 
       DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3971 TRBDIF 
      CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3977 TRBDIF 
      DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) )
./pkg/fizhi/fizhi_turb.F 3981 TRBDIF 
      CALL VTRI1(AA,BB,XX2,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3983 TRBDIF 
      DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) )
./pkg/fizhi/fizhi_turb.F 3989 TRBDIF 
      IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3993 TRBDIF 
       DO L =1,NLEV
./pkg/aim_v23/AIM_SIZE.h 16 NO PROCEDURE 
      INTEGER NLON, NLAT, NLEV, NGP
./pkg/aim_v23/AIM_SIZE.h 17 NO PROCEDURE 
      PARAMETER ( NLON=sNx, NLAT=sNy, NLEV=Nr, NGP=NLON*NLAT )
./pkg/aim_v23/aim_dyn2aim.F 55 AIM_DYN2AIM 
      _RL TA(NGP,NLEV), QA(NGP,NLEV), ThA(NGP,NLEV)
./pkg/aim_v23/aim_dyn2aim.F 56 AIM_DYN2AIM 
      _RL Vsurf2(NGP), PSA(NGP), dpFac(NGP,NLEV)
./pkg/aim_v23/aim_mnc_init.F 175 AIM_MNC_INIT 
      dim(ndim) = NLEV
./pkg/aim_v23/aim_mnc_init.F 177 AIM_MNC_INIT 
      ie(ndim)  = NLEV
./pkg/aim_v23/com_physcon.h 34 NO PROCEDURE 
      _RL SIG(NLEV)
./pkg/aim_v23/com_physcon.h 35 NO PROCEDURE 
      _RL SIGL(NLEV)
./pkg/aim_v23/com_physcon.h 36 NO PROCEDURE 
      _RL SIGH(0:NLEV)
./pkg/aim_v23/com_physcon.h 37 NO PROCEDURE 
      _RL DSIG(NLEV)
./pkg/aim_v23/com_physcon.h 39 NO PROCEDURE 
      _RL GRDSIG(NLEV)
./pkg/aim_v23/com_physcon.h 40 NO PROCEDURE 
      _RL GRDSCP(NLEV)
./pkg/aim_v23/com_physcon.h 41 NO PROCEDURE 
      _RL WVI(NLEV,2)
./pkg/aim_v23/com_physvar.h 125 NO PROCEDURE 
      _RL TT_SWclr(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 128 NO PROCEDURE 
      _RL TT_LWclr(NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 34 NO PROCEDURE 
      _RL RH   (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 72 NO PROCEDURE 
      _RL TT_CNV (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 73 NO PROCEDURE 
      _RL QT_CNV (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 74 NO PROCEDURE 
      _RL TT_LSC (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 75 NO PROCEDURE 
      _RL QT_LSC (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 76 NO PROCEDURE 
      _RL TT_RSW (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 77 NO PROCEDURE 
      _RL TT_RLW (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 80 NO PROCEDURE 
      _RL TT_PBL (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_physvar.h 81 NO PROCEDURE 
      _RL QT_PBL (NGP,NLEV,MAX_NO_THREADS)
./pkg/aim_v23/com_radvar.h 27 NO PROCEDURE 
      _RL TAU2(NGP,NLEV,NBAND), ST4A(NGP,NLEV,2)
./pkg/aim_v23/phy_convmf.F 121 CONVMF 
      DO K=1,NLEV-1
./pkg/aim_v23/phy_convmf.F 142 CONVMF 
       DO K=2,NLEV-1
./pkg/aim_v23/phy_convmf.F 50 CONVMF 
      _RL PSA(NGP), SE(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim_v23/phy_convmf.F 51 CONVMF 
      _RL dpFac(NGP,NLEV)
./pkg/aim_v23/phy_convmf.F 53 CONVMF 
      _RL CBMF(NGP), PRECNV(NGP), DFSE(NGP,NLEV), DFQA(NGP,NLEV)
./pkg/aim_v23/phy_convmf.F 62 CONVMF 
      _RL  QATHR(NGP), ENTR(2:NLEV-1)
./pkg/aim_v23/phy_convmf.F 63 CONVMF 
      _RL  ENTR_PS(NGP,2:NLEV-1), FM0(NGP)
./pkg/aim_v23/phy_convmf.F 66 CONVMF 
      _RL  dSEdp(NGP,NLEV), factP, PSA_1
./pkg/aim_v23/phy_convmf.F 91 CONVMF 
      DO K=1,NLEV
./pkg/aim_v23/phy_convmf.F 97 CONVMF 
      DO K=2,NLEV-1
./pkg/aim_v23/phy_driver.F 120 PHY_DRIVER 
      _RL dpFac(NGP,NLEV)
./pkg/aim_v23/phy_driver.F 165 PHY_DRIVER 
      DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 184 PHY_DRIVER 
      DO K=2,NLEV
./pkg/aim_v23/phy_driver.F 260 PHY_DRIVER 
        DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 382 PHY_DRIVER 
      DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 423 PHY_DRIVER 
       DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 94 PHY_DRIVER 
      _RL TG1    (NGP,NLEV)
./pkg/aim_v23/phy_driver.F 95 PHY_DRIVER 
      _RL QG1    (NGP,NLEV)
./pkg/aim_v23/phy_driver.F 97 PHY_DRIVER 
      _RL SE   (NGP,NLEV)
./pkg/aim_v23/phy_driver.F 98 PHY_DRIVER 
      _RL QSAT (NGP,NLEV)
./pkg/aim_v23/phy_inphys.F 101 INPHYS 
      WVI(NLEV,1)=0.
./pkg/aim_v23/phy_inphys.F 102 INPHYS 
      WVI(NLEV,2)=-SIGL(NLEV)*WVI(NLEV-1,2)
./pkg/aim_v23/phy_inphys.F 107 INPHYS 
      DO K=1,NLEV
./pkg/aim_v23/phy_inphys.F 47 INPHYS 
      _RL  HSG(0:NLEV)
./pkg/aim_v23/phy_inphys.F 81 INPHYS 
      DO K=1,NLEV
./pkg/aim_v23/phy_inphys.F 96 INPHYS 
      DO K=1,NLEV-1
./pkg/aim_v23/phy_lscond.F 45 LSCOND 
      _RL PSA(NGP), dpFac(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim_v23/phy_lscond.F 46 LSCOND 
      _RL PRECLS(NGP), DTLSC(NGP,NLEV), DQLSC(NGP,NLEV)
./pkg/aim_v23/phy_lscond.F 80 LSCOND 
      DO K=2,NLEV
./pkg/aim_v23/phy_lscond.F 99 LSCOND 
      DO K=2,NLEV
./pkg/aim_v23/phy_radiat.F 199 RADSW 
      _RL PSA(NGP),dpFac(NGP,NLEV),QA(NGP,NLEV),RH(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 202 RADSW 
      _RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 206 RADSW 
      _RL TAU2(NGP,NLEV,NBAND),STRATC(NGP)
./pkg/aim_v23/phy_radiat.F 220 RADSW 
     &     ALBTOP(NGP,NLEV), FREFL(NGP,NLEV), FLUX(NGP,2)
./pkg/aim_v23/phy_radiat.F 223 RADSW 
      _RL CLDCLW(NGP,NLEV), ACLDLW(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 258 RADSW 
        ICLTOP(J)=NLEV+1
./pkg/aim_v23/phy_radiat.F 262 RADSW 
      DO K=1,NLEV
./pkg/aim_v23/phy_radiat.F 303 RADSW 
          ICLTOP(J)=NLEV+1
./pkg/aim_v23/phy_radiat.F 426 RADSW 
      DO K=NLEV,1,-1
./pkg/aim_v23/phy_radiat.F 452 RADSW 
      DO K=2,NLEV
./pkg/aim_v23/phy_radiat.F 472 RADSW 
      DO K=2,NLEV
./pkg/aim_v23/phy_radiat.F 553 RADLW 
      _RL TA(NGP,NLEV), TS(NGP), ST4S(NGP)
./pkg/aim_v23/phy_radiat.F 554 RADLW 
      _RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 556 RADLW 
      _RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2)
./pkg/aim_v23/phy_radiat.F 584 RADLW 
      DO K=1,NLEV
./pkg/aim_v23/phy_radiat.F 591 RADLW 
      DO K=1,NLEV-1
./pkg/aim_v23/phy_radiat.F 614 RADLW 
      DO K=2,NLEV
./pkg/aim_v23/phy_snow_precip.F 59 SNOW_PRECIP 
      _RL PSA(NGP), dpFac(NGP,NLEV), ThA(NGP,NLEV)
./pkg/aim_v23/phy_snow_precip.F 60 SNOW_PRECIP 
      _RL PRECLS(NGP), DTLSC(NGP,NLEV), DQLSC(NGP,NLEV)
./pkg/aim_v23/phy_snow_precip.F 61 SNOW_PRECIP 
      _RL PRECNV(NGP), DTCNV(NGP,NLEV), DQCNV(NGP,NLEV)
./pkg/aim_v23/phy_suflux_prep.F 81 SUFLUX_PREP 
      _RL  PSA(NGP), TA(NGP,NLEV), QA(NGP,NLEV), RH(NGP,NLEV)
./pkg/aim_v23/phy_suflux_prep.F 82 SUFLUX_PREP 
      _RL  ThA(NGP,NLEV)
./pkg/aim_v23/phy_vdifsc.F 101 VDIFSC 
      DO K=1,NLEV
./pkg/aim_v23/phy_vdifsc.F 105 VDIFSC 
      DO K=1,NLEV
./pkg/aim_v23/phy_vdifsc.F 119 VDIFSC 
      DO K=1,NLEV-1
./pkg/aim_v23/phy_vdifsc.F 55 VDIFSC 
      _RL  dpFac(NGP,NLEV)
./pkg/aim_v23/phy_vdifsc.F 56 VDIFSC 
      _RL  SE(NGP,NLEV), RH(NGP,NLEV), QA(NGP,NLEV), QSAT(NGP,NLEV)
./pkg/aim_v23/phy_vdifsc.F 60 VDIFSC 
      _RL  TTENVD(NGP,NLEV), QTENVD(NGP,NLEV)
./pkg/aim_v23/phy_vdifsc.F 69 VDIFSC 
      _RL  RSIG(NLEV)
./pkg/aim_v23/phy_vdifsc.F 70 VDIFSC 
      _RL  dSEdp(NGP,NLEV-1), DeltaPI(NLEV-1), factP