File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
219 |
MOISTIO |
levpbl(i,j) = lm+1 |
./pkg/fizhi/fizhi_moist.F |
227 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))then |
./pkg/fizhi/fizhi_moist.F |
232 |
MOISTIO |
1 .and.(levpbl(i,j).eq.lm+1))levpbl(i,j)=L+1 |
./pkg/fizhi/fizhi_moist.F |
239 |
MOISTIO |
if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin |
./pkg/fizhi/fizhi_moist.F |
240 |
MOISTIO |
if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax |
./pkg/fizhi/fizhi_moist.F |
251 |
MOISTIO |
if(levpbl(i,j).eq.L) then |
./pkg/fizhi/fizhi_moist.F |
266 |
MOISTIO |
levgather(indx) = levpbl(i,j) |
./pkg/fizhi/fizhi_moist.F |
71 |
MOISTIO |
integer levpbl(im,jm) |
./pkg/fizhi/fizhi_turb.F |
1368 |
TRBFLX |
_RL qqcolmin(irun),qqcolmax(irun),levpbl(irun) |
./pkg/fizhi/fizhi_turb.F |
2230 |
TRBFLX |
levpbl(i) = nlev |
./pkg/fizhi/fizhi_turb.F |
2234 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
./pkg/fizhi/fizhi_turb.F |
2238 |
TRBFLX |
if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev)) |
./pkg/fizhi/fizhi_turb.F |
2239 |
TRBFLX |
1 levpbl(i)=l |
./pkg/fizhi/fizhi_turb.F |
2243 |
TRBFLX |
lp = levpbl(i) |