| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp_read.F |
12 |
EXF_INTERP_READ |
I irecord, nx_in, ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
136 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
143 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r4(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
146 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR4(nx_in*ny_in,buffer_r4) |
|
./pkg/exf/exf_interp_read.F |
152 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
155 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR8(nx_in*ny_in,buffer_r8) |
|
./pkg/exf/exf_interp_read.F |
167 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r4,nx_in*ny_in,MPI_REAL, |
|
./pkg/exf/exf_interp_read.F |
170 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r8,nx_in*ny_in,MPI_DOUBLE_PRECISION, |
|
./pkg/exf/exf_interp_read.F |
191 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
197 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
205 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
211 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
220 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
221 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
227 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
228 |
EXF_INTERP_READ |
DO i=1,nx_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 |