| 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 |
139 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./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 |
184 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
186 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
206 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
208 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
212 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
39 |
EXF_INTERP |
I irecord, xG, yG, |
|
./pkg/exf/exf_interp.F |
67 |
EXF_INTERP |
_RS xG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
88 |
EXF_INTERP |
I irecord, xG, yG, |
|
./pkg/exf/exf_interp_read.F |
16 |
EXF_INTERP_READ |
I irecord, xG, yG, |
|
./pkg/exf/exf_interp_read.F |
47 |
EXF_INTERP_READ |
_RS xG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_set_uv.F |
170 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
171 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
172 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
173 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
261 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
262 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
263 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
264 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |