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

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

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

revision 1.6 by adcroft, Mon Mar 27 19:01:14 2000 UTC revision 1.7 by heimbach, Fri Jun 9 14:25:54 2000 UTC
# Line 34  C To be modified to work with MITgcmuv m Line 34  C To be modified to work with MITgcmuv m
34  #define _NEW_STATUS 'unknown'  #define _NEW_STATUS 'unknown'
35  #endif  #endif
36    
37    #ifdef ALLOW_AUTODIFF_TAMC
38    #define _OLD_STATUS 'unknown'
39    #else
40    #define _OLD_STATUS 'old'
41    #endif
42    
43    
44  C=======================================================================  C=======================================================================
45        SUBROUTINE MDSREADFIELD(        SUBROUTINE MDSREADFIELD(
46       I   fName,       I   fName,
# Line 308  C will record the number of records to b Line 315  C will record the number of records to b
315  C we have read the meta information. To be fixed.  C we have read the meta information. To be fixed.
316  C  C
317  C Created: 03/16/99 adcroft@mit.edu  C Created: 03/16/99 adcroft@mit.edu
318    C
319    C Changed: 05/31/00 heimbach@mit.edu
320    C          open(dUnit, ..., status='old', ... -> status='unknown'
321    
322        implicit none        implicit none
323  C Global variables / common blocks  C Global variables / common blocks
# Line 371  C If we are writing to a global file the Line 381  C If we are writing to a global file the
381          fileIsOpen=.TRUE.          fileIsOpen=.TRUE.
382         else         else
383          length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )          length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
384          open( dUnit, file=dataFName, status='old',          open( dUnit, file=dataFName, status=_OLD_STATUS,
385       &      access='direct', recl=length_of_rec )       &      access='direct', recl=length_of_rec )
386          fileIsOpen=.TRUE.          fileIsOpen=.TRUE.
387         endif         endif
# Line 393  C If we are writing to a tiled MDS file Line 403  C If we are writing to a tiled MDS file
403            fileIsOpen=.TRUE.            fileIsOpen=.TRUE.
404           else           else
405            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
406            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status=_OLD_STATUS,
407       &       access='direct', recl=length_of_rec )       &       access='direct', recl=length_of_rec )
408            fileIsOpen=.TRUE.            fileIsOpen=.TRUE.
409           endif           endif
# Line 1132  C Modified: 03/29/99 adcroft@mit.edu + e Line 1142  C Modified: 03/29/99 adcroft@mit.edu + e
1142  C           Fixed to work work with _RS and _RL declarations  C           Fixed to work work with _RS and _RL declarations
1143  C Modified: 07/27/99 eckert@mit.edu  C Modified: 07/27/99 eckert@mit.edu
1144  C           Customized  for state estimation (--> active_file_control.F)  C           Customized  for state estimation (--> active_file_control.F)
1145    C Changed: 05/31/00 heimbach@mit.edu
1146    C          open(dUnit, ..., status='old', ... -> status='unknown'
1147    
1148        implicit none        implicit none
1149  C Global variables / common blocks  C Global variables / common blocks
# Line 1197  C If we are writing to a global file the Line 1209  C If we are writing to a global file the
1209          fileIsOpen=.TRUE.          fileIsOpen=.TRUE.
1210         else         else
1211          length_of_rec = MDS_RECLEN( filePrec, narr, mythid )          length_of_rec = MDS_RECLEN( filePrec, narr, mythid )
1212          open( dUnit, file=dataFName, status='old',          open( dUnit, file=dataFName, status=_OLD_STATUS,
1213       &      access='direct', recl=length_of_rec )       &      access='direct', recl=length_of_rec )
1214          fileIsOpen=.TRUE.          fileIsOpen=.TRUE.
1215         endif         endif
# Line 1219  C If we are writing to a tiled MDS file Line 1231  C If we are writing to a tiled MDS file
1231            fileIsOpen=.TRUE.            fileIsOpen=.TRUE.
1232           else           else
1233            length_of_rec = MDS_RECLEN( filePrec, narr, mythid )            length_of_rec = MDS_RECLEN( filePrec, narr, mythid )
1234            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status=_OLD_STATUS,
1235       &       access='direct', recl=length_of_rec )       &       access='direct', recl=length_of_rec )
1236            fileIsOpen=.TRUE.            fileIsOpen=.TRUE.
1237           endif           endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22