Symbol Description Uses
thgather 4



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 266 MOISTIO
         thgather(indx,L) = tz(pblindex(indx),1,L)
./pkg/fizhi/fizhi_moist.F 335 MOISTIO
       CALL STRIP (  thgather, TH      ,im*jm,ISTRIP,lm,NN )
./pkg/fizhi/fizhi_moist.F 618 MOISTIO
      CALL STRIP ( thgather,TH ,im*jm,ISTRIP,lm,NN)
./pkg/fizhi/fizhi_moist.F 77 MOISTIO
      _RL     thgather(im*jm,lm)