| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
126 |
EXF_INTERP |
I irecord, nx_in, ny_in, mythid) |
|
./pkg/exf/exf_interp.F |
137 |
EXF_INTERP |
do j=2,ny_in |
|
./pkg/exf/exf_interp.F |
140 |
EXF_INTERP |
do j=ny_in+1,ny_in+2 |
|
./pkg/exf/exf_interp.F |
144 |
EXF_INTERP |
i = max(1,ny_in-1) |
|
./pkg/exf/exf_interp.F |
150 |
EXF_INTERP |
do j=1,ny_in |
|
./pkg/exf/exf_interp.F |
159 |
EXF_INTERP |
arrayin(i,ny_in+1) = arrayin(i,ny_in) |
|
./pkg/exf/exf_interp.F |
160 |
EXF_INTERP |
arrayin(i,ny_in+2) = arrayin(i,ny_in) |
|
./pkg/exf/exf_interp.F |
169 |
EXF_INTERP |
do j=ny_in,ny_in+2 |
|
./pkg/exf/exf_interp.F |
199 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
204 |
EXF_INTERP |
print*,'nx_in,ny_in' ,nx_in ,ny_in |
|
./pkg/exf/exf_interp.F |
206 |
EXF_INTERP |
print*,'y_in(0,ny_in+1)',y_in(0) ,y_in(ny_in+1) |
|
./pkg/exf/exf_interp.F |
230 |
EXF_INTERP |
js = ny_in*.5 |
|
./pkg/exf/exf_interp.F |
247 |
EXF_INTERP |
s_ind(i,j) = ny_in*.5 |
|
./pkg/exf/exf_interp.F |
54 |
EXF_INTERP |
I nx_in, ny_in, method, mythid) |
|
./pkg/exf/exf_interp.F |
78 |
EXF_INTERP |
integer filePrec, irecord, nx_in, ny_in |
|
./pkg/exf/exf_interp.F |
95 |
EXF_INTERP |
_RL arrayin(-1:nx_in+2 , -1:ny_in+2) |
|
./pkg/exf/exf_interp.F |
97 |
EXF_INTERP |
_RL x_in (-1:nx_in+2), y_in(-1:ny_in+2) |
|
./pkg/exf/exf_interp_read.F |
12 |
EXF_INTERP_READ |
I irecord, nx_in, ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
138 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
145 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r4(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
148 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR4(nx_in*ny_in,buffer_r4) |
|
./pkg/exf/exf_interp_read.F |
154 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
157 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR8(nx_in*ny_in,buffer_r8) |
|
./pkg/exf/exf_interp_read.F |
169 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r4,nx_in*ny_in,MPI_REAL, |
|
./pkg/exf/exf_interp_read.F |
172 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r8,nx_in*ny_in,MPI_DOUBLE_PRECISION, |
|
./pkg/exf/exf_interp_read.F |
192 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
198 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
206 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
212 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
221 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
228 |
EXF_INTERP_READ |
DO j=1,ny_in |
|
./pkg/exf/exf_interp_read.F |
38 |
EXF_INTERP_READ |
INTEGER filePrec, irecord, nx_in, ny_in |
|
./pkg/exf/exf_interp_read.F |
39 |
EXF_INTERP_READ |
_RL arrayin( -1:nx_in+2 , -1:ny_in+2 ) |
|
./pkg/exf/exf_interp_read.F |
68 |
EXF_INTERP_READ |
Real*8, target :: buffer_r8(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
69 |
EXF_INTERP_READ |
Real*4, target :: buffer_r4(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
71 |
EXF_INTERP_READ |
Real*8 buffer_r8(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
72 |
EXF_INTERP_READ |
Real*4 buffer_r4(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
99 |
EXF_INTERP_READ |
IF ( nx_in*ny_in .GT. exf_interp_bufferSize ) THEN |