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

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

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

revision 1.16 by dimitri, Wed Apr 7 13:27:27 2004 UTC revision 1.17 by afe, Tue May 4 14:57:09 2004 UTC
# Line 174  C Loop over all tiles Line 174  C Loop over all tiles
174         do bi=1,nSx         do bi=1,nSx
175  C If we are reading from a tiled MDS file then we open each one here  C If we are reading from a tiled MDS file then we open each one here
176  cafe        if (.NOT. globalFile) then  cafe        if (.NOT. globalFile) then
177  cafe             write(msgbuf,'(a)')  cafe             write(msgbuf,'(a,a)')
178  cafe     &         ' MDSREADFIELD: non-global input files not  cafe     &         ' MDSREADFIELD: non-global input files not '
179  cafe     &           implemented with exch2'  cafe     &           'implemented with exch2'
180  cafe             call print_error( msgbuf, mythid )  cafe             call print_error( msgbuf, mythid )
181  cafe             stop 'ABNORMAL END: S/R MDSREADFIELD'  cafe             stop 'ABNORMAL END: S/R MDSREADFIELD'
182  cafe        endif  cafe        endif
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22