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

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

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

revision 1.9 by heimbach, Fri Feb 18 20:21:15 2005 UTC revision 1.11 by heimbach, Fri Aug 19 18:01:29 2005 UTC
# Line 83  C Functions Line 83  C Functions
83        integer MDS_RECLEN        integer MDS_RECLEN
84  C Local variables  C Local variables
85        character*(80) dataFName        character*(80) dataFName
86        integer ip,jp,iG,jG,irec,bi,bj,ii,i,j,k,dUnit,IL        integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
87        logical exst        logical exst
88        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy)        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,Nr,nSx,nSy)
89        Real*4 r4seg(sNx)        Real*4 r4seg(sNx)
# Line 199  c-- useSingleCpuIO Line 199  c-- useSingleCpuIO
199        endif        endif
200    
201        if ( .not. useSingleCpuIO ) then        if ( .not. useSingleCpuIO ) then
 cph      if ( .not. ( globalFile .and. useSingleCPUIO ) ) then  
202        if ( .not. ( globalFile ) ) then        if ( .not. ( globalFile ) ) then
203    
204  C If we are reading from a global file then we open it here  C If we are reading from a global file then we open it here
# Line 330  C If global file was opened then close i Line 329  C If global file was opened then close i
329  c      end of if ( .not. ( globalFile ) ) then  c      end of if ( .not. ( globalFile ) ) then
330        endif        endif
331    
332  c      else of if ( .not. ( globalFile .and. useSingleCPUIO ) ) then  c      else of if ( .not. ( useSingleCPUIO ) ) then
333        else        else
334    
335         DO k=1,nNz         DO k=1,nNz
# Line 792  C Functions Line 791  C Functions
791        integer MDS_RECLEN        integer MDS_RECLEN
792  C Local variables  C Local variables
793        character*(80) dataFName        character*(80) dataFName
794        integer ip,jp,iG,jG,irec,bi,bj,ii,i,j,k,dUnit,IL        integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
795        logical exst        logical exst
796        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy)        _RL arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nLocz,nSx,nSy)
797        Real*4 r4seg(sNx)        Real*4 r4seg(sNx)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22