| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
209 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
211 |
MDS_READ_META |
iL = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
214 |
MDS_READ_META |
IF ( iL.GE.22 .AND. lineBuf(1:14).EQ.' simulation = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
218 |
MDS_READ_META |
simulName = lineBuf(18:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
224 |
MDS_READ_META |
& iL.GE.15 .AND. lineBuf(1:9).EQ.' nDims = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
225 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I3)') nDimFil |
|
./pkg/mdsio/mdsio_read_meta.F |
237 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' dimList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
244 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
245 |
MDS_READ_META |
ii = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
249 |
MDS_READ_META |
READ(lineBuf, FMT='(3(1X,I5))', ERR=1002, END=1002 ) |
|
./pkg/mdsio/mdsio_read_meta.F |
254 |
MDS_READ_META |
READ(lineBuf, FMT='(9X,3(1X,I5))', ERR=1002, END=1002 ) |
|
./pkg/mdsio/mdsio_read_meta.F |
259 |
MDS_READ_META |
READ(lineBuf, FMT='(3(1X,I10))', ERR=1002, END=1002 ) |
|
./pkg/mdsio/mdsio_read_meta.F |
263 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
274 |
MDS_READ_META |
IF ( iL.GE.20 .AND. lineBuf(1:12).EQ.' dataprec = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
275 |
MDS_READ_META |
IF ( lineBuf(16:22).EQ. 'float32' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
277 |
MDS_READ_META |
ELSEIF ( lineBuf(16:22).EQ. 'float64' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
282 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
289 |
MDS_READ_META |
& iL.GE.18 .AND. lineBuf(1:10).EQ.' format = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
290 |
MDS_READ_META |
IF ( lineBuf(14:20).EQ. 'float32' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
292 |
MDS_READ_META |
ELSEIF ( lineBuf(14:20).EQ. 'float64' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
297 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
305 |
MDS_READ_META |
& iL.GE.20 .AND. lineBuf(1:12).EQ.' nrecords = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
306 |
MDS_READ_META |
READ(lineBuf(15:iL),'(I5)') nRecords |
|
./pkg/mdsio/mdsio_read_meta.F |
312 |
MDS_READ_META |
& lineBuf(1:18).EQ.' timeStepNumber = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
313 |
MDS_READ_META |
READ(lineBuf(21:iL),'(I10)') fileIter |
|
./pkg/mdsio/mdsio_read_meta.F |
319 |
MDS_READ_META |
& iL.GE.38 .AND. lineBuf(1:16).EQ.' timeInterval = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
330 |
MDS_READ_META |
READ(lineBuf(18:iL-3),'(1P20E20.12)',ERR=1003) |
|
./pkg/mdsio/mdsio_read_meta.F |
336 |
MDS_READ_META |
IF ( iL.GE.8 .AND. lineBuf(1:4).EQ.' /* ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
337 |
MDS_READ_META |
IF ( lineBuf(iL-2:iL).EQ.' */' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
342 |
MDS_READ_META |
titleLine = lineBuf(5:ii) |
|
./pkg/mdsio/mdsio_read_meta.F |
349 |
MDS_READ_META |
& lineBuf(1:16).EQ.' missingValue = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
350 |
MDS_READ_META |
READ(lineBuf(19:iL),'(1PE21.14)') misVal |
|
./pkg/mdsio/mdsio_read_meta.F |
356 |
MDS_READ_META |
& iL.GE.16 .AND. lineBuf(1:9).EQ.' nFlds = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
357 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I4)') nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
369 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' fldList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
374 |
MDS_READ_META |
READ( mUnit, FMT='(A)', END=1001 ) lineBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
391 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
398 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
95 |
MDS_READ_META |
CHARACTER*(MAX_LEN_MBUF) lineBuf |