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 |
115 |
EXF_INTERP |
do i=-1,nx_in+2 |
./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 |
140 |
EXF_INTERP |
print*,'nx_in,ny_in' ,nx_in ,ny_in |
./pkg/exf/exf_interp.F |
141 |
EXF_INTERP |
print*,'x_in(0,nx_in+1)',x_in(0) ,x_in(nx_in+1) |
./pkg/exf/exf_interp.F |
42 |
EXF_INTERP |
I nx_in, ny_in, method, mythid) |
./pkg/exf/exf_interp.F |
65 |
EXF_INTERP |
integer filePrec, irecord, nx_in, ny_in |
./pkg/exf/exf_interp.F |
80 |
EXF_INTERP |
real*4 arrayin(-1:nx_in+2 , -1:ny_in+2) |
./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 |
91 |
EXF_INTERP |
I nx_in, ny_in, method, mythid) |
./pkg/exf/exf_interp.F |
96 |
EXF_INTERP |
do i=-1,nx_in+2 |
./pkg/exf/exf_interp_read.F |
101 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, mythid ) |
./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 |
19 |
EXF_INTERP_READ |
I nx_in, ny_in, method, mythid) |
./pkg/exf/exf_interp_read.F |
45 |
EXF_INTERP_READ |
integer filePrec, irecord, nx_in, ny_in |
./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 |
65 |
EXF_INTERP_READ |
real*4 global(nx_in,ny_in) |
./pkg/exf/exf_interp_read.F |
80 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, mythid ) |
./pkg/exf/exf_interp_read.F |
84 |
EXF_INTERP_READ |
& ((global(i,j),i=1,nx_in),j=1,ny_in) |
./pkg/exf/exf_interp_read.F |
89 |
EXF_INTERP_READ |
call MPI_BCAST(global,nx_in*ny_in,MPI_REAL, |
./pkg/exf/exf_interp_read.F |
92 |
EXF_INTERP_READ |
do i=1,nx_in |