| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
100 |
EXF_INTERP |
y_in(-1)= lat_0 - 2.*lat_inc(1) |
|
./pkg/exf/exf_interp.F |
101 |
EXF_INTERP |
y_in(1) = lat_0 |
|
./pkg/exf/exf_interp.F |
103 |
EXF_INTERP |
y_in(j) = y_in(j-1) + lat_inc(j-1) |
|
./pkg/exf/exf_interp.F |
105 |
EXF_INTERP |
y_in(ny_in+1) = y_in(ny_in) + lat_inc(ny_in-1) |
|
./pkg/exf/exf_interp.F |
106 |
EXF_INTERP |
y_in(ny_in+2) = y_in(ny_in) + 2.*lat_inc(ny_in-1) |
|
./pkg/exf/exf_interp.F |
134 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
135 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
142 |
EXF_INTERP |
print*,'y_in(0,ny_in+1)',y_in(0) ,y_in(ny_in+1) |
|
./pkg/exf/exf_interp.F |
160 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
163 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
180 |
EXF_INTERP |
py_ind(l+1) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
201 |
EXF_INTERP |
py_ind(l+2) = y_in(s_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 |
99 |
EXF_INTERP |
y_in(0) = lat_0 - lat_inc(1) |