File |
Line number |
Procedure |
Code |
./pkg/exf/exf_interpolate.F |
127 |
EXF_INTERPOLATE |
INTEGER sp |
./pkg/exf/exf_interpolate.F |
138 |
EXF_INTERPOLATE |
sp = 2 |
./pkg/exf/exf_interpolate.F |
149 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
151 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
153 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
157 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
159 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
161 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
163 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
165 |
EXF_INTERPOLATE |
& +ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
166 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
16 |
NO PROCEDURE |
_RL FUNCTION LAGRAN(i,x,a,sp) |
./pkg/exf/exf_interpolate.F |
173 |
EXF_INTERPOLATE |
sp = 4 |
./pkg/exf/exf_interpolate.F |
184 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
186 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
188 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
190 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
192 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
196 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
198 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
200 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
202 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
204 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
206 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
208 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
210 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
212 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
214 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
216 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
218 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
220 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
222 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
224 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
226 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
./pkg/exf/exf_interpolate.F |
228 |
EXF_INTERPOLATE |
& ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
229 |
EXF_INTERPOLATE |
& +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
230 |
EXF_INTERPOLATE |
& +ew_val3*LAGRAN(3,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
231 |
EXF_INTERPOLATE |
& +ew_val4*LAGRAN(4,yG(i,j,bi,bj),py_ind,sp) |
./pkg/exf/exf_interpolate.F |
33 |
NO PROCEDURE |
INTEGER sp |
./pkg/exf/exf_interpolate.F |
45 |
NO PROCEDURE |
DO k=1,sp |
./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 |