File |
Line number |
Procedure |
Code |
./eesupp/src/dfile.F |
153 |
DFILE_OPEN |
O fileHandle) |
./eesupp/src/dfile.F |
179 |
DFILE_OPEN |
INTEGER fileHandle |
./eesupp/src/dfile.F |
203 |
DFILE_OPEN |
fileHandle = -1 |
./eesupp/src/dfile.F |
214 |
DFILE_OPEN |
fileHandle = I |
./eesupp/src/dfile.F |
222 |
DFILE_OPEN |
metaDataStatus(fileHandle,myThid) = metaDataWritten |
./eesupp/src/dfile.F |
230 |
DFILE_OPEN |
metaDataStatus(fileHandle,myThid) = metaDataNotWritten |
./eesupp/src/dfile.F |
231 |
DFILE_OPEN |
nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi) |
./eesupp/src/dfile.F |
236 |
DFILE_OPEN |
nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi) |
./eesupp/src/dfile.F |
286 |
DFILE_READ_R4 |
I fileHandle, myThid) |
./eesupp/src/dfile.F |
314 |
DFILE_READ_R4 |
INTEGER fileHandle |
./eesupp/src/dfile.F |
328 |
DFILE_READ_R4 |
eMode = errorMode(fileHandle,myThid) |
./eesupp/src/dfile.F |
331 |
DFILE_READ_R4 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
./eesupp/src/dfile.F |
333 |
DFILE_READ_R4 |
fNam = nameOfDFile(fileHandle,myThid) |
./eesupp/src/dfile.F |
336 |
DFILE_READ_R4 |
ioUnit = dUnitNumber(fileHandle,myThid) |
./eesupp/src/dfile.F |
370 |
DFILE_READ_R8 |
I fileHandle, myThid) |
./eesupp/src/dfile.F |
398 |
DFILE_READ_R8 |
INTEGER fileHandle |
./eesupp/src/dfile.F |
412 |
DFILE_READ_R8 |
eMode = errorMode(fileHandle,myThid) |
./eesupp/src/dfile.F |
415 |
DFILE_READ_R8 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
./eesupp/src/dfile.F |
417 |
DFILE_READ_R8 |
fNam = nameOfDFile(fileHandle,myThid) |
./eesupp/src/dfile.F |
420 |
DFILE_READ_R8 |
ioUnit = dUnitNumber(fileHandle,myThid) |
./eesupp/src/dfile.F |
50 |
DFILE_CLOSE |
I fileHandle, myThid) |
./eesupp/src/dfile.F |
524 |
DFILE_WRITE_R4 |
I fileHandle, fileId, myThid ) |
./eesupp/src/dfile.F |
556 |
DFILE_WRITE_R4 |
INTEGER fileHandle |
./eesupp/src/dfile.F |
571 |
DFILE_WRITE_R4 |
eMode = errorMode(fileHandle,myThid) |
./eesupp/src/dfile.F |
574 |
DFILE_WRITE_R4 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
./eesupp/src/dfile.F |
577 |
DFILE_WRITE_R4 |
ioUnit = dUnitNumber(fileHandle,myThid) |
./eesupp/src/dfile.F |
578 |
DFILE_WRITE_R4 |
fNam = nameOfDFile(fileHandle,myThid) |
./eesupp/src/dfile.F |
582 |
DFILE_WRITE_R4 |
IF ( metaDataStatus(fileHandle,myThid) .EQ. |
./eesupp/src/dfile.F |
584 |
DFILE_WRITE_R4 |
ioUnit = mUnitNumber(fileHandle,myThid) |
./eesupp/src/dfile.F |
622 |
DFILE_WRITE_R4 |
metaDataStatus(fileHandle,myThid) = metaDataWritten |
./eesupp/src/dfile.F |
657 |
DFILE_WRITE_R8 |
I fileHandle, fileId, myThid ) |
./eesupp/src/dfile.F |
68 |
DFILE_CLOSE |
INTEGER fileHandle |
./eesupp/src/dfile.F |
690 |
DFILE_WRITE_R8 |
INTEGER fileHandle |
./eesupp/src/dfile.F |
705 |
DFILE_WRITE_R8 |
eMode = errorMode(fileHandle,myThid) |
./eesupp/src/dfile.F |
708 |
DFILE_WRITE_R8 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
./eesupp/src/dfile.F |
711 |
DFILE_WRITE_R8 |
ioUnit = dUnitNumber(fileHandle,myThid) |
./eesupp/src/dfile.F |
712 |
DFILE_WRITE_R8 |
fNam = nameOfDFile(fileHandle,myThid) |
./eesupp/src/dfile.F |
716 |
DFILE_WRITE_R8 |
IF ( metaDataStatus(fileHandle,myThid) .EQ. |
./eesupp/src/dfile.F |
718 |
DFILE_WRITE_R8 |
ioUnit = mUnitNumber(fileHandle,myThid) |
./eesupp/src/dfile.F |
756 |
DFILE_WRITE_R8 |
metaDataStatus(fileHandle,myThid) = metaDataWritten |
./eesupp/src/dfile.F |
84 |
DFILE_CLOSE |
I = fileHandle |