| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
130 |
EXF_INTERP |
x_in(i) = lon_0 + (i-1)*lon_inc |
|
./pkg/exf/exf_interp.F |
196 |
EXF_INTERP |
if ( xG(i,j,bi,bj) .lt. x_in(0) .or. |
|
./pkg/exf/exf_interp.F |
197 |
EXF_INTERP |
& xG(i,j,bi,bj) .ge. x_in(nx_in+1) .or. |
|
./pkg/exf/exf_interp.F |
205 |
EXF_INTERP |
print*,'x_in(0,nx_in+1)',x_in(0) ,x_in(nx_in+1) |
|
./pkg/exf/exf_interp.F |
217 |
EXF_INTERP |
if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then |
|
./pkg/exf/exf_interp.F |
218 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1 |
|
./pkg/exf/exf_interp.F |
220 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) |
|
./pkg/exf/exf_interp.F |
306 |
EXF_INTERP |
px_ind(l+1) = x_in(w_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
341 |
EXF_INTERP |
px_ind(l+2) = x_in(w_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
97 |
EXF_INTERP |
_RL x_in (-1:nx_in+2), y_in(-1:ny_in+2) |