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

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

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

revision 1.1 by adcroft, Tue Mar 6 15:28:54 2001 UTC revision 1.2 by heimbach, Fri Mar 7 04:30:08 2003 UTC
# Line 140  C (This is a place-holder for the active Line 140  C (This is a place-holder for the active
140            fileIsOpen=.TRUE.            fileIsOpen=.TRUE.
141           else           else
142            fileIsOpen=.FALSE.            fileIsOpen=.FALSE.
143              write(msgbuf,'(a,a)')
144         &      ' MDSREADVECTOR: opening file: ',dataFName
145              call print_message( msgbuf, standardmessageunit,
146         &                        SQUEEZE_RIGHT , mythid)
147            write(msgbuf,'(a)')            write(msgbuf,'(a)')
148       &      ' MDSREADVECTOR: un-active tiles not implemented yet'       &      ' MDSREADVECTOR: un-active tiles not implemented yet'
149            call print_error( msgbuf, mythid )            call print_error( msgbuf, mythid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22