Symbol Description Uses
lma 7


File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 2326 ACRITN 
      integer lma
./pkg/fizhi/fizhi_moist.F 2327 ACRITN 
      parameter  (lma=18)
./pkg/fizhi/fizhi_moist.F 2328 ACRITN 
      _RL p(lma)
./pkg/fizhi/fizhi_moist.F 2329 ACRITN 
      _RL a(lma)
./pkg/fizhi/fizhi_moist.F 2344 ACRITN 
      do L=1,lma-1
./pkg/fizhi/fizhi_moist.F 2356 ACRITN 
      if( pl(i).gt.p(lma) ) acr(i) = a(lma)