Symbol Description Uses
pkzgather 7



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1104 MOISTIO
       cldtmp(i,j) =  cldtmp(i,j) + cldnow*pkzgather(i,L)
./pkg/fizhi/fizhi_moist.F 286 MOISTIO
        pkzgather(indx,L) = pkl(i,j,L)
./pkg/fizhi/fizhi_moist.F 354 MOISTIO
       CALL STRIP ( pkzgather, PLK     ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 786 MOISTIO
       call BACK2GRD ( pkzgather(1,L),pblindex, pkzgather(1,L)  ,im*jm)
./pkg/fizhi/fizhi_moist.F 79 MOISTIO
      _RL    pkzgather(im*jm,lm)
./pkg/fizhi/fizhi_moist.F 874 MOISTIO
        tmpdiag(i,j)=(dtmoist(i,j,L)*sday*pkzgather(indgath,L)/pz(i,j))