Symbol Description Uses
II 159


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1828 CLOUD 
      II       = IA(I)
./pkg/fizhi/fizhi_moist.F 1829 CLOUD 
      TX2(I)   = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 1830 CLOUD 
      TX4(I)   = PRS(II,K)
./pkg/fizhi/fizhi_moist.F 1835 CLOUD 
      II       = IA(I)
./pkg/fizhi/fizhi_moist.F 1836 CLOUD 
      IF (HST(II,IC1) .LT. HST(II,IC)) THEN
./pkg/fizhi/fizhi_moist.F 1837 CLOUD 
         TX6(I) = (HST(II,IC1)-HOL(II,K))/(HST(II,IC1)-HST(II,IC))
./pkg/fizhi/fizhi_moist.F 1841 CLOUD 
      TX2(I) = 0.5 * (PRS(II,IC1)+PRS(II,IC1+1)) * (1.0-TX6(I))
./pkg/fizhi/fizhi_moist.F 1859 CLOUD 
         II = IA(I)
./pkg/fizhi/fizhi_moist.F 1860 CLOUD 
         WFN(I) = - GAM(II,IC) * (PRJ(II,IC1) - PRH(II,IC))
./pkg/fizhi/fizhi_moist.F 1861 CLOUD 
     *                         *  HST(II,IC) * ETA(I,IC1)
./pkg/fizhi/fizhi_moist.F 1866 CLOUD 
      II = IA(I)
./pkg/fizhi/fizhi_moist.F 1867 CLOUD 
      TX1(I) = HOL(II,K)
./pkg/fizhi/fizhi_moist.F 1874 CLOUD 
         II = IA(I)
./pkg/fizhi/fizhi_moist.F 1875 CLOUD 
         TEM = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * HOL(II,L)
./pkg/fizhi/fizhi_moist.F 1877 CLOUD 
         PCU(I) = PRJ(II,L+1) - PRH(II,L)
./pkg/fizhi/fizhi_moist.F 1881 CLOUD 
         PCU(I) = PRH(II,L) - PRJ(II,L)
./pkg/fizhi/fizhi_moist.F 1882 CLOUD 
         TEM1   = (TEM1 + ETA(I,L) * PCU(I)) * HST(II,L)
./pkg/fizhi/fizhi_moist.F 1885 CLOUD 
         WFN(I) = WFN(I) + (TX1(I) - TEM1) * GAM(II,L)
./pkg/fizhi/fizhi_moist.F 1893 CLOUD 
         II = IA(I)
./pkg/fizhi/fizhi_moist.F 1894 CLOUD 
         WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC))
./pkg/fizhi/fizhi_moist.F 1953 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 1954 CLOUD 
      TX8(I) = HST(II,IC) - HOL(II,IC)
./pkg/fizhi/fizhi_moist.F 1957 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 1959 CLOUD 
      TEM    = TX6(I) * (HOL(II,IC)-HOL(II,IC1)) + HOL(II,IC1)
./pkg/fizhi/fizhi_moist.F 1960 CLOUD 
      TX8(I) = HOL(II,K) - TEM
./pkg/fizhi/fizhi_moist.F 1962 CLOUD 
      TEM1   = TX6(I) * (QOL(II,IC)-QOL(II,IC1)) + QOL(II,IC1)
./pkg/fizhi/fizhi_moist.F 1965 CLOUD 
      TX3(I) = HOL(II,IC)
./pkg/fizhi/fizhi_moist.F 1970 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 1971 CLOUD 
      WLQ(I) = QOL(II,K) - QS1(I)     * ETA(I,IC)
./pkg/fizhi/fizhi_moist.F 1972 CLOUD 
      TX7(I) = HOL(II,K)
./pkg/fizhi/fizhi_moist.F 1976 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 1977 CLOUD 
      UHT(I,NT) = UOI(II,K+nltop-1,NT)-UOI(II,IC+nltop-1,NT) * ETA(I,IC)
./pkg/fizhi/fizhi_moist.F 1983 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 1985 CLOUD 
      WLQ(I) = WLQ(I) + TEM * QOL(II,L)
./pkg/fizhi/fizhi_moist.F 1991 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 1993 CLOUD 
      UHT(I,NT) = UHT(I,NT) + TEM *  UOI(II,L+nltop-1,NT)
