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

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

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

revision 1.2 by heimbach, Thu Feb 7 20:00:09 2002 UTC revision 1.3 by heimbach, Tue Jul 8 15:00:26 2003 UTC
# Line 168  C If we are reading from a tiled MDS fil Line 168  C If we are reading from a tiled MDS fil
168  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"
169  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
170           if (exst) then           if (exst) then
171            write(msgbuf,'(a,a)')            if ( debugLevel .GE. debLevA ) then
172               write(msgbuf,'(a,a)')
173       &      ' MDSREADFIELD_XZ_GL: opening file: ',dataFName       &      ' MDSREADFIELD_XZ_GL: opening file: ',dataFName
174            call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
175       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
176              endif
177            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
178            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status='old',
179       &        access='direct', recl=length_of_rec )       &        access='direct', recl=length_of_rec )
# Line 390  C If we are reading from a tiled MDS fil Line 392  C If we are reading from a tiled MDS fil
392  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"
393  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
394           if (exst) then           if (exst) then
395            write(msgbuf,'(a,a)')            if ( debugLevel .GE. debLevA ) then
396               write(msgbuf,'(a,a)')
397       &      ' MDSREADFIELD_YZ_GL: opening file: ',dataFName       &      ' MDSREADFIELD_YZ_GL: opening file: ',dataFName
398            call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
399       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
400              endif
401            length_of_rec=MDS_RECLEN( filePrec, sNy, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNy, mythid )
402            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status='old',
403       &        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