| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
268 |
MOISTIO |
pkegather(indx,lm+1) = pkht(i,j,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
285 |
MOISTIO |
pkegather(indx,L) = pkht(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
355 |
MOISTIO |
CALL STRIP ( pkegather, PLKE ,im*jm,ISTRIP,lm+1,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
634 |
MOISTIO |
call PASTE(detrain,pkegather,istrip,im*jm,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
792 |
MOISTIO |
call BACK2GRD(pkegather(1,L),pblindex, |
|
./pkg/fizhi/fizhi_moist.F |
793 |
MOISTIO |
. pkegather(1,L),im*jm) |
|
./pkg/fizhi/fizhi_moist.F |
80 |
MOISTIO |
_RL pkegather(im*jm,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
941 |
MOISTIO |
tmpdiag(i,j)=pkegather(indgath,L) |