/[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.5 by adcroft, Wed Mar 24 15:28:14 2004 UTC revision 1.6 by heimbach, Thu Oct 14 18:43:39 2004 UTC
# Line 124  C Check first for global file with simpl Line 124  C Check first for global file with simpl
124       &   ' MDSREADFIELD: opening global file: ',dataFName       &   ' MDSREADFIELD: opening global file: ',dataFName
125         call print_message( msgbuf, standardmessageunit,         call print_message( msgbuf, standardmessageunit,
126       &                     SQUEEZE_RIGHT , mythid)       &                     SQUEEZE_RIGHT , mythid)
        stop " xx, adxx, weights and masks are not supposed to be global"  
127        endif        endif
128    
129  C If negative check for global file with MDS name (ie. fName.data)  C If negative check for global file with MDS name (ie. fName.data)
# Line 137  C If negative check for global file with Line 136  C If negative check for global file with
136          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
137       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
138          globalFile = .TRUE.          globalFile = .TRUE.
        stop " xx, adxx, weights and masks are not supposed to be global"  
139         endif         endif
140        endif        endif
141    
# Line 349  C Check first for global file with simpl Line 347  C Check first for global file with simpl
347       &   ' MDSREADFIELD_YZ: opening global file: ',dataFName       &   ' MDSREADFIELD_YZ: opening global file: ',dataFName
348         call print_message( msgbuf, standardmessageunit,         call print_message( msgbuf, standardmessageunit,
349       &                     SQUEEZE_RIGHT , mythid)       &                     SQUEEZE_RIGHT , mythid)
        stop " xx, adxx, weights and masks are not supposed to be global"  
350        endif        endif
351    
352  C If negative check for global file with MDS name (ie. fName.data)  C If negative check for global file with MDS name (ie. fName.data)
# Line 362  C If negative check for global file with Line 359  C If negative check for global file with
359          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
360       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
361          globalFile = .TRUE.          globalFile = .TRUE.
        stop " xx, adxx, weights and masks are not supposed to be global"  
362         endif         endif
363        endif        endif
364  C Loop over all processors      C Loop over all processors    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22