/[MITgcm]/MITgcm/pkg/exf/exf_interp_read.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_interp_read.F

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

revision 1.9 by dimitri, Thu Dec 14 22:15:27 2006 UTC revision 1.10 by dimitri, Mon Apr 9 23:57:50 2007 UTC
# Line 89  C master thread of process 0, only, open Line 89  C master thread of process 0, only, open
89           open(interp_unit,file=infile,status='old',access='direct',           open(interp_unit,file=infile,status='old',access='direct',
90       &        recl=length_of_rec)       &        recl=length_of_rec)
91           IF ( filePrec .EQ. 32 ) THEN           IF ( filePrec .EQ. 32 ) THEN
92              read(interp_unit,rec=irecord)              read(interp_unit,rec=irecord) global
      &           ((global(i,j),i=1,nx_in),j=1,ny_in)  
93  #ifdef _BYTESWAPIO  #ifdef _BYTESWAPIO
94              call MDS_BYTESWAPR4(nx_in*ny_in,global)              call MDS_BYTESWAPR4(nx_in*ny_in,global)
95  #endif /* _BYTESWAPIO */  #endif /* _BYTESWAPIO */
96           ELSE           ELSE
97              read(interp_unit,rec=irecord)              read(interp_unit,rec=irecord) global8
      &           ((global8(i,j),i=1,nx_in),j=1,ny_in)  
98  #ifdef _BYTESWAPIO  #ifdef _BYTESWAPIO
99              call MDS_BYTESWAPR8(nx_in*ny_in,global8)              call MDS_BYTESWAPR8(nx_in*ny_in,global8)
100  #endif /* _BYTESWAPIO */  #endif /* _BYTESWAPIO */
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22