| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
207 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
209 |
MDS_READ_META |
iL = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
212 |
MDS_READ_META |
IF ( iL.GE.22 .AND. lineBuf(1:14).EQ.' simulation = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
216 |
MDS_READ_META |
simulName = lineBuf(18:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
222 |
MDS_READ_META |
& iL.GE.15 .AND. lineBuf(1:9).EQ.' nDims = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
223 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I3)') nDimFil |
|
./pkg/mdsio/mdsio_read_meta.F |
235 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' dimList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
242 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
243 |
MDS_READ_META |
ii = IFNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
244 |
MDS_READ_META |
jj = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
248 |
MDS_READ_META |
READ(lineBuf, FMT='(9X,3(1X,I5))', ERR=1002, END=1002 ) |
|
./pkg/mdsio/mdsio_read_meta.F |
253 |
MDS_READ_META |
READ(lineBuf, FMT='(3(1X,I5))', ERR=1002, END=1002 ) |
|
./pkg/mdsio/mdsio_read_meta.F |
258 |
MDS_READ_META |
READ(lineBuf, FMT='(3(1X,I10))', ERR=1002, END=1002 ) |
|
./pkg/mdsio/mdsio_read_meta.F |
262 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
273 |
MDS_READ_META |
IF ( iL.GE.20 .AND. lineBuf(1:12).EQ.' dataprec = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
274 |
MDS_READ_META |
IF ( lineBuf(16:22).EQ. 'float32' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
276 |
MDS_READ_META |
ELSEIF ( lineBuf(16:22).EQ. 'float64' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
281 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
288 |
MDS_READ_META |
& iL.GE.18 .AND. lineBuf(1:10).EQ.' format = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
289 |
MDS_READ_META |
IF ( lineBuf(14:20).EQ. 'float32' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
291 |
MDS_READ_META |
ELSEIF ( lineBuf(14:20).EQ. 'float64' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
296 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
304 |
MDS_READ_META |
& iL.GE.20 .AND. lineBuf(1:12).EQ.' nrecords = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
305 |
MDS_READ_META |
READ(lineBuf(15:iL),'(I5)') nRecords |
|
./pkg/mdsio/mdsio_read_meta.F |
311 |
MDS_READ_META |
& lineBuf(1:18).EQ.' timeStepNumber = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
312 |
MDS_READ_META |
READ(lineBuf(21:iL),'(I10)') fileIter |
|
./pkg/mdsio/mdsio_read_meta.F |
318 |
MDS_READ_META |
& iL.GE.42 .AND. lineBuf(1:16).EQ.' /* modelTime = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
330 |
MDS_READ_META |
READ(lineBuf(18:iL-5),'(1P20E20.12)',ERR=1003) |
|
./pkg/mdsio/mdsio_read_meta.F |
334 |
MDS_READ_META |
ELSEIF ( iL.GE.8 .AND. lineBuf(1:4).EQ.' /* ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
335 |
MDS_READ_META |
IF ( lineBuf(iL-2:iL).EQ.' */' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
340 |
MDS_READ_META |
titleLine = lineBuf(5:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
347 |
MDS_READ_META |
& iL.GE.16 .AND. lineBuf(1:9).EQ.' nFlds = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
348 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I4)') nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
360 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' fldList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
365 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
382 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
389 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
94 |
MDS_READ_META |
CHARACTER*(MAX_LEN_MBUF) lineBuf |