1 |
C $Header$ |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
|
#ifdef USE_DFILE |
5 |
|
|
6 |
C /==========================================================\ |
C /==========================================================\ |
7 |
C | DFILE.h | |
C | DFILE.h | |
8 |
C |==========================================================| |
C |==========================================================| |
69 |
C nameOfMFile - Name of metadata file used in I/O |
C nameOfMFile - Name of metadata file used in I/O |
70 |
C nameOfDFile - Name of data file used in I/O |
C nameOfDFile - Name of data file used in I/O |
71 |
COMMON /DFILE_C/ nameOfMfile, nameOfDfile |
COMMON /DFILE_C/ nameOfMfile, nameOfDfile |
72 |
CHARACTER*(MAX_LEN_FNAM) nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS) |
CHARACTER*(MAX_LEN_FNAM) |
73 |
CHARACTER*(MAX_LEN_FNAM) nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS) |
& nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS) |
74 |
|
CHARACTER*(MAX_LEN_FNAM) |
75 |
|
& nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS) |
76 |
|
|
77 |
C ioBuf_R4 - IO buffer for 32-bit floating point IO. |
C ioBuf_R4 - IO buffer for 32-bit floating point IO. |
78 |
C Sized to fit anything up to a global domain 3d field. |
C Sized to fit anything up to a global domain 3d field. |
82 |
C ( but without overlaps ) |
C ( but without overlaps ) |
83 |
COMMON /DFILE_R/ |
COMMON /DFILE_R/ |
84 |
& ioBuf_R8, ioBuf_R4 |
& ioBuf_R8, ioBuf_R4 |
85 |
Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nz ) |
Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr ) |
86 |
Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nz ) |
Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr ) |
87 |
|
|
88 |
|
#endif /* USE_DFILE */ |