./pkg/fizhi/fizhi_moist.F 2001 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2003 CLOUD 
      TEM        = (POI(II,KM1) - POI(II,K)) / (PRH(II,K) - PRH(II,KM1))
./pkg/fizhi/fizhi_moist.F 2004 CLOUD 
      HOL(I,K)   = TEM * (PRJ(II,K)-PRH(II,KM1))*PRH(II,K)*PRI(II,K)
./pkg/fizhi/fizhi_moist.F 2005 CLOUD 
      HOL(I,KM1) = TEM * (PRH(II,K)-PRJ(II,K))*PRH(II,KM1)*PRI(II,KM1)
./pkg/fizhi/fizhi_moist.F 2007 CLOUD 
      TX2(I)     = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 2013 CLOUD 
         II = I1(I)
./pkg/fizhi/fizhi_moist.F 2014 CLOUD 
         TEM      = (POI(II,L-1) - POI(II,L)) * ETA(I,L)
./pkg/fizhi/fizhi_moist.F 2015 CLOUD 
     *                            / (PRH(II,L) - PRH(II,L-1))
./pkg/fizhi/fizhi_moist.F 2017 CLOUD 
         HOL(I,L)   = TEM * (PRJ(II,L)-PRH(II,L-1)) * PRH(II,L)
./pkg/fizhi/fizhi_moist.F 2018 CLOUD 
     *                    *  PRI(II,L)  + HOL(I,L)
./pkg/fizhi/fizhi_moist.F 2019 CLOUD 
         HOL(I,L-1) = TEM * (PRH(II,L)-PRJ(II,L)) * PRH(II,L-1)
./pkg/fizhi/fizhi_moist.F 2020 CLOUD 
     *                                              * PRI(II,L-1)
./pkg/fizhi/fizhi_moist.F 2023 CLOUD 
     *            * (ETA(I,L)   * (PRH(II,L)-PRJ(II,L)) +
./pkg/fizhi/fizhi_moist.F 2024 CLOUD 
     *               ETA(I,L+1) * (PRJ(II,L+1)-PRH(II,L))) / PRH(II,L)
./pkg/fizhi/fizhi_moist.F 2038 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2039 CLOUD 
      TX1(I) = TX1(I) + (TX5(I)-TX3(I)+QOL(II,IC)*ALHL)*(PRI(II,IC)/CP)
./pkg/fizhi/fizhi_moist.F 2048 CLOUD 
         II = I1(I)
./pkg/fizhi/fizhi_moist.F 2049 CLOUD 
         AKM(I) = AKM(I) - ETA(I,IC1) * (PRJ(II,IC1) - PRH(II,IC))
./pkg/fizhi/fizhi_moist.F 2050 CLOUD 
     *                                * TX1(I) / PRH(II,IC)
./pkg/fizhi/fizhi_moist.F 2057 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2058 CLOUD 
      TX3(I)   =  QOL(II,KM1) - QOL(II,K)
./pkg/fizhi/fizhi_moist.F 2059 CLOUD 
      GMH(I,K) = HOL(I,K) + TX3(I) * PRI(II,K) * (ALBCP)
./pkg/fizhi/fizhi_moist.F 2061 CLOUD 
      AKM(I)   = AKM(I) + GAM(II,KM1)*(PRJ(II,K)-PRH(II,KM1))
./pkg/fizhi/fizhi_moist.F 2069 CLOUD 
         II = I1(I)
./pkg/fizhi/fizhi_moist.F 2071 CLOUD 
         TX3(I) = (QOL(II,L-1) - QOL(II,L)) * ETA(I,L)
./pkg/fizhi/fizhi_moist.F 2074 CLOUD 
         GMH(I,L) = HOL(I,L) + TX2(I)   * PRI(II,L) * (ALBCP*HALF)
./pkg/fizhi/fizhi_moist.F 2096 CLOUD 
         II = I1(I)
./pkg/fizhi/fizhi_moist.F 2098 CLOUD 
         TX2(I) = GAM(II,L-1) * (PRJ(II,L) - PRH(II,L-1))
./pkg/fizhi/fizhi_moist.F 2107 CLOUD 
         II = I1(I)
