/[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.5 by heimbach, Thu Oct 14 18:43:39 2004 UTC revision 1.6 by heimbach, Wed Nov 17 03:04:36 2004 UTC
# Line 169  C (This is a place-holder for the active Line 169  C (This is a place-holder for the active
169       &      ' MDSREADFIELD_GL: filename: ',dataFName       &      ' MDSREADFIELD_GL: filename: ',dataFName
170            call print_message( msgbuf, standardmessageunit,            call print_message( msgbuf, standardmessageunit,
171       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
172              call print_error( msgbuf, mythid )
173            write(msgbuf,'(a)')            write(msgbuf,'(a)')
174       &      ' MDSREADFIELD_GL: File does not exist'       &      ' MDSREADFIELD_GL: File does not exist'
175              call print_message( msgbuf, standardmessageunit,
176         &                        SQUEEZE_RIGHT , mythid)
177            call print_error( msgbuf, mythid )            call print_error( msgbuf, mythid )
178            stop 'ABNORMAL END: S/R MDSREADFIELD_GL'            stop 'ABNORMAL END: S/R MDSREADFIELD_GL'
179           endif           endif
# Line 613  C (This is a place-holder for the active Line 616  C (This is a place-holder for the active
616       &      ' MDSREADFIELD_GL: filename: ',dataFName       &      ' MDSREADFIELD_GL: filename: ',dataFName
617            call print_message( msgbuf, standardmessageunit,            call print_message( msgbuf, standardmessageunit,
618       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
619              call print_error( msgbuf, mythid )
620            write(msgbuf,'(a)')            write(msgbuf,'(a)')
621       &      ' MDSREADFIELD_GL: File does not exist'       &      ' MDSREADFIELD_GL: File does not exist'
622              call print_message( msgbuf, standardmessageunit,
623         &                        SQUEEZE_RIGHT , mythid)
624            call print_error( msgbuf, mythid )            call print_error( msgbuf, mythid )
625            stop 'ABNORMAL END: S/R MDSREADFIELD_GL'            stop 'ABNORMAL END: S/R MDSREADFIELD_GL'
626           endif           endif
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22