| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
102 |
EXF_INTERP |
do j=2,ny_in |
|
./pkg/exf/exf_interp.F |
105 |
EXF_INTERP |
y_in(ny_in+1) = y_in(ny_in) + lat_inc(ny_in-1) |
|
./pkg/exf/exf_interp.F |
106 |
EXF_INTERP |
y_in(ny_in+2) = y_in(ny_in) + 2.*lat_inc(ny_in-1) |
|
./pkg/exf/exf_interp.F |
109 |
EXF_INTERP |
do j=1,ny_in |
|
./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 |
135 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
140 |
EXF_INTERP |
print*,'nx_in,ny_in' ,nx_in ,ny_in |
|
./pkg/exf/exf_interp.F |
142 |
EXF_INTERP |
print*,'y_in(0,ny_in+1)',y_in(0) ,y_in(ny_in+1) |
|
./pkg/exf/exf_interp.F |
159 |
EXF_INTERP |
js = ny_in*.5 |
|
./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 |
70 |
EXF_INTERP |
_RL lat_0, lat_inc(ny_in-1) |
|
./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_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 |
50 |
EXF_INTERP_READ |
_RL lat_0, lat_inc(ny_in-1) |
|
./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 |
91 |
EXF_INTERP_READ |
do j=1,ny_in |