Symbol Description Uses
PRS 29



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1178 RAS
     *,      UOI, ntracedim, ntracer, POI, QOI, PRS, PRJ, rnd, ncrnd
./pkg/fizhi/fizhi_moist.F 1195 RAS
      _RL QOI(lng,K), PRS(lng,K+1), PRJ(lng,K+1)
./pkg/fizhi/fizhi_moist.F 1298 RAS
     *,           POI, QOI, UOI, ntracedim, Ntracer, PRS, PRJ
./pkg/fizhi/fizhi_moist.F 1502 CLOUD
     *,                 POI, QOI, UOI, ntracedim, Ntracer, PRS,  PRJ
./pkg/fizhi/fizhi_moist.F 1639 CLOUD
      _RL POI(lng,K),QOI(lng,K),PRS(lng,K+1),PRJ(lng,K+1)
./pkg/fizhi/fizhi_moist.F 1691 CLOUD
          PRH(I,L) = (PRJ(I,L+1)*PRS(I,L+1) - PRJ(I,L)*PRS(I,L))
./pkg/fizhi/fizhi_moist.F 1692 CLOUD
     *                            / ((PRS(I,L+1)-PRS(I,L)) * RKAPP1)
./pkg/fizhi/fizhi_moist.F 1699 CLOUD
          TX1(I) = (PRS(I,L) + PRS(I,L+1)) * 0.5
./pkg/fizhi/fizhi_moist.F 1705 CLOUD
          PRI(I,L) = (CP/CMB2PA) / (PRS(I,L+1) - PRS(I,L))
./pkg/fizhi/fizhi_moist.F 1829 CLOUD
      TX2(I)   = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 1830 CLOUD
      TX4(I)   = PRS(II,K)
./pkg/fizhi/fizhi_moist.F 1841 CLOUD
      TX2(I) = 0.5 * (PRS(II,IC1)+PRS(II,IC1+1)) * (1.0-TX6(I))
./pkg/fizhi/fizhi_moist.F 2007 CLOUD
      TX2(I)     = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 2116 CLOUD
      TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1))
./pkg/fizhi/fizhi_moist.F 2117 CLOUD
     *       + 0.5*(PRS(II,IC+2) - PRS(II,IC)) * (ONE-TX6(I))
./pkg/fizhi/fizhi_moist.F 2119 CLOUD
      TX1(I) = PRS(II,IC1)
./pkg/fizhi/fizhi_moist.F 2120 CLOUD
      TX5(I) = 0.5 * (PRS(II,IC1) + PRS(II,IC+2))
./pkg/fizhi/fizhi_moist.F 2150 CLOUD
      TEM       = (PRS(II,K+1)-PRS(II,K))*(CMB2PA*FRAC)