--- MITgcm/eesupp/src/mdsio.F	2000/03/27 19:01:14	1.6
+++ MITgcm/eesupp/src/mdsio.F	2000/06/09 14:25:54	1.7
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/Attic/mdsio.F,v 1.6 2000/03/27 19:01:14 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/Attic/mdsio.F,v 1.7 2000/06/09 14:25:54 heimbach Exp $
 
 #include "CPP_OPTIONS.h"
 
@@ -34,6 +34,13 @@
 #define _NEW_STATUS 'unknown'
 #endif
 
+#ifdef ALLOW_AUTODIFF_TAMC
+#define _OLD_STATUS 'unknown'
+#else
+#define _OLD_STATUS 'old'
+#endif
+
+
 C=======================================================================
       SUBROUTINE MDSREADFIELD(
      I   fName,
@@ -308,6 +315,9 @@
 C we have read the meta information. To be fixed.
 C
 C Created: 03/16/99 adcroft@mit.edu
+C
+C Changed: 05/31/00 heimbach@mit.edu
+C          open(dUnit, ..., status='old', ... -> status='unknown'
 
       implicit none
 C Global variables / common blocks
@@ -371,7 +381,7 @@
         fileIsOpen=.TRUE.
        else
         length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
-        open( dUnit, file=dataFName, status='old',
+        open( dUnit, file=dataFName, status=_OLD_STATUS,
      &      access='direct', recl=length_of_rec )
         fileIsOpen=.TRUE.
        endif
@@ -393,7 +403,7 @@
           fileIsOpen=.TRUE.
          else
           length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
-          open( dUnit, file=dataFName, status='old',
+          open( dUnit, file=dataFName, status=_OLD_STATUS,
      &       access='direct', recl=length_of_rec )
           fileIsOpen=.TRUE.
          endif
@@ -1132,6 +1142,8 @@
 C           Fixed to work work with _RS and _RL declarations
 C Modified: 07/27/99 eckert@mit.edu
 C           Customized  for state estimation (--> active_file_control.F)
+C Changed: 05/31/00 heimbach@mit.edu
+C          open(dUnit, ..., status='old', ... -> status='unknown'
 
       implicit none
 C Global variables / common blocks
@@ -1197,7 +1209,7 @@
         fileIsOpen=.TRUE.
        else
         length_of_rec = MDS_RECLEN( filePrec, narr, mythid )
-        open( dUnit, file=dataFName, status='old',
+        open( dUnit, file=dataFName, status=_OLD_STATUS,
      &      access='direct', recl=length_of_rec )
         fileIsOpen=.TRUE.
        endif
@@ -1219,7 +1231,7 @@
           fileIsOpen=.TRUE.
          else
           length_of_rec = MDS_RECLEN( filePrec, narr, mythid )
-          open( dUnit, file=dataFName, status='old',
+          open( dUnit, file=dataFName, status=_OLD_STATUS,
      &       access='direct', recl=length_of_rec )
           fileIsOpen=.TRUE.
          endif