| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
138 |
MOISTIO |
integer imstp,nsubcl,nlras |
|
./pkg/fizhi/fizhi_moist.F |
405 |
MOISTIO |
nsubcl = depths(iloop) |
|
./pkg/fizhi/fizhi_moist.F |
409 |
MOISTIO |
DO 600 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
416 |
MOISTIO |
DO 602 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
421 |
MOISTIO |
DO 603 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
431 |
MOISTIO |
do i = num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
435 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
439 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
443 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
445 |
MOISTIO |
usubcl(i,nt) = ul(i,nsubcl,nt) |
|
./pkg/fizhi/fizhi_moist.F |
452 |
MOISTIO |
DO 112 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
456 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
460 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
464 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
468 |
MOISTIO |
DO 113 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
473 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
477 |
MOISTIO |
tmp2(i,2) = tmp4(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
480 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
502 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
503 |
MOISTIO |
do L = nsubcl, lm |
|
./pkg/fizhi/fizhi_moist.F |
506 |
MOISTIO |
do L = 1, nsubcl-1 |
|
./pkg/fizhi/fizhi_moist.F |
511 |
MOISTIO |
ppbl = pl(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
523 |
MOISTIO |
do i = num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
531 |
MOISTIO |
CALL RAS ( NN,istrip,nindeces(nsubcl),NLRAS,NLTOP,lm,TMSTP |
|
./pkg/fizhi/fizhi_moist.F |
540 |
MOISTIO |
do L=nsubcl,lm |
|
./pkg/fizhi/fizhi_moist.F |
541 |
MOISTIO |
do I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
542 |
MOISTIO |
dum = dp(i,L)/(ple(i,lm+1)-ple(i,nsubcl)) |
|
./pkg/fizhi/fizhi_moist.F |
543 |
MOISTIO |
cldmas(i,L) = cldmas(i,L-1) - dum*cldmas(i,nsubcl-1) |
|
./pkg/fizhi/fizhi_moist.F |
549 |
MOISTIO |
DO L=1,nsubcl |
|
./pkg/fizhi/fizhi_moist.F |
550 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
555 |
MOISTIO |
DO L=nsubcl+1,lm |
|
./pkg/fizhi/fizhi_moist.F |
556 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
557 |
MOISTIO |
CVTH(I,L) = cvth(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
558 |
MOISTIO |
CVQ (I,L) = cvq (i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
562 |
MOISTIO |
DO L=nsubcl+1,lm |
|
./pkg/fizhi/fizhi_moist.F |
563 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
569 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
578 |
MOISTIO |
DO L=1,nsubcl-1 |
|
./pkg/fizhi/fizhi_moist.F |
579 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
583 |
MOISTIO |
DO L=nsubcl,lm |
|
./pkg/fizhi/fizhi_moist.F |
584 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
586 |
MOISTIO |
cvu(i,L,nt) = ( ul(i,nsubcl,nt)-usubcl(i,nt) ) * |
|
./pkg/fizhi/fizhi_moist.F |
597 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
599 |
MOISTIO |
do L=nltop,nsubcl |
|
./pkg/fizhi/fizhi_moist.F |
605 |
MOISTIO |
psubcld (i) = sp(i)+ptop-ple(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
613 |
MOISTIO |
num = num+nindeces(nsubcl) |