| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
363 |
MOISTIO |
nindeces(L) = 0 |
|
./pkg/fizhi/fizhi_moist.F |
365 |
MOISTIO |
if(pbl(i).eq.L) nindeces(L) = nindeces(L) + 1 |
|
./pkg/fizhi/fizhi_moist.F |
367 |
MOISTIO |
if(nindeces(L).gt.0) then |
|
./pkg/fizhi/fizhi_moist.F |
385 |
MOISTIO |
DO 600 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
392 |
MOISTIO |
DO 602 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
397 |
MOISTIO |
DO 603 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
407 |
MOISTIO |
do i = num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
411 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
415 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
419 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
428 |
MOISTIO |
DO 112 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
432 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
436 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
440 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
444 |
MOISTIO |
DO 113 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
449 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
469 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
478 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
499 |
MOISTIO |
do i = num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
507 |
MOISTIO |
CALL RAS ( NN,istrip,nindeces(nsubcl),NLRAS,NLTOP,lm,TMSTP |
|
./pkg/fizhi/fizhi_moist.F |
517 |
MOISTIO |
do I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
526 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
532 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
539 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
545 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
555 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
560 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
573 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
589 |
MOISTIO |
num = num+nindeces(nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
92 |
MOISTIO |
integer nindeces(lm) |