Symbol Description Uses
PCU 14



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1239 RAS
     *,           PCU, CLOUDN, TCU, QCU, UCU, CMASS
./pkg/fizhi/fizhi_moist.F 1294 RAS
       rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1443 CLOUD
     *,                 PCU, CLN, TCU, QCU, UCU, CMASS
./pkg/fizhi/fizhi_moist.F 1581 CLOUD
      _RL PCU(LENC), CLN(lng)
./pkg/fizhi/fizhi_moist.F 1752 CLOUD
         PCU(I) = 0.0
./pkg/fizhi/fizhi_moist.F 1811 CLOUD
         PCU(I) = PRJ(II,L+1) - PRH(II,L)
./pkg/fizhi/fizhi_moist.F 1812 CLOUD
         TEM1   = ETA(I,L+1) * PCU(I)
./pkg/fizhi/fizhi_moist.F 1813 CLOUD
         TX1(I) = TX1(I)*PCU(I)
./pkg/fizhi/fizhi_moist.F 1815 CLOUD
         PCU(I) = PRH(II,L) - PRJ(II,L)
./pkg/fizhi/fizhi_moist.F 1816 CLOUD
         TEM1   = (TEM1 + ETA(I,L) * PCU(I)) * HST(II,L)
./pkg/fizhi/fizhi_moist.F 1817 CLOUD
         TX1(I) = TX1(I) + TEM*PCU(I)
./pkg/fizhi/fizhi_moist.F 1859 CLOUD
         PCU(I) = 0.0
./pkg/fizhi/fizhi_moist.F 2068 CLOUD
      PCU(I) = 0.0
./pkg/fizhi/fizhi_moist.F 2089 CLOUD
      PCU(II) =  WLQ(I) * WFN(I) * ONEBG