Symbol Description Uses
lma 7


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 2254 ACRITN 
      integer lma
./pkg/fizhi/fizhi_moist.F 2255 ACRITN 
      parameter  (lma=18)
./pkg/fizhi/fizhi_moist.F 2256 ACRITN 
      _RL p(lma)
./pkg/fizhi/fizhi_moist.F 2257 ACRITN 
      _RL a(lma)
./pkg/fizhi/fizhi_moist.F 2272 ACRITN 
      do L=1,lma-1
./pkg/fizhi/fizhi_moist.F 2284 ACRITN 
      if( pl(i).gt.p(lma) ) acr(i) = a(lma)