| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
132 |
EXF_INTERP |
if ( xG(i,j,bi,bj) .lt. x_in(0) .or. |
|
./pkg/exf/exf_interp.F |
133 |
EXF_INTERP |
& xG(i,j,bi,bj) .ge. x_in(nx_in+1) .or. |
|
./pkg/exf/exf_interp.F |
141 |
EXF_INTERP |
print*,'x_in(0,nx_in+1)',x_in(0) ,x_in(nx_in+1) |
|
./pkg/exf/exf_interp.F |
153 |
EXF_INTERP |
if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then |
|
./pkg/exf/exf_interp.F |
154 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1 |
|
./pkg/exf/exf_interp.F |
156 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) |
|
./pkg/exf/exf_interp.F |
179 |
EXF_INTERP |
px_ind(l+1) = x_in(w_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
200 |
EXF_INTERP |
px_ind(l+2) = x_in(w_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
81 |
EXF_INTERP |
real*8 x_in (-1:nx_in+2), y_in(-1:ny_in+2) |
|
./pkg/exf/exf_interp.F |
97 |
EXF_INTERP |
x_in(i) = lon_0 + (i-1.)*lon_inc |