/[MITgcm]/MITgcm/pkg/mdsio/mdsio_readvector.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_readvector.F

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

revision 1.10 by heimbach, Wed Jun 7 21:13:46 2006 UTC revision 1.11 by heimbach, Tue Sep 30 22:39:25 2008 UTC
# Line 289  C Otherwise stop program. Line 289  C Otherwise stop program.
289  #ifdef _BYTESWAPIO  #ifdef _BYTESWAPIO
290             call MDS_BYTESWAPR4( vec_size, xy_buffer_r4 )             call MDS_BYTESWAPR4( vec_size, xy_buffer_r4 )
291  #endif  #endif
292  #if defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO)  cph#if defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO)
293  c  c
294  #else /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */  cph#else /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */
295             DO L=1,narr*nPx*nPy             DO L=1,narr*nPx*nPy
296              global(L) = xy_buffer_r4(L)              global(L) = xy_buffer_r4(L)
297             ENDDO             ENDDO
298  #endif /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */  cph#endif /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */
299            elseif (filePrec .eq. precFloat64) then            elseif (filePrec .eq. precFloat64) then
300             read(dUnit,rec=irec) xy_buffer_r8             read(dUnit,rec=irec) xy_buffer_r8
301  #ifdef _BYTESWAPIO  #ifdef _BYTESWAPIO
302             call MDS_BYTESWAPR8( vec_size, xy_buffer_r8 )             call MDS_BYTESWAPR8( vec_size, xy_buffer_r8 )
303  #endif  #endif
304  #if defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO)  cph#if defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO)
305  c  c
306  #else /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */  cph#else /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */
307             DO L=1,narr*nPx*nPy             DO L=1,narr*nPx*nPy
308              global(L) = xy_buffer_r8(L)              global(L) = xy_buffer_r8(L)
309             ENDDO             ENDDO
310  #endif /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */  cph#endif /* defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO) */
311            else            else
312             write(msgbuf,'(a)')             write(msgbuf,'(a)')
313       &            ' MDSREADFIELD: illegal value for filePrec'       &            ' MDSREADFIELD: illegal value for filePrec'
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22