Symbol Description Uses
TX1 58



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1209 RAS
      _RL TX1(lng), TX2(lng), TX3(lng), TX4(lng), TX5(lng)
./pkg/fizhi/fizhi_moist.F 1302 RAS
     *,           TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, TX9
./pkg/fizhi/fizhi_moist.F 1506 CLOUD
     *,                 TX1, TX2, TX3, TX4, TX5, TX6, TX7, TX8, ALM
./pkg/fizhi/fizhi_moist.F 1646 CLOUD
      _RL TX1(LENC), TX2(LENC), TX3(LENC), TX4(LENC)
./pkg/fizhi/fizhi_moist.F 1699 CLOUD
          TX1(I) = (PRS(I,L) + PRS(I,L+1)) * 0.5
./pkg/fizhi/fizhi_moist.F 1701 CLOUD
          CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.)
./pkg/fizhi/fizhi_moist.F 1728 CLOUD
      TX1(I)   = PRJ(I,K+1) * POI(I,K)
./pkg/fizhi/fizhi_moist.F 1732 CLOUD
      HOL(I,K) = TX1(I)*CP + QOL(I,K)*ALHL
./pkg/fizhi/fizhi_moist.F 1747 CLOUD
         TX1(I)   = (PRJ(I,L+1) - PRJ(I,L)) * POI(I,L)
./pkg/fizhi/fizhi_moist.F 1748 CLOUD
         ETA(I,L) = ETA(I,L+1) + TX1(I)*CPBG
./pkg/fizhi/fizhi_moist.F 1749 CLOUD
         TX2(I)   = TX2(I)     + TX1(I)*CP
./pkg/fizhi/fizhi_moist.F 1771 CLOUD
      TX1(I) = ZERO
./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 1786 CLOUD
      IF (TX1(I) .GT. ZERO .AND. TX2(I) .GT. ZERO
./pkg/fizhi/fizhi_moist.F 1790 CLOUD
         ALM(LEN1) = TX2(I) / TX1(I)
./pkg/fizhi/fizhi_moist.F 1849 CLOUD
      TX1(I) = ETA(IA(I),L)
./pkg/fizhi/fizhi_moist.F 1852 CLOUD
      ETA(I,L) = 1.0 + ALM(I) * TX1(I)
./pkg/fizhi/fizhi_moist.F 1867 CLOUD
      TX1(I) = HOL(II,K)
./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 1879 CLOUD
         TX1(I) = TX1(I)*PCU(I)
./pkg/fizhi/fizhi_moist.F 1883 CLOUD
         TX1(I) = TX1(I) + TEM*PCU(I)
./pkg/fizhi/fizhi_moist.F 1885 CLOUD
         WFN(I) = WFN(I) + (TX1(I) - TEM1) * GAM(II,L)
./pkg/fizhi/fizhi_moist.F 1886 CLOUD
         TX1(I) = TEM
./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 1900 CLOUD
            TX1(LENA) = WFN(I)
./pkg/fizhi/fizhi_moist.F 1913 CLOUD
         TX1(LENB) = WFN(I)
./pkg/fizhi/fizhi_moist.F 1938 CLOUD
      WFN(I) = TX1(I)
./pkg/fizhi/fizhi_moist.F 1944 CLOUD
      TX1(I) = ETA(I2(I),L)
./pkg/fizhi/fizhi_moist.F 1947 CLOUD
      ETA(I,L) = TX1(I)
./pkg/fizhi/fizhi_moist.F 2029 CLOUD
      CALL RNCL(LENB, TX2, TX1, CLF)
./pkg/fizhi/fizhi_moist.F 2032 CLOUD
      TX2(I) = (ONE - TX1(I)) * WLQ(I)
./pkg/fizhi/fizhi_moist.F 2033 CLOUD
      WLQ(I) = TX1(I) * WLQ(I)
./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 2050 CLOUD
     *                                * TX1(I) / PRH(II,IC)
./pkg/fizhi/fizhi_moist.F 2084 CLOUD
      GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP
./pkg/fizhi/fizhi_moist.F 2092 CLOUD
         TX1(I) = GMH(I,K)
./pkg/fizhi/fizhi_moist.F 2097 CLOUD
         TX1(I) = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * GMH(I,L)
./pkg/fizhi/fizhi_moist.F 2108 CLOUD
         AKM(I) = AKM(I) + TX1(I) *
./pkg/fizhi/fizhi_moist.F 2119 CLOUD
      TX1(I) = PRS(II,IC1)
./pkg/fizhi/fizhi_moist.F 2122 CLOUD
      IF ((TX2(I) .GE. TX1(I)) .AND. (TX2(I) .LT. TX5(I))) THEN
./pkg/fizhi/fizhi_moist.F 2123 CLOUD
         TX6(I)     = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I))
./pkg/fizhi/fizhi_moist.F 2131 CLOUD
      ELSEIF (TX2(I) .LT. TX1(I)) THEN
./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 2229 CLOUD
      TEM1   = TX1(I)
./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 2231 CLOUD
      TX3(I) = (TX1(I) + TEM1) * TEM
./pkg/fizhi/fizhi_moist.F 2245 CLOUD
      TX1(I) = (TX1(I) + UHT(I,nt) + UHT(I,nt)) * TEM
./pkg/fizhi/fizhi_moist.F 2249 CLOUD
      ucu(II,IC,nt) = TX1(I)