/[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.8 by cnh, Wed Oct 28 03:11:33 1998 UTC revision 1.9 by adcroft, Mon May 24 14:31:23 1999 UTC
# Line 54  C     |================================= Line 54  C     |=================================
54  C     | Controlling routine for doing actual I/O operations.     |  C     | Controlling routine for doing actual I/O operations.     |
55  C     | Close the file referred to by handle fielHandle.         |  C     | Close the file referred to by handle fielHandle.         |
56  C     \==========================================================/  C     \==========================================================/
57          IMPLICIT NONE
58    
59  C     == Global variables ==  C     == Global variables ==
60  #include "SIZE.h"  #include "SIZE.h"
# Line 117  C     | for meta data. It is possible to Line 118  C     | for meta data. It is possible to
118  C     | and/or have different unit numbers per thread. This is   |  C     | and/or have different unit numbers per thread. This is   |
119  C     | not done here.                                           |  C     | not done here.                                           |
120  C     \==========================================================/  C     \==========================================================/
121          IMPLICIT NONE
122    
123  C     == Global variables ==  C     == Global variables ==
124  #include "SIZE.h"  #include "SIZE.h"
# Line 154  C     | Controlling routine for doing ac Line 156  C     | Controlling routine for doing ac
156  C     | Routine returns a handle to the caller that can be used  |  C     | Routine returns a handle to the caller that can be used  |
157  C     | in subsequent read and write operations.                 |  C     | in subsequent read and write operations.                 |
158  C     \==========================================================/  C     \==========================================================/
159          IMPLICIT NONE
160    
161  C     == Global variables ==  C     == Global variables ==
162  #include "SIZE.h"  #include "SIZE.h"
# Line 216  C--   Remove previous meta information i Line 219  C--   Remove previous meta information i
219        metaDataStatus(fileHandle,myThid) = metaDataWritten        metaDataStatus(fileHandle,myThid) = metaDataWritten
220        IF ( fNamMeta .NE. ' ' ) THEN        IF ( fNamMeta .NE. ' ' ) THEN
221         IF ( aMode .EQ. accessModeRW ) THEN         IF ( aMode .EQ. accessModeRW ) THEN
222          OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),          OPEN(UNIT=mUnit,FILE=fNamMeta(i2Lo:i2Hi),
223       &       STATUS='UNKNOWN',ERR=899)       &       STATUS='UNKNOWN',ERR=899)
224          CLOSE(mUnit,ERR=899)          CLOSE(mUnit,ERR=899)
225          OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),          OPEN(UNIT=mUnit,FILE=fNamMeta(i2Lo:i2Hi),
226       &       STATUS='UNKNOWN',ERR=899)       &       STATUS='UNKNOWN',ERR=899)
227          metaDataStatus(fileHandle,myThid) = metaDataNotWritten          metaDataStatus(fileHandle,myThid) = metaDataNotWritten
228          nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi)          nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi)
# Line 228  C--   Remove previous meta information i Line 231  C--   Remove previous meta information i
231    
232  C--   Open data file  C--   Open data file
233        nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi)        nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi)
234        OPEN(UNIT=dUnit,NAME=fNam(i1Lo:i1Hi),STATUS='UNKNOWN', ERR=799,        OPEN(UNIT=dUnit,FILE=fNam(i1Lo:i1Hi),STATUS='UNKNOWN', ERR=799,
235       &     FORM='UNFORMATTED',ACCESS='SEQUENTIAL')       &     FORM='UNFORMATTED',ACCESS='SEQUENTIAL')
236    
237    
# Line 288  C     | model input. Could do elaborate Line 291  C     | model input. Could do elaborate
291  C     | using regular C I/O primitives. For now we use plain     |  C     | using regular C I/O primitives. For now we use plain     |
292  C     | F77.                                                     |  C     | F77.                                                     |
293  C     \==========================================================/  C     \==========================================================/
294          IMPLICIT NONE
295    
296  C     == Global variables ==  C     == Global variables ==
297  #include "SIZE.h"  #include "SIZE.h"
# Line 371  C     | model input. Could do elaborate Line 375  C     | model input. Could do elaborate
375  C     | using regular C I/O primitives. For now we use plain     |  C     | using regular C I/O primitives. For now we use plain     |
376  C     | F77.                                                     |  C     | F77.                                                     |
377  C     \==========================================================/  C     \==========================================================/
378          IMPLICIT NONE
379    
380  C     == Global variables ==  C     == Global variables ==
381  #include "SIZE.h"  #include "SIZE.h"
# Line 447  C     /================================= Line 452  C     /=================================
452  C     | SUBROUTINE DFILE_SET_RO                                  |  C     | SUBROUTINE DFILE_SET_RO                                  |
453  C     | o Sets new connections to be read-only.                  |  C     | o Sets new connections to be read-only.                  |
454  C     \==========================================================/  C     \==========================================================/
455          IMPLICIT NONE
456    
457  C     == Global variables ==  C     == Global variables ==
458  #include "SIZE.h"  #include "SIZE.h"
# Line 463  C     /================================= Line 469  C     /=================================
469  C     | SUBROUTINE DFILE_SET_RW                                  |  C     | SUBROUTINE DFILE_SET_RW                                  |
470  C     | o Sets new connections to be read-write                  |  C     | o Sets new connections to be read-write                  |
471  C     \==========================================================/  C     \==========================================================/
472          IMPLICIT NONE
473    
474  C     == Global variables ==  C     == Global variables ==
475  #include "SIZE.h"  #include "SIZE.h"
# Line 479  C     /================================= Line 486  C     /=================================
486  C     | SUBROUTINE DFILE_SET_STOP_ON_ERROR                       |  C     | SUBROUTINE DFILE_SET_STOP_ON_ERROR                       |
487  C     | o Sets new connections to STOP on error                  |  C     | o Sets new connections to STOP on error                  |
488  C     \==========================================================/  C     \==========================================================/
489          IMPLICIT NONE
490    
491  C     == Global variables ==  C     == Global variables ==
492  #include "SIZE.h"  #include "SIZE.h"
# Line 495  C     /================================= Line 503  C     /=================================
503  C     | SUBROUTINE DFILE_SET_CONT_ON_ERROR                       |  C     | SUBROUTINE DFILE_SET_CONT_ON_ERROR                       |
504  C     | o Sets new connections to continue on error              |  C     | o Sets new connections to continue on error              |
505  C     \==========================================================/  C     \==========================================================/
506          IMPLICIT NONE
507    
508  C     == Global variables ==  C     == Global variables ==
509  #include "SIZE.h"  #include "SIZE.h"
# Line 523  C     | extra info. which describes the Line 532  C     | extra info. which describes the
532  C     | is information indicating the subregion of the global    |  C     | is information indicating the subregion of the global    |
533  C     | dataset being written out.                               |  C     | dataset being written out.                               |
534  C     \==========================================================/  C     \==========================================================/
535          IMPLICIT NONE
536    
537  C     == Global variables ==  C     == Global variables ==
538  #include "SIZE.h"  #include "SIZE.h"
# Line 655  C     | extra info. which describes the Line 665  C     | extra info. which describes the
665  C     | is information indicating the subregion of the global    |  C     | is information indicating the subregion of the global    |
666  C     | dataset being written out.                               |  C     | dataset being written out.                               |
667  C     \==========================================================/  C     \==========================================================/
668          IMPLICIT NONE
669    
670  C     == Global variables ==  C     == Global variables ==
671  #include "SIZE.h"  #include "SIZE.h"
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22