Symbol Description Uses
IC 192


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1224 RAS 
      integer IC(ICM),   IRND(icm)
./pkg/fizhi/fizhi_moist.F 1266 RAS 
         IC(NC) = K - NC
./pkg/fizhi/fizhi_moist.F 1277 RAS 
        IC(KFX+NC) = IRND(NC)
./pkg/fizhi/fizhi_moist.F 1288 RAS 
       IB = IC(NC)
./pkg/fizhi/fizhi_moist.F 1499 CLOUD 
      SUBROUTINE CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IC, RASALF
./pkg/fizhi/fizhi_moist.F 1682 CLOUD 
      IC1 = IC + 1
./pkg/fizhi/fizhi_moist.F 1737 CLOUD 
      IF (IC .LT. KM1) THEN
./pkg/fizhi/fizhi_moist.F 1757 CLOUD 
      HOL(I,IC) = TX2(I)
./pkg/fizhi/fizhi_moist.F 1758 CLOUD 
      QS1(I)    = ALF(I,IC) + BET(I,IC)*POI(I,IC)
./pkg/fizhi/fizhi_moist.F 1759 CLOUD 
      QOL(I,IC) = MIN(QS1(I)*RHMAX,QOI(I,IC))
./pkg/fizhi/fizhi_moist.F 1761 CLOUD 
      TEM1      = TX2(I) + PRJ(I,IC1) * POI(I,IC) * CP
./pkg/fizhi/fizhi_moist.F 1762 CLOUD 
      HOL(I,IC) = TEM1 + QOL(I,IC) * ALHL
./pkg/fizhi/fizhi_moist.F 1763 CLOUD 
      HST(I,IC) = TEM1 + QS1(I)    * ALHL
./pkg/fizhi/fizhi_moist.F 1765 CLOUD 
      TX3(I   ) = (PRJ(I,IC1) - PRH(I,IC)) * POI(I,IC)
./pkg/fizhi/fizhi_moist.F 1766 CLOUD 
      ETA(I,IC) = ETA(I,IC1) + CPBG * TX3(I)
./pkg/fizhi/fizhi_moist.F 1770 CLOUD 
      TX2(I) = HOL(I,K)  - HST(I,IC)
./pkg/fizhi/fizhi_moist.F 1777 CLOUD 
      DO 160 L=IC,KM1
./pkg/fizhi/fizhi_moist.F 1779 CLOUD 
      TX1(I) = TX1(I) + (HST(I,IC) - HOL(I,L)) * (ETA(I,L) - ETA(I,L+1))
./pkg/fizhi/fizhi_moist.F 1829 CLOUD 
      TX2(I)   = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./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 1847 CLOUD 
      DO 260 L=KM1,IC,-1
./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 1894 CLOUD 
         WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC))
./pkg/fizhi/fizhi_moist.F 1942 CLOUD 
      DO 520 L=IC,K
./pkg/fizhi/fizhi_moist.F 1954 CLOUD 
      TX8(I) = HST(II,IC) - HOL(II,IC)
./pkg/fizhi/fizhi_moist.F 1959 CLOUD 
      TEM    = TX6(I) * (HOL(II,IC)-HOL(II,IC1)) + HOL(II,IC1)
./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 1971 CLOUD 
      WLQ(I) = QOL(II,K) - QS1(I)     * ETA(I,IC)
./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 1981 CLOUD 
      DO 635 L=KM1,IC,-1
./pkg/fizhi/fizhi_moist.F 1989 CLOUD 
      DO L=KM1,IC,-1
./pkg/fizhi/fizhi_moist.F 2007 CLOUD 
      TX2(I)     = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 2035 CLOUD 
      TX1(I) = HOL(I,IC)
./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 2043 CLOUD 
      HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC)
./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 2081 CLOUD 
     *       * (TX7(I) - TX8(I) - TX5(I) - QOL(I1(I),IC)*ALHL)
./pkg/fizhi/fizhi_moist.F 2084 CLOUD 
      GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP
