/[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.2 by cnh, Sat Aug 22 17:51:05 1998 UTC revision 1.5 by cnh, Sun Feb 4 14:38:41 2001 UTC
# Line 1  Line 1 
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     |==========================================================|
# Line 65  C                    associated with a f Line 69  C                    associated with a f
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.
# Line 79  C                ( but without overlaps Line 85  C                ( but without overlaps
85        Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr )        Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
86        Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr )        Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr )
87    
88    #endif /* USE_DFILE */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22