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

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

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

revision 1.3 by jmc, Tue Nov 13 19:37:44 2007 UTC revision 1.4 by jahn, Tue Dec 30 00:13:35 2008 UTC
# Line 92  C !LOCAL VARIABLES: Line 92  C !LOCAL VARIABLES:
92        LOGICAL iAmDoingIO        LOGICAL iAmDoingIO
93        INTEGER iG,jG,bi,bj,i,j,k,nNz        INTEGER iG,jG,bi,bj,i,j,k,nNz
94        INTEGER irec,dUnit,IL,pIL        INTEGER irec,dUnit,IL,pIL
95        INTEGER x_size,y_size,length_of_rec        INTEGER length_of_rec
96  #if defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO)  #if defined(ALLOW_EXCH2) && !defined(MISSING_TILE_IO)
97        INTEGER iG_IO,jG_IO,npe, loc_xGlobalLo, loc_yGlobalLo        INTEGER iG_IO,jG_IO,npe, loc_xGlobalLo, loc_yGlobalLo
       PARAMETER ( x_size = exch2_domain_nxt * sNx )  
       PARAMETER ( y_size = exch2_domain_nyt * sNy )  
 #else  
       PARAMETER ( x_size = Nx )  
       PARAMETER ( y_size = Ny )  
98  #endif  #endif
       Real*4 xy_buffer_r4(x_size,y_size)  
99        Real*4 r4seg(sNx)        Real*4 r4seg(sNx)
100        Real*8 r8seg(sNx)        Real*8 r8seg(sNx)
       Real*8 xy_buffer_r8(x_size,y_size)  
       Real*8 globalBuf(Nx,Ny)  
101  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
102        INTEGER iGjLoc, jGjLoc        INTEGER iGjLoc, jGjLoc
103  c     INTEGER tGy,tGx,tNy,tNx,tN  c     INTEGER tGy,tGx,tNy,tNx,tN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22