/[MITgcm]/MITgcm/eesupp/src/dfile.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/dfile.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by cnh, Tue Jun 9 16:48:01 1998 UTC revision 1.4 by adcroft, Mon Jun 22 15:26:25 1998 UTC
# Line 325  C--   Check that file is active Line 325  C--   Check that file is active
325         iLo = IFNBLNK(fNam)         iLo = IFNBLNK(fNam)
326         iHi = ILNBLNK(fNam)         iHi = ILNBLNK(fNam)
327         ioUnit = dUnitNumber(fileHandle,myThid)         ioUnit = dUnitNumber(fileHandle,myThid)
328         READ(ioUnit,ERR=899) (ioBuf_R4(I),I=1,lBuffer)         READ(ioUnit) (ioBuf_R4(I),I=1,lBuffer)
329    
330    
331   1000 CONTINUE   1000 CONTINUE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22