/[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.3 by cnh, Wed Oct 28 03:11:33 1998 UTC
# Line 65  C                    associated with a f Line 65  C                    associated with a f
65  C     nameOfMFile - Name of metadata file used in I/O  C     nameOfMFile - Name of metadata file used in I/O
66  C     nameOfDFile - Name of data file used in I/O  C     nameOfDFile - Name of data file used in I/O
67        COMMON /DFILE_C/ nameOfMfile, nameOfDfile        COMMON /DFILE_C/ nameOfMfile, nameOfDfile
68        CHARACTER*(MAX_LEN_FNAM) nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)        CHARACTER*(MAX_LEN_FNAM)
69        CHARACTER*(MAX_LEN_FNAM) nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)       &         nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS)
70          CHARACTER*(MAX_LEN_FNAM)
71         &         nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS)
72    
73  C     ioBuf_R4 - IO buffer for 32-bit floating point IO.  C     ioBuf_R4 - IO buffer for 32-bit floating point IO.
74  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 78  C                Sized to fit anything u
78  C                ( but without overlaps )  C                ( but without overlaps )
79        COMMON /DFILE_R/        COMMON /DFILE_R/
80       & ioBuf_R8, ioBuf_R4       & ioBuf_R8, ioBuf_R4
81        Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nz )        Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
82        Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nz )        Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
83    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22