Symbol Description Uses
pkzgather 7



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1047 MOISTIO
       cldtmp(i,1) =  cldtmp(i,1) + cldnow*pkzgather(i,L)
./pkg/fizhi/fizhi_moist.F 269 MOISTIO
        pkzgather(indx,L) = pkl(pblindex(indx),1,L)
./pkg/fizhi/fizhi_moist.F 330 MOISTIO
       CALL STRIP ( pkzgather, PLK     ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 762 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 850 MOISTIO
        tmpdiag(i,j)=(dtmoist(i,j,L)*sday*pkzgather(indgath,L)/pz(i,j))