eesupp/inc/DFILE.h

C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/DFILE.h,v 1.1 1998/05/21 18:30:45 cnh Exp $
C     /==========================================================\
C     | DFILE.h                                                  |
C     |==========================================================|
C     | Header file for binary dump file I/O structures.         |
C     \==========================================================/
C     Compile time constants
C     ioUnitsPerThread - Number of ioUnits allowed
C     busyUnit         - Status flag. Indicates whether unit
C     freeUnit           is open
C     accessModeRO     - Read-only v. read-write flag
C     accessModeRW
C     errorModeSTOP    - Indicates action on I/O error
C     errorModeCONT    
      INTEGER ioUnitsPerThread
      PARAMETER ( ioUnitsPerThread = 1 )
      INTEGER busyUnit
      PARAMETER ( busyUnit = 0 )
      INTEGER freeUnit
      PARAMETER ( freeUnit = 1 )
      INTEGER accessModeRO
      PARAMETER ( accessModeRO = 0 )
      INTEGER accessModeRW
      PARAMETER ( accessModeRW = 1 )
      INTEGER errorModeSTOP
      PARAMETER ( errorModeSTOP = 0 )
      INTEGER errorModeCONT
      PARAMETER ( errorModeCONT = 1 )
      INTEGER metaDataNotWritten
      PARAMETER ( metaDataNotWritten = 0 )
      INTEGER metaDataWritten
      PARAMETER ( metaDataWritten = 1 )

C     mUnit - Fortran unit number for metafile
C     dUnit - Fortran unit number for data
C     unitStatus - Busy/Free status flag
C     nameOfMFile - Name of metadata file used in I/O
C     nameOfDFile - Name of data file used in I/O
C     accessMode  - Access mode that was set when this unit was opened.
C                   Access mode is either read-only or
C                   read-write.
C     errorMode   - Error mode that was set when this unit was opened.
C                   Error mode is either STOP on error which means the
C                   program halts or continue or error. For continue
C                   error the program usually tries to write an error
C                   message to stderr. Howeever, the most common cause for
C                   an IO error is a full disk in which case that
C                   error message may be lost!
C     theAcessMode - The current acces mode. This will be the mode
C                    associated with a file that is opened.
C     theErrorMode - The current error mode. This will be the mode
C                    associated with a file that is opened.
      COMMON /DFILE_I/ mUnitNumber, dUnitNumber, unitStatus,
     &                 accessMode, errorMode,
     &                 theAccessMode, theErrorMode, metaDataStatus
      INTEGER mUnitNumber(ioUnitsPerThread,MAX_NO_THREADS)
      INTEGER dUnitNumber(ioUnitsPerThread,MAX_NO_THREADS)
      INTEGER unitStatus (ioUnitsPerThread,MAX_NO_THREADS)
      INTEGER accessMode (ioUnitsPerThread,MAX_NO_THREADS)
      INTEGER errorMode (ioUnitsPerThread,MAX_NO_THREADS)
      INTEGER metaDataStatus(ioUnitsPerThread,MAX_NO_THREADS)
      INTEGER theAccessMode
      INTEGER theErrorMode

C     nameOfMFile - Name of metadata file used in I/O
C     nameOfDFile - Name of data file used in I/O
      COMMON /DFILE_C/ nameOfMfile, nameOfDfile
      CHARACTER*(MAX_LEN_FNAM) nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)
      CHARACTER*(MAX_LEN_FNAM) nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)

C     ioBuf_R4 - IO buffer for 32-bit floating point IO.
C                Sized to fit anything up to a global domain 3d field.
C                ( but without overlaps )
C     ioBuf_R8 - IO buffer for 64-bit floating point IO.
C                Sized to fit anything up to a global domain 3d field.
C                ( but without overlaps )
      COMMON /DFILE_R/
     & ioBuf_R8, ioBuf_R4
      Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
      Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr )

