/[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.5 by adcroft, Mon Jun 22 16:24:51 1998 UTC revision 1.6 by cnh, Mon Jun 29 14:04:32 1998 UTC
# Line 218  C--   Remove previous meta information i Line 218  C--   Remove previous meta information i
218         IF ( aMode .EQ. accessModeRW ) THEN         IF ( aMode .EQ. accessModeRW ) THEN
219          OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899)          OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899)
220          CLOSE(mUnit,ERR=899)          CLOSE(mUnit,ERR=899)
221            OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899)
222            metaDataStatus(fileHandle,myThid) = metaDataNotWritten
223            nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi)
224         ENDIF         ENDIF
        OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899)  
        metaDataStatus(fileHandle,myThid) = metaDataNotWritten  
        nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi)  
225        ENDIF        ENDIF
226    
227  C--   Open data file  C--   Open data file
228        nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi)        nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi)
229        OPEN(UNIT=dUnit,NAME=fNam(i1Lo:i1Hi),STATUS='UNKNOWN',ERR=799,        OPEN(UNIT=dUnit,NAME=fNam(i1Lo:i1Hi),STATUS='UNKNOWN', !ERR=799,
230       &     FORM='UNFORMATTED',ACCESS='SEQUENTIAL')       &     FORM='UNFORMATTED',ACCESS='SEQUENTIAL')
231    
232    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22