--- MITgcm/eesupp/inc/DFILE.h 1998/05/21 18:30:45 1.1 +++ MITgcm/eesupp/inc/DFILE.h 2001/02/04 14:38:41 1.5 @@ -1,4 +1,8 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/Attic/DFILE.h,v 1.1 1998/05/21 18:30:45 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/Attic/DFILE.h,v 1.5 2001/02/04 14:38:41 cnh Exp $ +C $Name: $ + +#ifdef USE_DFILE + C /==========================================================\ C | DFILE.h | C |==========================================================| @@ -65,8 +69,10 @@ 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) + 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. @@ -76,6 +82,7 @@ C ( but without overlaps ) COMMON /DFILE_R/ & ioBuf_R8, ioBuf_R4 - Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nz ) - Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nz ) + Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nr ) + Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nr ) +#endif /* USE_DFILE */