./pkg/fizhi/fizhi_moist.F 2109 CLOUD 
     *          (TX2(I) + GAM(II,L)*(PRH(II,L)-PRJ(II,L)))
./pkg/fizhi/fizhi_moist.F 2115 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2116 CLOUD 
      TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 2117 CLOUD 
     *       + 0.5*(PRS(II,IC+2) - PRS(II,IC)) * (ONE-TX6(I))
./pkg/fizhi/fizhi_moist.F 2119 CLOUD 
      TX1(I) = PRS(II,IC1)
./pkg/fizhi/fizhi_moist.F 2120 CLOUD 
      TX5(I) = 0.5 * (PRS(II,IC1) + PRS(II,IC+2))
./pkg/fizhi/fizhi_moist.F 2125 CLOUD 
         TEM        = PRI(II,IC1) / PRI(II,IC)
./pkg/fizhi/fizhi_moist.F 2144 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2150 CLOUD 
      TEM       = (PRS(II,K+1)-PRS(II,K))*(CMB2PA*FRAC)
./pkg/fizhi/fizhi_moist.F 2161 CLOUD 
      PCU(II) =  WLQ(I) * WFN(I) * ONEBG
./pkg/fizhi/fizhi_moist.F 2173 CLOUD 
       II = I1(I)
./pkg/fizhi/fizhi_moist.F 2175 CLOUD 
       CMASS(II,L) =  ETA(I,L+1) * WFN(I) * ONEBG
./pkg/fizhi/fizhi_moist.F 2177 CLOUD 
       CMASS(II,L) =  WFN(I) * ONEBG
./pkg/fizhi/fizhi_moist.F 2194 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2198 CLOUD 
      TCU(II,L) = TEM1 / PRH(II,L)
./pkg/fizhi/fizhi_moist.F 2199 CLOUD 
      QCU(II,L) = TEM
./pkg/fizhi/fizhi_moist.F 2217 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2218 CLOUD 
      TEM    = half*TX5(I) * PRI(II,K)
./pkg/fizhi/fizhi_moist.F 2219 CLOUD 
      TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt))
./pkg/fizhi/fizhi_moist.F 2220 CLOUD 
      ucu(II,K,nt) = TEM * TX1(I)
./pkg/fizhi/fizhi_moist.F 2227 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2228 CLOUD 
      TEM = half*TX5(I) * PRI(II,L)
./pkg/fizhi/fizhi_moist.F 2230 CLOUD 
      TX1(I) = (UOI(II,L-1+nltop-1,nt)-UOI(II,L+nltop-1,nt)) * ETA(I,L)
./pkg/fizhi/fizhi_moist.F 2234 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2235 CLOUD 
      ucu(II,L,nt) = TX3(I)
./pkg/fizhi/fizhi_moist.F 2239 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2241 CLOUD 
         TEM    = half*TX5(I) * PRI(II,IC)
./pkg/fizhi/fizhi_moist.F 2248 CLOUD 
      II = I1(I)
./pkg/fizhi/fizhi_moist.F 2249 CLOUD 
      ucu(II,IC,nt) = TX1(I)
./pkg/mdsio/mdsio_gl.F 1179 MDSREADFIELD_2D_GL 
              II=((ip-1)*nSx+(bi-1))*sNx+I
./pkg/mdsio/mdsio_gl.F 1180 MDSREADFIELD_2D_GL 
              arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F 1384 MDSWRITEFIELD_2D_GL 
            II=((ip-1)*nSx+(bi-1))*sNx+I
./pkg/mdsio/mdsio_gl.F 1385 MDSWRITEFIELD_2D_GL 
            global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 392 MDSREADFIELD_3D_GL 
              II=((ip-1)*nSx+(bi-1))*sNx+I
./pkg/mdsio/mdsio_gl.F 393 MDSREADFIELD_3D_GL 
              arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F 595 MDSWRITEFIELD_3D_GL 
            II=((ip-1)*nSx+(bi-1))*sNx+I
./pkg/mdsio/mdsio_gl.F 596 MDSWRITEFIELD_3D_GL 
            global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/zonal_filt/fftpack.F 1837 R8FFTI1 
            DO 108 II=3,IDO,2
./pkg/zonal_filt/fftpack.F 931 RFFTI1 
            DO 108 II=3,IDO,2