/[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.2 by heimbach, Sun Mar 25 22:31:53 2001 UTC revision 1.3 by heimbach, Tue Jul 8 15:00:26 2003 UTC
# Line 169  C If we are reading from a tiled MDS fil Line 169  C If we are reading from a tiled MDS fil
169  C Of course, we only open the file if the tile is "active"  C Of course, we only open the file if the tile is "active"
170  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
171           if (exst) then           if (exst) then
172            write(msgbuf,'(a,a)')            if ( debugLevel .GE. debLevA ) then
173               write(msgbuf,'(a,a)')
174       &      ' MDSREADFIELD_GL: opening file: ',dataFName       &      ' MDSREADFIELD_GL: opening file: ',dataFName
175            call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
176       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
177              endif
178            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
179            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status='old',
180       &        access='direct', recl=length_of_rec )       &        access='direct', recl=length_of_rec )
# Line 613  C If we are reading from a tiled MDS fil Line 615  C If we are reading from a tiled MDS fil
615  C Of course, we only open the file if the tile is "active"  C Of course, we only open the file if the tile is "active"
616  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
617           if (exst) then           if (exst) then
618            write(msgbuf,'(a,a)')            if ( debugLevel .GE. debLevA ) then
619               write(msgbuf,'(a,a)')
620       &      ' MDSREADFIELD_GL: opening file: ',dataFName       &      ' MDSREADFIELD_GL: opening file: ',dataFName
621            call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
622       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
623              endif
624            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
625            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status='old',
626       &        access='direct', recl=length_of_rec )       &        access='direct', recl=length_of_rec )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22