Symbol Description Uses
PCU 14



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1299 RAS
     *,           PCU, CLOUDN, TCU, QCU, UCU, CMASS
./pkg/fizhi/fizhi_moist.F 1354 RAS
       rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1503 CLOUD
     *,                 PCU, CLN, TCU, QCU, UCU, CMASS
./pkg/fizhi/fizhi_moist.F 1641 CLOUD
      _RL PCU(LENC), CLN(lng)
./pkg/fizhi/fizhi_moist.F 1818 CLOUD
         PCU(I) = 0.0
./pkg/fizhi/fizhi_moist.F 1877 CLOUD
         PCU(I) = PRJ(II,L+1) - PRH(II,L)
./pkg/fizhi/fizhi_moist.F 1878 CLOUD
         TEM1   = ETA(I,L+1) * PCU(I)
./pkg/fizhi/fizhi_moist.F 1879 CLOUD
         TX1(I) = TX1(I)*PCU(I)
./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 1883 CLOUD
         TX1(I) = TX1(I) + TEM*PCU(I)
./pkg/fizhi/fizhi_moist.F 1931 CLOUD
         PCU(I) = 0.0
./pkg/fizhi/fizhi_moist.F 2140 CLOUD
      PCU(I) = 0.0
./pkg/fizhi/fizhi_moist.F 2161 CLOUD
      PCU(II) =  WLQ(I) * WFN(I) * ONEBG