Symbol Description Uses
levpbl 17



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 219 MOISTIO
         levpbl(i,j) = lm+1
./pkg/fizhi/fizhi_moist.F 227 MOISTIO
     1                   .and.(levpbl(i,j).eq.lm+1))then
./pkg/fizhi/fizhi_moist.F 232 MOISTIO
     1                   .and.(levpbl(i,j).eq.lm+1))levpbl(i,j)=L+1
./pkg/fizhi/fizhi_moist.F 239 MOISTIO
        if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin
./pkg/fizhi/fizhi_moist.F 240 MOISTIO
        if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax
./pkg/fizhi/fizhi_moist.F 251 MOISTIO
        if(levpbl(i,j).eq.L) then
./pkg/fizhi/fizhi_moist.F 266 MOISTIO
       levgather(indx) = levpbl(i,j)
./pkg/fizhi/fizhi_moist.F 71 MOISTIO
      integer levpbl(im,jm)
./pkg/fizhi/fizhi_turb.F 1368 TRBFLX
      _RL qqcolmin(irun),qqcolmax(irun),levpbl(irun)
./pkg/fizhi/fizhi_turb.F 2230 TRBFLX
        levpbl(i) = nlev
./pkg/fizhi/fizhi_turb.F 2234 TRBFLX
         IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then
./pkg/fizhi/fizhi_turb.F 2238 TRBFLX
         if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev))
./pkg/fizhi/fizhi_turb.F 2239 TRBFLX
     1                                                levpbl(i)=l
./pkg/fizhi/fizhi_turb.F 2243 TRBFLX
        lp = levpbl(i)