Symbol Description Uses
acr 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 2349 ACRITN
         acr(i) = a(L+1)*temp + a(L)*(1-temp)
./pkg/fizhi/fizhi_moist.F 2355 ACRITN
      if( pl(i).lt.p(1)   ) acr(i) = a(1)
./pkg/fizhi/fizhi_moist.F 2356 ACRITN
      if( pl(i).gt.p(lma) ) acr(i) = a(lma)
./pkg/fizhi/fizhi_moist.F 2360 ACRITN
      acr(i) = acr(i) * (plb(i)-pl(i))