| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
110 |
EXF_INTERP |
arrayin(0,j) = arrayin(nx_in,j) |
|
./pkg/exf/exf_interp.F |
111 |
EXF_INTERP |
arrayin(-1,j) = arrayin(nx_in-1,j) |
|
./pkg/exf/exf_interp.F |
112 |
EXF_INTERP |
arrayin(nx_in+1,j) = arrayin(1,j) |
|
./pkg/exf/exf_interp.F |
113 |
EXF_INTERP |
arrayin(nx_in+2,j) = arrayin(2,j) |
|
./pkg/exf/exf_interp.F |
116 |
EXF_INTERP |
arrayin(i,0) = arrayin(i,1) |
|
./pkg/exf/exf_interp.F |
117 |
EXF_INTERP |
arrayin(i,-1) = arrayin(i,1) |
|
./pkg/exf/exf_interp.F |
118 |
EXF_INTERP |
arrayin(i,ny_in+1) = arrayin(i,ny_in) |
|
./pkg/exf/exf_interp.F |
119 |
EXF_INTERP |
arrayin(i,ny_in+2) = arrayin(i,ny_in) |
|
./pkg/exf/exf_interp.F |
183 |
EXF_INTERP |
ew_val(k) = arrayin(w_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
185 |
EXF_INTERP |
& +arrayin(e_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
205 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
207 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
209 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
211 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
80 |
EXF_INTERP |
real*4 arrayin(-1:nx_in+2 , -1:ny_in+2) |
|
./pkg/exf/exf_interp.F |
87 |
EXF_INTERP |
O arrayin, |
|
./pkg/exf/exf_interp_read.F |
105 |
EXF_INTERP_READ |
& ((arrayin(i,j),i=1,nx_in),j=1,ny_in) |
|
./pkg/exf/exf_interp_read.F |
113 |
EXF_INTERP_READ |
call MDS_BYTESWAPR4((nx_in+4)*(ny_in+4), arrayin ) |
|
./pkg/exf/exf_interp_read.F |
15 |
EXF_INTERP_READ |
O arrayin, |
|
./pkg/exf/exf_interp_read.F |
46 |
EXF_INTERP_READ |
real*4 arrayin(-1:nx_in+2 , -1:ny_in+2) |
|
./pkg/exf/exf_interp_read.F |
93 |
EXF_INTERP_READ |
arrayin(i,j)=global(i,j) |