| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
417 |
MOISTIO |
TMP1(I,2) = TMP1(I,2) + (PLE(I,L+1)-PLE(I,L))*TH (I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
418 |
MOISTIO |
TMP1(I,3) = TMP1(I,3) + (PLE(I,L+1)-PLE(I,L))*SHL(I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
422 |
MOISTIO |
TMP1(I,4) = 1. / ( (PLE(I,lm+1)-PLE(I,NSUBCL))/sp(I) ) |
|
./pkg/fizhi/fizhi_moist.F |
440 |
MOISTIO |
TMP1(I,2) = TMP1(I,2)+(PLE(I,L+1)-PLE(I,L))*UL(I,L,NT)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
580 |
MOISTIO |
CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
587 |
MOISTIO |
. ( saveu(i,L,nt)/usubcl(i,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
605 |
MOISTIO |
psubcld (i) = sp(i)+ptop-ple(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
665 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
670 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/exf/exf_interp.F |
16 |
NO PROCEDURE |
_RL FUNCTION LAGRAN(i,x,a,sp) |
|
./pkg/exf/exf_interp.F |
21 |
NO PROCEDURE |
INTEGER sp |
|
./pkg/exf/exf_interp.F |
301 |
EXF_INTERP |
sp = 2 |
|
./pkg/exf/exf_interp.F |
312 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
314 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
316 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
320 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
322 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
324 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
326 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
328 |
EXF_INTERP |
& +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
329 |
EXF_INTERP |
& +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
336 |
EXF_INTERP |
sp = 4 |
|
./pkg/exf/exf_interp.F |
33 |
NO PROCEDURE |
do k=1,sp |
|
./pkg/exf/exf_interp.F |
348 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
350 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
352 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
354 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
361 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
363 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
365 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
367 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
370 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
372 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
374 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
376 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
379 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
381 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
383 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
385 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
388 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
390 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
392 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
394 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
396 |
EXF_INTERP |
& +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
& +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
398 |
EXF_INTERP |
& +ew_val3*lagran(3,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
399 |
EXF_INTERP |
& +ew_val4*lagran(4,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
98 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |