Symbol Description Uses
ugather 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 300 MOISTIO
        ugather(indx,L,nt) = qz(i,j,L,nt+ptracer)
./pkg/fizhi/fizhi_moist.F 314 MOISTIO
        ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L)
./pkg/fizhi/fizhi_moist.F 315 MOISTIO
        ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L)
./pkg/fizhi/fizhi_moist.F 364 MOISTIO
        call STRIP ( ugather(1,1,nt), ul(1,1,nt),im*jm,istrip,lm,nn )
./pkg/fizhi/fizhi_moist.F 87 MOISTIO
      _RL      ugather(im*jm,lm,ntracerin+2-ptracer)