Symbol Description Uses
TCU 8



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1202 RAS
      _RL TCU(lng,K), QCU(lng,K)
./pkg/fizhi/fizhi_moist.F 1299 RAS
     *,           PCU, CLOUDN, TCU, QCU, UCU, CMASS
./pkg/fizhi/fizhi_moist.F 1342 RAS
        POI(I,L) = POI(I,L) + TCU(I,L) * DT * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1365 RAS
         temp = TCU(I,L) * DT * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1503 CLOUD
     *,                 PCU, CLN, TCU, QCU, UCU, CMASS
./pkg/fizhi/fizhi_moist.F 1642 CLOUD
      _RL TCU(lng,K),QCU(lng,K),ucu(lng,k,ntracedim),CMASS(lng,K)
./pkg/fizhi/fizhi_moist.F 1714 CLOUD
      TCU(I,L) = 0.0
./pkg/fizhi/fizhi_moist.F 2198 CLOUD
      TCU(II,L) = TEM1 / PRH(II,L)