| 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 |
135 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
142 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r4(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
145 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR4(nx_in*ny_in,buffer_r4) |
|
./pkg/exf/exf_interp_read.F |
151 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
154 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR8(nx_in*ny_in,buffer_r8) |
|
./pkg/exf/exf_interp_read.F |
166 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r4,nx_in*ny_in,MPI_REAL, |
|
./pkg/exf/exf_interp_read.F |
169 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r8,nx_in*ny_in,MPI_DOUBLE_PRECISION, |
|
./pkg/exf/exf_interp_read.F |
190 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
196 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
204 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
210 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
219 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
220 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
226 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
227 |
EXF_INTERP_READ |
DO i=1,nx_in |
|
./pkg/exf/exf_interp_read.F |
37 |
EXF_INTERP_READ |
INTEGER filePrec, irecord, nx_in, ny_in |
|
./pkg/exf/exf_interp_read.F |
38 |
EXF_INTERP_READ |
_RL arrayin( -1:nx_in+2 , -1:ny_in+2 ) |
|
./pkg/exf/exf_interp_read.F |
67 |
EXF_INTERP_READ |
Real*8, target :: buffer_r8(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
68 |
EXF_INTERP_READ |
Real*4, target :: buffer_r4(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
70 |
EXF_INTERP_READ |
Real*8 buffer_r8(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
71 |
EXF_INTERP_READ |
Real*4 buffer_r4(nx_in,ny_in) |
|
./pkg/exf/exf_interp_read.F |
98 |
EXF_INTERP_READ |
IF ( nx_in*ny_in .GT. exf_interp_bufferSize ) THEN |