| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
237 |
EXF_INTERP |
s_ind(i,j) = js |
|
./pkg/exf/exf_interp.F |
247 |
EXF_INTERP |
s_ind(i,j) = ny_in*.5 |
|
./pkg/exf/exf_interp.F |
259 |
EXF_INTERP |
if (yG(i,j,bi,bj) .lt. y_in(s_ind(i,j))) then |
|
./pkg/exf/exf_interp.F |
260 |
EXF_INTERP |
s_ind(i,j) = (s_ind(i,j) - 1)*.5 |
|
./pkg/exf/exf_interp.F |
282 |
EXF_INTERP |
if (yG(i,j,bi,bj) .ge. y_in(s_ind(i,j)+1)) then |
|
./pkg/exf/exf_interp.F |
283 |
EXF_INTERP |
s_ind(i,j) = s_ind(i,j) + 1 |
|
./pkg/exf/exf_interp.F |
294 |
EXF_INTERP |
n_ind(i,j) = s_ind(i,j) + 1 |
|
./pkg/exf/exf_interp.F |
307 |
EXF_INTERP |
py_ind(l+1) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
311 |
EXF_INTERP |
ew_val(k) = arrayin(w_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
313 |
EXF_INTERP |
& +arrayin(e_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
319 |
EXF_INTERP |
ew_val1 = arrayin(w_ind(i,j),s_ind(i,j)+1-1) |
|
./pkg/exf/exf_interp.F |
321 |
EXF_INTERP |
& +arrayin(e_ind(i,j),s_ind(i,j)+1-1) |
|
./pkg/exf/exf_interp.F |
323 |
EXF_INTERP |
ew_val2 = arrayin(w_ind(i,j),s_ind(i,j)+2-1) |
|
./pkg/exf/exf_interp.F |
325 |
EXF_INTERP |
& +arrayin(e_ind(i,j),s_ind(i,j)+2-1) |
|
./pkg/exf/exf_interp.F |
342 |
EXF_INTERP |
py_ind(l+2) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
347 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
349 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
351 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
353 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
360 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+1-2) |
|
./pkg/exf/exf_interp.F |
362 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+1-2) |
|
./pkg/exf/exf_interp.F |
364 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+1-2) |
|
./pkg/exf/exf_interp.F |
366 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+1-2) |
|
./pkg/exf/exf_interp.F |
369 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+2-2) |
|
./pkg/exf/exf_interp.F |
371 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+2-2) |
|
./pkg/exf/exf_interp.F |
373 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+2-2) |
|
./pkg/exf/exf_interp.F |
375 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+2-2) |
|
./pkg/exf/exf_interp.F |
378 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+3-2) |
|
./pkg/exf/exf_interp.F |
380 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+3-2) |
|
./pkg/exf/exf_interp.F |
382 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+3-2) |
|
./pkg/exf/exf_interp.F |
384 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+3-2) |
|
./pkg/exf/exf_interp.F |
387 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+4-2) |
|
./pkg/exf/exf_interp.F |
389 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+4-2) |
|
./pkg/exf/exf_interp.F |
391 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+4-2) |
|
./pkg/exf/exf_interp.F |
393 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+4-2) |
|
./pkg/exf/exf_interp.F |
93 |
EXF_INTERP |
integer n_ind(snx,sny),s_ind(snx,sny) |