| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
138 |
MOISTIO |
integer imstp,nsubcl,nlras |
|
./pkg/fizhi/fizhi_moist.F |
381 |
MOISTIO |
nsubcl = depths(iloop) |
|
./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 |
421 |
MOISTIO |
usubcl(i,nt) = ul(i,nsubcl,nt) |
|
./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 |
453 |
MOISTIO |
tmp2(i,2) = tmp4(i,nsubcl) |
|
./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 |
479 |
MOISTIO |
do L = nsubcl, lm |
|
./pkg/fizhi/fizhi_moist.F |
482 |
MOISTIO |
do L = 1, nsubcl-1 |
|
./pkg/fizhi/fizhi_moist.F |
487 |
MOISTIO |
ppbl = pl(i,nsubcl) |
|
./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 |
516 |
MOISTIO |
do L=nsubcl,lm |
|
./pkg/fizhi/fizhi_moist.F |
517 |
MOISTIO |
do I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
518 |
MOISTIO |
dum = dp(i,L)/(ple(i,lm+1)-ple(i,nsubcl)) |
|
./pkg/fizhi/fizhi_moist.F |
519 |
MOISTIO |
cldmas(i,L) = cldmas(i,L-1) - dum*cldmas(i,nsubcl-1) |
|
./pkg/fizhi/fizhi_moist.F |
525 |
MOISTIO |
DO L=1,nsubcl |
|
./pkg/fizhi/fizhi_moist.F |
526 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
531 |
MOISTIO |
DO L=nsubcl+1,lm |
|
./pkg/fizhi/fizhi_moist.F |
532 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
533 |
MOISTIO |
CVTH(I,L) = cvth(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
534 |
MOISTIO |
CVQ (I,L) = cvq (i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
538 |
MOISTIO |
DO L=nsubcl+1,lm |
|
./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 |
554 |
MOISTIO |
DO L=1,nsubcl-1 |
|
./pkg/fizhi/fizhi_moist.F |
555 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
559 |
MOISTIO |
DO L=nsubcl,lm |
|
./pkg/fizhi/fizhi_moist.F |
560 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
562 |
MOISTIO |
cvu(i,L,nt) = ( ul(i,nsubcl,nt)-usubcl(i,nt) ) * |
|
./pkg/fizhi/fizhi_moist.F |
573 |
MOISTIO |
do i=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
575 |
MOISTIO |
do L=nltop,nsubcl |
|
./pkg/fizhi/fizhi_moist.F |
581 |
MOISTIO |
psubcld (i) = sp(i)+ptop-ple(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
589 |
MOISTIO |
num = num+nindeces(nsubcl) |