./pkg/fizhi/fizhi_moist.F 2085 CLOUD 
     *          * (TX3(I)*(ALHL*HALF) + ETA(I,IC) * TX8(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 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 2126 CLOUD 
         HOL(I,IC1) = HOL(I,IC1) + HOL(I,IC) * TEM
./pkg/fizhi/fizhi_moist.F 2127 CLOUD 
         HOL(I,IC)  = ZERO
./pkg/fizhi/fizhi_moist.F 2129 CLOUD 
         GMH(I,IC1) = GMH(I,IC1) + GMH(I,IC) * TEM
./pkg/fizhi/fizhi_moist.F 2130 CLOUD 
         GMH(I,IC)  = ZERO
./pkg/fizhi/fizhi_moist.F 2171 CLOUD 
      DO L = IC,K
./pkg/fizhi/fizhi_moist.F 2192 CLOUD 
      DO 990 L=IC,K
./pkg/fizhi/fizhi_moist.F 2241 CLOUD 
         TEM    = half*TX5(I) * PRI(II,IC)
./pkg/fizhi/fizhi_moist.F 2249 CLOUD 
      ucu(II,IC,nt) = TX1(I)
./pkg/opps/opps_calc.F 296 OPPS_CALC 
       IC=0
./pkg/opps/opps_calc.F 300 OPPS_CALC 
       DO IC=1,Max_ABE_Iterations
./pkg/opps/opps_calc.F 791 NLOPPS 
          IC=0
./pkg/opps/opps_calc.F 795 NLOPPS 
          DO IC=1,Max_ABE_Iterations
./pkg/zonal_filt/fftpack.F 1002 R8ADB3 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1005 R8ADB3 
            CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K))
./pkg/zonal_filt/fftpack.F 1006 R8ADB3 
            CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K))
