Symbol Description Uses
cldprs 6



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1027 MOISTIO
          cldprs(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1106 MOISTIO
       cldprs(i,j) =  cldprs(i,j) + cldnow*plev
./pkg/fizhi/fizhi_moist.F 1150 MOISTIO
        if( cldprs(i,j).gt.0. ) then
./pkg/fizhi/fizhi_moist.F 1151 MOISTIO
         tmpdiag(i,j) = cldprs(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 59 MOISTIO
      _RL cldprs(im,jm),cldtmp(im,jm)