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 |
257 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
282 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_read_field.F |
284 |
MDS_READ_FIELD |
CALL MDS_BYTESWAPR4( xSize*ySize, xy_buffer_r4 ) |
./pkg/mdsio/mdsio_read_field.F |
287 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_read_field.F |
289 |
MDS_READ_FIELD |
CALL MDS_BYTESWAPR8( xSize*ySize, xy_buffer_r8 ) |
./pkg/mdsio/mdsio_read_field.F |
303 |
MDS_READ_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_read_field.F |
324 |
MDS_READ_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_read_field.F |
403 |
MDS_READ_FIELD |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_read_field.F |
419 |
MDS_READ_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
105 |
MDS_WR_METAFILES |
ySize = Ny |
./pkg/mdsio/mdsio_wr_metafiles.F |
109 |
MDS_WR_METAFILES |
ySize = exch2_global_Ny |
./pkg/mdsio/mdsio_wr_metafiles.F |
113 |
MDS_WR_METAFILES |
IF (nNy.EQ.1) ySize = 1 |
./pkg/mdsio/mdsio_wr_metafiles.F |
126 |
MDS_WR_METAFILES |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
128 |
MDS_WR_METAFILES |
dimList(3,2) = ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
178 |
MDS_WR_METAFILES |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_wr_metafiles.F |
193 |
MDS_WR_METAFILES |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_wr_metafiles.F |
96 |
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 |
251 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
284 |
MDS_WRITE_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_write_field.F |
305 |
MDS_WRITE_FIELD |
I xSize, ySize, |
./pkg/mdsio/mdsio_write_field.F |
322 |
MDS_WRITE_FIELD |
CALL MDS_BYTESWAPR4( xSize*ySize, xy_buffer_r4 ) |
./pkg/mdsio/mdsio_write_field.F |
324 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_write_field.F |
327 |
MDS_WRITE_FIELD |
CALL MDS_BYTESWAPR8( xSize*ySize, xy_buffer_r8 ) |
./pkg/mdsio/mdsio_write_field.F |
329 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
./pkg/mdsio/mdsio_write_field.F |
436 |
MDS_WRITE_FIELD |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_write_field.F |
455 |
MDS_WRITE_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
./pkg/mdsio/mdsio_write_field.F |
512 |
MDS_WRITE_FIELD |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_write_field.F |
558 |
MDS_WRITE_FIELD |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_write_field.F |
560 |
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 |
311 |
MDS_WRITELOCAL |
ELSEIF ( exch2_tNy(tN) .GT. ySize ) THEN |
./pkg/mdsio/mdsio_writelocal.F |
331 |
MDS_WRITELOCAL |
& + ( k-1 + (irecord-1)*nNz )*global_nTx*ySize |
./pkg/mdsio/mdsio_writelocal.F |
388 |
MDS_WRITELOCAL |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_writelocal.F |
419 |
MDS_WRITELOCAL |
dimList(1,2) = ySize |
./pkg/mdsio/mdsio_writelocal.F |
421 |
MDS_WRITELOCAL |
dimList(3,2) = ySize |
./eesupp/src/global_sum_singlecpu.F |
104 |
GLOBAL_SUM_SINGLECPU_RL |
I xSize, ySize, |
./eesupp/src/global_sum_singlecpu.F |
116 |
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 |
76 |
GLOBAL_SUM_SINGLECPU_RL |
ySize = exch2_global_Ny |
./eesupp/src/global_sum_singlecpu.F |
81 |
GLOBAL_SUM_SINGLECPU_RL |
ySize = Ny |