1	cnh	1.2	C $Header: /u/gcmpack/models/MITgcmUV/eesupp/inc/DFILE.h,v 1.1 1998/05/21 18:30:45 cnh Exp $
2	cnh	1.1	C /==========================================================\
3			C \| DFILE.h \|
4			C \|==========================================================\|
5			C \| Header file for binary dump file I/O structures. \|
6			C \==========================================================/
7			C Compile time constants
8			C ioUnitsPerThread - Number of ioUnits allowed
9			C busyUnit - Status flag. Indicates whether unit
10			C freeUnit is open
11			C accessModeRO - Read-only v. read-write flag
12			C accessModeRW
13			C errorModeSTOP - Indicates action on I/O error
14			C errorModeCONT
15			INTEGER ioUnitsPerThread
16			PARAMETER ( ioUnitsPerThread = 1 )
17			INTEGER busyUnit
18			PARAMETER ( busyUnit = 0 )
19			INTEGER freeUnit
20			PARAMETER ( freeUnit = 1 )
21			INTEGER accessModeRO
22			PARAMETER ( accessModeRO = 0 )
23			INTEGER accessModeRW
24			PARAMETER ( accessModeRW = 1 )
25			INTEGER errorModeSTOP
26			PARAMETER ( errorModeSTOP = 0 )
27			INTEGER errorModeCONT
28			PARAMETER ( errorModeCONT = 1 )
29			INTEGER metaDataNotWritten
30			PARAMETER ( metaDataNotWritten = 0 )
31			INTEGER metaDataWritten
32			PARAMETER ( metaDataWritten = 1 )
33
34			C mUnit - Fortran unit number for metafile
35			C dUnit - Fortran unit number for data
36			C unitStatus - Busy/Free status flag
37			C nameOfMFile - Name of metadata file used in I/O
38			C nameOfDFile - Name of data file used in I/O
39			C accessMode - Access mode that was set when this unit was opened.
40			C Access mode is either read-only or
41			C read-write.
42			C errorMode - Error mode that was set when this unit was opened.
43			C Error mode is either STOP on error which means the
44			C program halts or continue or error. For continue
45			C error the program usually tries to write an error
46			C message to stderr. Howeever, the most common cause for
47			C an IO error is a full disk in which case that
48			C error message may be lost!
49			C theAcessMode - The current acces mode. This will be the mode
50			C associated with a file that is opened.
51			C theErrorMode - The current error mode. This will be the mode
52			C associated with a file that is opened.
53			COMMON /DFILE_I/ mUnitNumber, dUnitNumber, unitStatus,
54			& accessMode, errorMode,
55			& theAccessMode, theErrorMode, metaDataStatus
56			INTEGER mUnitNumber(ioUnitsPerThread,MAX_NO_THREADS)
57			INTEGER dUnitNumber(ioUnitsPerThread,MAX_NO_THREADS)
58			INTEGER unitStatus (ioUnitsPerThread,MAX_NO_THREADS)
59			INTEGER accessMode (ioUnitsPerThread,MAX_NO_THREADS)
60			INTEGER errorMode (ioUnitsPerThread,MAX_NO_THREADS)
61			INTEGER metaDataStatus(ioUnitsPerThread,MAX_NO_THREADS)
62			INTEGER theAccessMode
63			INTEGER theErrorMode
64
65			C nameOfMFile - Name of metadata file used in I/O
66			C nameOfDFile - Name of data file used in I/O
67			COMMON /DFILE_C/ nameOfMfile, nameOfDfile
68			CHARACTER*(MAX_LEN_FNAM) nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)
69			CHARACTER*(MAX_LEN_FNAM) nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)
70
71			C ioBuf_R4 - IO buffer for 32-bit floating point IO.
72			C Sized to fit anything up to a global domain 3d field.
73			C ( but without overlaps )
74			C ioBuf_R8 - IO buffer for 64-bit floating point IO.
75			C Sized to fit anything up to a global domain 3d field.
76			C ( but without overlaps )
77			COMMON /DFILE_R/
78			& ioBuf_R8, ioBuf_R4
79	cnh	1.2	Real8 ioBuf_R8( sNxnSxnPx sNynSynPy * Nr )
80			Real4 ioBuf_R4( sNxnSxnPx sNynSynPy * Nr )
81	cnh	1.1