Symbol Description Uses
acr 5



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 2277 ACRITN
         acr(i) = a(L+1)*temp + a(L)*(1-temp)
./pkg/fizhi/fizhi_moist.F 2283 ACRITN
      if( pl(i).lt.p(1)   ) acr(i) = a(1)
./pkg/fizhi/fizhi_moist.F 2284 ACRITN
      if( pl(i).gt.p(lma) ) acr(i) = a(lma)
./pkg/fizhi/fizhi_moist.F 2288 ACRITN
      acr(i) = acr(i) * (plb(i)-pl(i))