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)) |