/[MITgcm]/MITgcm/pkg/mnc/mnc_file.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_file.F

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

revision 1.1 by edhill, Mon Jan 5 06:20:07 2004 UTC revision 1.2 by edhill, Mon Jan 5 21:38:27 2004 UTC
# Line 192  C     Is the file open? Line 192  C     Is the file open?
192          CALL print_error( msgbuf, mythid )          CALL print_error( msgbuf, mythid )
193          stop 'ABNORMAL END: S/R MNC_FILE_ADD_ATTR_INT'          stop 'ABNORMAL END: S/R MNC_FILE_ADD_ATTR_INT'
194        ENDIF        ENDIF
195        fid = mnc_fids(ind,2)        fid = mnc_f_info(ind,2)
196    
197  C     Enter define mode  C     Enter define mode
198        err = NF_REDEF(fid)        err = NF_REDEF(fid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22