Symbol Description Uses
PRI 19



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1206 RAS
     *,         PRH(lng,K), PRI(lng,K)
./pkg/fizhi/fizhi_moist.F 1300 RAS
     *,           ALF, BET, GAM, PRH, PRI, HOI, ETA
./pkg/fizhi/fizhi_moist.F 1504 CLOUD
     *,                 ALF, BET, GAM, PRH, PRI, HOL, ETA
./pkg/fizhi/fizhi_moist.F 1643 CLOUD
      _RL ALF(lng,K), BET(lng,K),  GAM(lng,K), PRH(lng,K), PRI(lng,K)
./pkg/fizhi/fizhi_moist.F 1705 CLOUD
          PRI(I,L) = (CP/CMB2PA) / (PRS(I,L+1) - PRS(I,L))
./pkg/fizhi/fizhi_moist.F 2004 CLOUD
      HOL(I,K)   = TEM * (PRJ(II,K)-PRH(II,KM1))*PRH(II,K)*PRI(II,K)
./pkg/fizhi/fizhi_moist.F 2005 CLOUD
      HOL(I,KM1) = TEM * (PRH(II,K)-PRJ(II,K))*PRH(II,KM1)*PRI(II,KM1)
./pkg/fizhi/fizhi_moist.F 2018 CLOUD
     *                    *  PRI(II,L)  + HOL(I,L)
./pkg/fizhi/fizhi_moist.F 2020 CLOUD
     *                                              * PRI(II,L-1)
./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 2059 CLOUD
      GMH(I,K) = HOL(I,K) + TX3(I) * PRI(II,K) * (ALBCP)
./pkg/fizhi/fizhi_moist.F 2074 CLOUD
         GMH(I,L) = HOL(I,L) + TX2(I)   * PRI(II,L) * (ALBCP*HALF)
./pkg/fizhi/fizhi_moist.F 2084 CLOUD
      GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP
./pkg/fizhi/fizhi_moist.F 2125 CLOUD
         TEM        = PRI(II,IC1) / PRI(II,IC)
./pkg/fizhi/fizhi_moist.F 2218 CLOUD
      TEM    = half*TX5(I) * PRI(II,K)
./pkg/fizhi/fizhi_moist.F 2228 CLOUD
      TEM = half*TX5(I) * PRI(II,L)
./pkg/fizhi/fizhi_moist.F 2241 CLOUD
         TEM    = half*TX5(I) * PRI(II,IC)