| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
134 |
EXF_INTERP |
y_in(0) = lat_0 - lat_inc(1) |
|
./pkg/exf/exf_interp.F |
135 |
EXF_INTERP |
y_in(-1)= lat_0 - 2.*lat_inc(1) |
|
./pkg/exf/exf_interp.F |
136 |
EXF_INTERP |
y_in(1) = lat_0 |
|
./pkg/exf/exf_interp.F |
138 |
EXF_INTERP |
y_in(j) = y_in(j-1) + lat_inc(j-1) |
|
./pkg/exf/exf_interp.F |
141 |
EXF_INTERP |
if (y_in(j-1).eq.ninety) then |
|
./pkg/exf/exf_interp.F |
142 |
EXF_INTERP |
y_in(j) = 2 * ninety - y_in(j-2) |
|
./pkg/exf/exf_interp.F |
145 |
EXF_INTERP |
y_in(j) = min( y_in(j-1)+lat_inc(i), ninety ) |
|
./pkg/exf/exf_interp.F |
170 |
EXF_INTERP |
if (y_in(j).eq.ninety) then |
|
./pkg/exf/exf_interp.F |
198 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
199 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
206 |
EXF_INTERP |
print*,'y_in(0,ny_in+1)',y_in(0) ,y_in(ny_in+1) |
|
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
234 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./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 |
282 |
EXF_INTERP |
if (yG(i,j,bi,bj) .ge. y_in(s_ind(i,j)+1)) then |
|
./pkg/exf/exf_interp.F |
307 |
EXF_INTERP |
py_ind(l+1) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
342 |
EXF_INTERP |
py_ind(l+2) = y_in(s_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) |