/[MITgcm]/MITgcm/eesupp/src/mdsio_gl.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/mdsio_gl.F

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

revision 1.1 by heimbach, Mon Jan 29 20:00:15 2001 UTC revision 1.2 by adcroft, Fri Feb 2 21:04:47 2001 UTC
# Line 98  C Local variables Line 98  C Local variables
98        character*(80) dataFName        character*(80) dataFName
99        integer ip,jp,iG,jG,irec,bi,bj,ii,j,k,dUnit,IL        integer ip,jp,iG,jG,irec,bi,bj,ii,j,k,dUnit,IL
100        logical exst        logical exst
101        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy)        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy)
102        Real*4 r4seg(sNx)        Real*4 r4seg(sNx)
103        Real*8 r8seg(sNx)        Real*8 r8seg(sNx)
104        logical globalFile,fileIsOpen        logical globalFile,fileIsOpen
# Line 338  C Local variables Line 338  C Local variables
338        integer ip,jp,iG,jG,irec,bi,bj,ii,j,k,dUnit,IL        integer ip,jp,iG,jG,irec,bi,bj,ii,j,k,dUnit,IL
339        Real*4 r4seg(sNx)        Real*4 r4seg(sNx)
340        Real*8 r8seg(sNx)        Real*8 r8seg(sNx)
341        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy)        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy)
342        integer dimList(3,3),ndims        integer dimList(3,3),ndims
343        integer length_of_rec        integer length_of_rec
344        logical fileIsOpen        logical fileIsOpen
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22