/[MITgcm]/MITgcm/eesupp/inc/DFILE.h
ViewVC logotype

Diff of /MITgcm/eesupp/inc/DFILE.h

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

revision 1.1 by cnh, Thu May 21 18:30:45 1998 UTC revision 1.4 by adcroft, Wed Mar 15 16:00:50 2000 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3    #ifdef USE_DFILE
4    
5  C     /==========================================================\  C     /==========================================================\
6  C     | DFILE.h                                                  |  C     | DFILE.h                                                  |
7  C     |==========================================================|  C     |==========================================================|
# Line 65  C                    associated with a f Line 68  C                    associated with a f
68  C     nameOfMFile - Name of metadata file used in I/O  C     nameOfMFile - Name of metadata file used in I/O
69  C     nameOfDFile - Name of data file used in I/O  C     nameOfDFile - Name of data file used in I/O
70        COMMON /DFILE_C/ nameOfMfile, nameOfDfile        COMMON /DFILE_C/ nameOfMfile, nameOfDfile
71        CHARACTER*(MAX_LEN_FNAM) nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)        CHARACTER*(MAX_LEN_FNAM)
72        CHARACTER*(MAX_LEN_FNAM) nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)       &         nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)
73          CHARACTER*(MAX_LEN_FNAM)
74         &         nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)
75    
76  C     ioBuf_R4 - IO buffer for 32-bit floating point IO.  C     ioBuf_R4 - IO buffer for 32-bit floating point IO.
77  C                Sized to fit anything up to a global domain 3d field.  C                Sized to fit anything up to a global domain 3d field.
# Line 76  C                Sized to fit anything u Line 81  C                Sized to fit anything u
81  C                ( but without overlaps )  C                ( but without overlaps )
82        COMMON /DFILE_R/        COMMON /DFILE_R/
83       & ioBuf_R8, ioBuf_R4       & ioBuf_R8, ioBuf_R4
84        Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nz )        Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
85        Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nz )        Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
86    
87    #endif /* USE_DFILE */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22