| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
116 |
EXF_INTERP |
y_in(0) = lat_0 - lat_inc(1) |
|
./pkg/exf/exf_interp.F |
117 |
EXF_INTERP |
y_in(-1)= lat_0 - 2.*lat_inc(1) |
|
./pkg/exf/exf_interp.F |
118 |
EXF_INTERP |
y_in(1) = lat_0 |
|
./pkg/exf/exf_interp.F |
120 |
EXF_INTERP |
y_in(j) = y_in(j-1) + lat_inc(j-1) |
|
./pkg/exf/exf_interp.F |
123 |
EXF_INTERP |
if (y_in(j-1).eq.ninety) then |
|
./pkg/exf/exf_interp.F |
124 |
EXF_INTERP |
y_in(j) = 2 * ninety - y_in(j-2) |
|
./pkg/exf/exf_interp.F |
126 |
EXF_INTERP |
y_in(j) = min( y_in(j-1)+lat_inc(ny_in-1), ninety ) |
|
./pkg/exf/exf_interp.F |
151 |
EXF_INTERP |
if (y_in(j).eq.ninety) then |
|
./pkg/exf/exf_interp.F |
181 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
182 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
189 |
EXF_INTERP |
print*,'y_in(0,ny_in+1)',y_in(0) ,y_in(ny_in+1) |
|
./pkg/exf/exf_interp.F |
207 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
227 |
EXF_INTERP |
py_ind(l+1) = y_in(s_ind(i,j)+l) |
|
./pkg/exf/exf_interp.F |
248 |
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) |