File |
Line number |
Procedure |
Code |
./pkg/mdsio/mdsio_read_field.F |
109 |
MDS_READ_FIELD |
INTEGER xSize, ySize |
./pkg/mdsio/mdsio_read_field.F |
124 |
MDS_READ_FIELD |
ySize = Ny |
./pkg/mdsio/mdsio_read_field.F |
129 |
MDS_READ_FIELD |
ySize = exch2_global_Ny |
./pkg/mdsio/mdsio_read_field.F |
272 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
297 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_read_field.F |
299 |
MDS_READ_FIELD |
CALL MDS_BYTESWAPR4( xSize*ySize, xy_buffer_r4 ) |
./pkg/mdsio/mdsio_read_field.F |
302 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_read_field.F |
304 |
MDS_READ_FIELD |
CALL MDS_BYTESWAPR8( xSize*ySize, xy_buffer_r8 ) |
./pkg/mdsio/mdsio_read_field.F |
318 |
MDS_READ_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_read_field.F |
339 |
MDS_READ_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_read_field.F |
418 |
MDS_READ_FIELD |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_read_field.F |
434 |
MDS_READ_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
108 |
MDS_WR_METAFILES |
ySize = Ny |
./pkg/mdsio/mdsio_wr_metafiles.F |
112 |
MDS_WR_METAFILES |
ySize = exch2_global_Ny |
./pkg/mdsio/mdsio_wr_metafiles.F |
116 |
MDS_WR_METAFILES |
IF (nNy.EQ.1) ySize = 1 |
./pkg/mdsio/mdsio_wr_metafiles.F |
129 |
MDS_WR_METAFILES |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
131 |
MDS_WR_METAFILES |
dimList(3,2) = ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
181 |
MDS_WR_METAFILES |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_wr_metafiles.F |
196 |
MDS_WR_METAFILES |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
99 |
MDS_WR_METAFILES |
INTEGER xSize, ySize |
./pkg/mdsio/mdsio_write_field.F |
125 |
MDS_WRITE_FIELD |
INTEGER xSize, ySize |
./pkg/mdsio/mdsio_write_field.F |
147 |
MDS_WRITE_FIELD |
ySize = Ny |
./pkg/mdsio/mdsio_write_field.F |
152 |
MDS_WRITE_FIELD |
ySize = exch2_global_Ny |
./pkg/mdsio/mdsio_write_field.F |
277 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
310 |
MDS_WRITE_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_write_field.F |
331 |
MDS_WRITE_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_write_field.F |
348 |
MDS_WRITE_FIELD |
CALL MDS_BYTESWAPR4( xSize*ySize, xy_buffer_r4 ) |
./pkg/mdsio/mdsio_write_field.F |
350 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_write_field.F |
353 |
MDS_WRITE_FIELD |
CALL MDS_BYTESWAPR8( xSize*ySize, xy_buffer_r8 ) |
./pkg/mdsio/mdsio_write_field.F |
355 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_write_field.F |
462 |
MDS_WRITE_FIELD |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_write_field.F |
481 |
MDS_WRITE_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
./pkg/mdsio/mdsio_write_field.F |
538 |
MDS_WRITE_FIELD |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_write_field.F |
584 |
MDS_WRITE_FIELD |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_write_field.F |
586 |
MDS_WRITE_FIELD |
dimList(3,2) = ySize |
./pkg/mdsio/mdsio_writelocal.F |
113 |
MDS_WRITELOCAL |
INTEGER xSize, ySize |
./pkg/mdsio/mdsio_writelocal.F |
136 |
MDS_WRITELOCAL |
ySize = Ny |
./pkg/mdsio/mdsio_writelocal.F |
140 |
MDS_WRITELOCAL |
ySize = exch2_global_Ny |
./pkg/mdsio/mdsio_writelocal.F |
315 |
MDS_WRITELOCAL |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_writelocal.F |
335 |
MDS_WRITELOCAL |
& + ( k-1 + (irecord-1)*nNz )*global_nTx*ySize |
./pkg/mdsio/mdsio_writelocal.F |
392 |
MDS_WRITELOCAL |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_writelocal.F |
423 |
MDS_WRITELOCAL |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_writelocal.F |
425 |
MDS_WRITELOCAL |
dimList(3,2) = ySize |
./eesupp/src/global_sum_singlecpu.F |
107 |
GLOBAL_SUM_SINGLECPU_RL |
I xSize, ySize, |
./eesupp/src/global_sum_singlecpu.F |
114 |
GLOBAL_SUM_SINGLECPU_RL |
DO ij=1,xSize*ySize |
./eesupp/src/global_sum_singlecpu.F |
61 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER xSize, ySize |
./eesupp/src/global_sum_singlecpu.F |
75 |
GLOBAL_SUM_SINGLECPU_RL |
ySize = exch2_global_Ny |
./eesupp/src/global_sum_singlecpu.F |
80 |
GLOBAL_SUM_SINGLECPU_RL |
ySize = Ny |