./pkg/zonal_filt/fftpack.F 1039 R8ADB4 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1040 R8ADB4 
            TI1 = CC(I,1,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1041 R8ADB4 
            TI2 = CC(I,1,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1042 R8ADB4 
            TI3 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1043 R8ADB4 
            TR4 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1044 R8ADB4 
            TR1 = CC(I-1,1,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1045 R8ADB4 
            TR2 = CC(I-1,1,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1046 R8ADB4 
            TI4 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1047 R8ADB4 
            TR3 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 108 RADB4 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 109 RADB4 
            TI1 = CC(I,1,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1104 R8ADB5 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1105 R8ADB5 
            TI5 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1106 R8ADB5 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1107 R8ADB5 
            TI4 = CC(I,5,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1108 R8ADB5 
            TI3 = CC(I,5,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1109 R8ADB5 
            TR5 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 110 RADB4 
            TI2 = CC(I,1,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1110 R8ADB5 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1111 R8ADB5 
            TR4 = CC(I-1,5,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1112 R8ADB5 
            TR3 = CC(I-1,5,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 111 RADB4 
            TI3 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 112 RADB4 
            TR4 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 113 RADB4 
            TR1 = CC(I-1,1,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 114 RADB4 
            TR2 = CC(I-1,1,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 115 RADB4 
            TI4 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 116 RADB4 
            TR3 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1183 R8ADBG 
               IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1184 R8ADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1185 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1186 R8ADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1187 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1195 R8ADBG 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1197 R8ADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1198 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1199 R8ADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1200 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1386 R8ADF2 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1390 R8ADF2 
            CH(IC,2,K) = TI2-CC(I,K,1)
./pkg/zonal_filt/fftpack.F 1392 R8ADF2 
            CH(IC-1,2,K) = CC(I-1,K,1)-TR2
./pkg/zonal_filt/fftpack.F 1418 R8ADF3 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1432 R8ADF3 
            CH(IC-1,2,K) = TR2-TR3
./pkg/zonal_filt/fftpack.F 1434 R8ADF3 
            CH(IC,2,K) = TI3-TI2
./pkg/zonal_filt/fftpack.F 1457 R8ADF4 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1473 R8ADF4 
            CH(IC-1,4,K) = TR2-TR1
./pkg/zonal_filt/fftpack.F 1475 R8ADF4 
            CH(IC,4,K) = TI1-TI2
./pkg/zonal_filt/fftpack.F 1477 R8ADF4 
            CH(IC-1,2,K) = TR3-TI4
./pkg/zonal_filt/fftpack.F 1479 R8ADF4 
            CH(IC,2,K) = TR4-TI3
./pkg/zonal_filt/fftpack.F 1516 R8ADF5 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1544 R8ADF5 
            CH(IC-1,2,K) = TR2-TR5
./pkg/zonal_filt/fftpack.F 1546 R8ADF5 
            CH(IC,2,K) = TI5-TI2
./pkg/zonal_filt/fftpack.F 1548 R8ADF5 
            CH(IC-1,4,K) = TR3-TR4
./pkg/zonal_filt/fftpack.F 1550 R8ADF5 
            CH(IC,4,K) = TI4-TI3
./pkg/zonal_filt/fftpack.F 1699 R8ADFG 
               IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1701 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1703 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1712 R8ADFG 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 1715 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1717 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 175 RADB5 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 176 RADB5 
            TI5 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 177 RADB5 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 178 RADB5 
            TI4 = CC(I,5,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 179 RADB5 
            TI3 = CC(I,5,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 180 RADB5 
            TR5 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 181 RADB5 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 182 RADB5 
            TR4 = CC(I-1,5,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 183 RADB5 
            TR3 = CC(I-1,5,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 256 RADBG 
               IC = IDP2-I
./pkg/zonal_filt/fftpack.F 257 RADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 258 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 259 RADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 260 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 268 RADBG 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 270 RADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 271 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 272 RADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 273 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 29 RADB2 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 30 RADB2 
            CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 31 RADB2 
            TR2 = CC(I-1,1,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 32 RADB2 
            CH(I,K,1) = CC(I,1,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 33 RADB2 
            TI2 = CC(I,1,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 465 RADF2 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 469 RADF2 
            CH(IC,2,K) = TI2-CC(I,K,1)
./pkg/zonal_filt/fftpack.F 471 RADF2 
            CH(IC-1,2,K) = CC(I-1,K,1)-TR2
./pkg/zonal_filt/fftpack.F 499 RADF3 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 513 RADF3 
            CH(IC-1,2,K) = TR2-TR3
./pkg/zonal_filt/fftpack.F 515 RADF3 
            CH(IC,2,K) = TI3-TI2
./pkg/zonal_filt/fftpack.F 540 RADF4 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 556 RADF4 
            CH(IC-1,4,K) = TR2-TR1
./pkg/zonal_filt/fftpack.F 558 RADF4 
            CH(IC,4,K) = TI1-TI2
./pkg/zonal_filt/fftpack.F 560 RADF4 
            CH(IC-1,2,K) = TR3-TI4
./pkg/zonal_filt/fftpack.F 562 RADF4 
            CH(IC,2,K) = TR4-TI3
./pkg/zonal_filt/fftpack.F 601 RADF5 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 629 RADF5 
            CH(IC-1,2,K) = TR2-TR5
./pkg/zonal_filt/fftpack.F 631 RADF5 
            CH(IC,2,K) = TI5-TI2
./pkg/zonal_filt/fftpack.F 633 RADF5 
            CH(IC-1,4,K) = TR3-TR4
./pkg/zonal_filt/fftpack.F 635 RADF5 
            CH(IC,4,K) = TI4-TI3
./pkg/zonal_filt/fftpack.F 65 RADB3 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 66 RADB3 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 69 RADB3 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 72 RADB3 
            CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K))
./pkg/zonal_filt/fftpack.F 73 RADB3 
            CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K))
./pkg/zonal_filt/fftpack.F 786 RADFG 
               IC = IDP2-I
./pkg/zonal_filt/fftpack.F 788 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 790 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 799 RADFG 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 802 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 804 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 964 R8ADB2 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 965 R8ADB2 
            CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 966 R8ADB2 
            TR2 = CC(I-1,1,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 967 R8ADB2 
            CH(I,K,1) = CC(I,1,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 968 R8ADB2 
            TI2 = CC(I,1,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 998 R8ADB3 
            IC = IDP2-I
./pkg/zonal_filt/fftpack.F 999 R8ADB3 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)