Symbol Description Uses
NLEV 360


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1485 TRBFLX 
      _RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 1486 TRBFLX 
      _RL U(irun,NLEV+1),V(irun,NLEV+1),QQ(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1487 TRBFLX 
      _RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1488 TRBFLX 
      _RL PLKE(irun,NLEV+1),DPSTR(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1567 TRBFLX 
      _RL TL(irun,NLEV),DTH(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1568 TRBFLX 
      _RL DSH(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1569 TRBFLX 
      _RL SHL(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1570 TRBFLX 
      _RL AA(irun,NLEV),BB(irun,NLEV),SSDEV(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1571 TRBFLX 
      _RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun)
./pkg/fizhi/fizhi_turb.F 1572 TRBFLX 
      _RL SVAR(irun,NLEV),Q1M(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1573 TRBFLX 
      _RL FCC(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1574 TRBFLX 
      _RL BETAT(irun,NLEV),BETAW(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1575 TRBFLX 
      _RL BETAL(irun,NLEV),BETAT1(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1576 TRBFLX 
      _RL BETAW1(irun,NLEV),SBAR(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1577 TRBFLX 
      _RL SHSAT(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 1618 TRBFLX 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 1619 TRBFLX 
      NLEVM1 = NLEV - 1
./pkg/fizhi/fizhi_turb.F 1620 TRBFLX 
      NLEVM2 = NLEV - 2
./pkg/fizhi/fizhi_turb.F 1621 TRBFLX 
      NLEVP1 = NLEV + 1
./pkg/fizhi/fizhi_turb.F 1665 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1754 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1772 TRBFLX 
      HS(I) = 0.5 * ADZ1(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1788 TRBFLX 
      DZ3(I,NLEV) = ALPHA * HS(I)
./pkg/fizhi/fizhi_turb.F 1796 TRBFLX 
      DO L =2,NLEV
./pkg/fizhi/fizhi_turb.F 1802 TRBFLX 
      VKZE(I,NLEVM1) = TEMP(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1805 TRBFLX 
      L = NLEV - LL
./pkg/fizhi/fizhi_turb.F 1862 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1878 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1906 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 1933 TRBFLX 
      DPK(I,NLEV) = GBYCP / THV(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1969 TRBFLX 
       TL(I,NLEV) = TH(I,NLEV)*PLK(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1974 TRBFLX 
       BB(I,NLEV) = FACEPS*SHSAT(I,NLEV)/(TL(I,NLEV)*TL(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1975 TRBFLX 
       AA(I,NLEV) = 1. / (1. + CLH * BB(I,NLEV) )
./pkg/fizhi/fizhi_turb.F 1976 TRBFLX 
       BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev)
./pkg/fizhi/fizhi_turb.F 1977 TRBFLX 
       DTH(I,NLEV) = TH(I,NLEV)-TH(I,NLEVP1)
./pkg/fizhi/fizhi_turb.F 1978 TRBFLX 
       DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1)
./pkg/fizhi/fizhi_turb.F 1979 TRBFLX 
       SBAR(I,NLEV) = AA(I,NLEV) * (SH(I,NLEV) - SHSAT(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1980 TRBFLX 
       SSDEV(I,NLEV)=CT(I)*(AA(I,NLEV)*DSH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1981 TRBFLX 
     1                  -BB(I,NLEV)*DTH(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1986 TRBFLX 
       SSDEV(I,NLEV) = B2*YY(I)*SSDEV(I,NLEV)*SSDEV(I,NLEV)/QBYU(I)
./pkg/fizhi/fizhi_turb.F 1987 TRBFLX 
       SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1988 TRBFLX 
       IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25
./pkg/fizhi/fizhi_turb.F 1989 TRBFLX 
       Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1990 TRBFLX 
       FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) )
./pkg/fizhi/fizhi_turb.F 1991 TRBFLX 
       SHL(I,NLEV) =  FCC(I,NLEV) * SBAR(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1992 TRBFLX 
       ARG(I,NLEV)  = (1./2.)*Q1M(I,NLEV)*Q1M(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1993 TRBFLX 
       IF(ARG(I,NLEV).LE.ARGMAX)
./pkg/fizhi/fizhi_turb.F 1994 TRBFLX 
     1 SHL(I,NLEV) =  SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1995 TRBFLX 
       BETAT(I,NLEV) = 1. + VIRTCON*SH(I,NLEV) - VRT1CON*SHL(I,NLEV)
./pkg/fizhi/fizhi_turb.F 1996 TRBFLX 
       BETAW(I,NLEV) = VIRTCON *
./pkg/fizhi/fizhi_turb.F 1997 TRBFLX 
     1         ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) )
./pkg/fizhi/fizhi_turb.F 1998 TRBFLX 
       BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV))
./pkg/fizhi/fizhi_turb.F 1999 TRBFLX 
     1  * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2000 TRBFLX 
       BETAT1(I,NLEV) = BETAT(I,NLEV) - BB(I,NLEV)*FCC(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2001 TRBFLX 
     1        * BETAL(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2002 TRBFLX 
       BETAW1(I,NLEV) = BETAW(I,NLEV) + AA(I,NLEV) * FCC(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2003 TRBFLX 
     1        * BETAL(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2004 TRBFLX 
       DTHV(I,NLEV) = BETAT1(I,NLEV)*DTH(I,NLEV) +
./pkg/fizhi/fizhi_turb.F 2005 TRBFLX 
     1       BETAW1(I,NLEV)*DSH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2006 TRBFLX 
       THV(I,NLEVP1) = THV(I,NLEV) - DTHV(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2011 TRBFLX 
       CALL SFCFLX(NN,U(1,NLEV),V(1,NLEV),
./pkg/fizhi/fizhi_turb.F 2012 TRBFLX 
     1   THV(1,NLEV),
./pkg/fizhi/fizhi_turb.F 2013 TRBFLX 
     2   THV(1,NLEVP1),TH(1,NLEV),TH(1,NLEVP1),
./pkg/fizhi/fizhi_turb.F 2014 TRBFLX 
     3   SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV),
./pkg/fizhi/fizhi_turb.F 2017 TRBFLX 
     6   FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV),
./pkg/fizhi/fizhi_turb.F 2018 TRBFLX 
     7   KH(1,NLEV),KM(1,NLEV),USTAR,
./pkg/fizhi/fizhi_turb.F 2038 TRBFLX 
      Q(I,NLEV) = QBUSTR * USTAR(I)
./pkg/fizhi/fizhi_turb.F 2039 TRBFLX 
      QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2191 TRBFLX 
      DU(I,NLEV) = CU(I)*XX(I)*AHS(I)*RVK
./pkg/fizhi/fizhi_turb.F 2192 TRBFLX 
      DV(I,NLEV) = V(I,NLEV) * DU(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2193 TRBFLX 
      DU(I,NLEV) = U(I,NLEV) * DU(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2194 TRBFLX 
      DTHV(I,NLEV) = CT(I) * YY(I) *
./pkg/fizhi/fizhi_turb.F 2195 TRBFLX 
     1 ((THV(I,NLEV)-THV(I,NLEVP1)) * RVK)* AHS(I)
./pkg/fizhi/fizhi_turb.F 2206 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2226 TRBFLX 
      SRI(I,NLEV) = RIB(I)
./pkg/fizhi/fizhi_turb.F 2283 TRBFLX 
       LMINQ = NLEV-1
./pkg/fizhi/fizhi_turb.F 2291 TRBFLX 
     1  NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2,
./pkg/fizhi/fizhi_turb.F 2295 TRBFLX 
      IF( LMIN .LT. NLEV ) THEN
./pkg/fizhi/fizhi_turb.F 2296 TRBFLX 
       NLEVML = NLEV - LMIN
./pkg/fizhi/fizhi_turb.F 2316 TRBFLX 
     1    NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2,
./pkg/fizhi/fizhi_turb.F 2323 TRBFLX 
      IF( LMIN .LT. NLEV ) THEN
./pkg/fizhi/fizhi_turb.F 2378 TRBFLX 
       NLEVML = NLEV - LMINQ
./pkg/fizhi/fizhi_turb.F 2386 TRBFLX 
       ISTNML = irun * ( NLEV - LMIN )
./pkg/fizhi/fizhi_turb.F 2388 TRBFLX 
      IF( LMIN .LT. NLEV ) THEN
./pkg/fizhi/fizhi_turb.F 2429 TRBFLX 
       RHOSIN(I) = RHODZ2(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2437 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2459 TRBFLX 
      NLEVMQ = NLEV - LMINQ1
./pkg/fizhi/fizhi_turb.F 2542 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2551 TRBFLX 
       CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2573 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2583 TRBFLX 
       CALL TRBDIF(SH,DELSH,RHOKDZ,FLXFAC,DTHL,DELTHL,NLEV,
./pkg/fizhi/fizhi_turb.F 2620 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2625 TRBFLX 
       CALL TRBDIF(U,V,RHOKDZ,FLXFAC,DTHS,DELTHS,NLEV,3,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2633 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2696 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2745 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 2759 TRBFLX 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3788 TRBLEN 
     1                   QXLM,NLEV,INIT,LMIN,LMINQ,LMINQ1,CP,INT1,INT2,
./pkg/fizhi/fizhi_turb.F 3830 TRBLEN 
      _RL STRT(irun,NLEV),DW2(irun,NLEV),DZ3(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3831 TRBLEN 
      _RL Q(irun,NLEV),VKZM(irun,NLEV-1),VKZE(irun,NLEV-1)
./pkg/fizhi/fizhi_turb.F 3832 TRBLEN 
      _RL DTHV(irun,NLEV),DPK(irun,NLEV),DU(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3833 TRBLEN 
      _RL DV(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 3834 TRBLEN 
      _RL QXLM(irun,NLEV-1),XL(irun,NLEV-1)
./pkg/fizhi/fizhi_turb.F 3863 TRBLEN 
      NLEVM1 = NLEV - 1
./pkg/fizhi/fizhi_turb.F 3864 TRBLEN 
      NLEVP1 = NLEV + 1
./pkg/fizhi/fizhi_turb.F 3865 TRBLEN 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 3877 TRBLEN 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 3896 TRBLEN 
      DO 40 LMIN = 1,NLEV
./pkg/fizhi/fizhi_turb.F 3916 TRBLEN 
      XL0(I,NLEV) = DZ3(I,NLEV)
./pkg/fizhi/fizhi_turb.F 3922 TRBLEN 
         NLEVML = NLEV - LMIN1
./pkg/fizhi/fizhi_turb.F 3945 TRBLEN 
      INT2(I,NLEVM1) = INT1(I,NLEV)
./pkg/fizhi/fizhi_turb.F 3977 TRBLEN 
      IF( INT1(I,NLEVM1).EQ.1 .AND. INT1(I,NLEV).EQ.1 ) THEN
./pkg/fizhi/fizhi_turb.F 3978 TRBLEN 
      XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1)
./pkg/fizhi/fizhi_turb.F 3981 TRBLEN 
      IF(LMIN.GT.NLEV) GOTO 1100
./pkg/fizhi/fizhi_turb.F 3983 TRBLEN 
      DO 1000 LL  = LMIN,NLEV-1
./pkg/fizhi/fizhi_turb.F 4001 TRBLEN 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 4024 TRBLEN 
      IF(LMINQ.LT.NLEV) THEN
./pkg/fizhi/fizhi_turb.F 4025 TRBLEN 
        ISTNMQ = irun * (NLEV-LMINQ)
./pkg/fizhi/fizhi_turb.F 4094 TRBLEN 
                   ISTNMQ = irun * (NLEV-LMINQ1)
./pkg/fizhi/fizhi_turb.F 4133 TRBITP 
      SUBROUTINE TRBITP ( STBFCN,INTCHG,DTHV,DPK,DU,DV,DZITRP,NLEV,
./pkg/fizhi/fizhi_turb.F 4161 TRBITP 
      _RL STBFCN(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 4162 TRBITP 
      integer INTCHG(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 4163 TRBITP 
      _RL DTHV(irun,NLEV+1),DPK(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 4164 TRBITP 
      _RL DU(irun,NLEV+1),DV(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 4165 TRBITP 
      _RL DZITRP(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 4166 TRBITP 
      _RL AAA(irun,NLEV),BBB(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 4167 TRBITP 
      _RL CCC(irun,NLEV),DDD(irun,NLEV)
./pkg/fizhi/fizhi_turb.F 4187 TRBITP 
      ISTNLV = irun*NLEV
./pkg/fizhi/fizhi_turb.F 4191 TRBITP 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 4219 TRBITP 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 4247 TRBL20 
      SUBROUTINE TRBL20 (RI,STRT,DW2,XL,ZKM,ZKH,QE,QQE,INTSTB,NLEV,
./pkg/fizhi/fizhi_turb.F 4282 TRBL20 
      _RL RI(irun*NLEV,1),STRT(irun*NLEV,1),DW2(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4283 TRBL20 
      _RL XL(irun*NLEV,1),ZKM(irun*NLEV,1), ZKH(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4284 TRBL20 
      _RL QE(irun*NLEV,1),QQE(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4285 TRBL20 
      INTEGER INTSTB(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4311 TRBL20 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 4355 TRBL25 
      SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV,
./pkg/fizhi/fizhi_turb.F 4389 TRBL25 
      _RL Q(irun*NLEV,1),XL(irun*NLEV,1),STRT(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4390 TRBL25 
      _RL DW2(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4392 TRBL25 
      _RL ZKM(irun*NLEV,1),ZKH(irun*NLEV,1),P3(irun*NLEV,1)
./pkg/fizhi/fizhi_turb.F 4415 TRBL25 
      ISTNLV = irun * NLEV
./pkg/fizhi/fizhi_turb.F 4447 TRBDIF 
      SUBROUTINE TRBDIF ( XX1,XX2,RHOKDZ,FLXFAC,DXX1G,DXX2G,NLEV,
./pkg/fizhi/fizhi_turb.F 4488 TRBDIF 
      _RL XX1(irun,NLEV+1),XX2(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 4489 TRBDIF 
      _RL RHOKDZ(irun,NLEV),FLXFAC(irun,NLEV+1)
./pkg/fizhi/fizhi_turb.F 4500 TRBDIF 
      NLEVP1 = NLEV + 1
./pkg/fizhi/fizhi_turb.F 4503 TRBDIF 
      NLEVX =  NLEV - 1
./pkg/fizhi/fizhi_turb.F 4504 TRBDIF 
      IF(ITYPE.EQ.2) NLEVX =  NLEV
./pkg/fizhi/fizhi_turb.F 4523 TRBDIF 
      DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 4535 TRBDIF 
       DO L =1,NLEV
./pkg/fizhi/fizhi_turb.F 4543 TRBDIF 
      CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 4549 TRBDIF 
      DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) )
./pkg/fizhi/fizhi_turb.F 4553 TRBDIF 
      CALL VTRI1(AA,BB,XX2,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 4555 TRBDIF 
      DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) )
./pkg/fizhi/fizhi_turb.F 4561 TRBDIF 
      IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 4568 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 54 AIM_DYN2AIM 
      _RL TA(NGP,NLEV), QA(NGP,NLEV), ThA(NGP,NLEV)
./pkg/aim_v23/aim_dyn2aim.F 55 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 118 PHY_DRIVER 
      _RL dpFac(NGP,NLEV)
./pkg/aim_v23/phy_driver.F 163 PHY_DRIVER 
      DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 182 PHY_DRIVER 
      DO K=2,NLEV
./pkg/aim_v23/phy_driver.F 250 PHY_DRIVER 
        DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 372 PHY_DRIVER 
      DO K=1,NLEV
./pkg/aim_v23/phy_driver.F 413 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 191 RADSW 
      _RL PSA(NGP),dpFac(NGP,NLEV),QA(NGP,NLEV),RH(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 194 RADSW 
      _RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 198 RADSW 
      _RL TAU2(NGP,NLEV,NBAND),STRATC(NGP)
./pkg/aim_v23/phy_radiat.F 211 RADSW 
     &     ALBTOP(NGP,NLEV), FREFL(NGP,NLEV), FLUX(NGP,2)
./pkg/aim_v23/phy_radiat.F 214 RADSW 
      _RL CLDCLW(NGP,NLEV), ACLDLW(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 251 RADSW 
        ICLTOP(J)=NLEV+1
./pkg/aim_v23/phy_radiat.F 255 RADSW 
      DO K=1,NLEV
./pkg/aim_v23/phy_radiat.F 296 RADSW 
          ICLTOP(J)=NLEV+1
./pkg/aim_v23/phy_radiat.F 419 RADSW 
      DO K=NLEV,1,-1
./pkg/aim_v23/phy_radiat.F 445 RADSW 
      DO K=2,NLEV
./pkg/aim_v23/phy_radiat.F 465 RADSW 
      DO K=2,NLEV
./pkg/aim_v23/phy_radiat.F 547 RADLW 
      _RL TA(NGP,NLEV), TS(NGP), ST4S(NGP)
./pkg/aim_v23/phy_radiat.F 548 RADLW 
      _RL FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV)
./pkg/aim_v23/phy_radiat.F 550 RADLW 
      _RL TAU2(NGP,NLEV,NBAND), FLUX(NGP,NBAND), ST4A(NGP,NLEV,2)
./pkg/aim_v23/phy_radiat.F 579 RADLW 
      DO K=1,NLEV
./pkg/aim_v23/phy_radiat.F 586 RADLW 
      DO K=1,NLEV-1
./pkg/aim_v23/phy_radiat.F 609 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