/[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.4 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.5 by heimbach, Thu Oct 14 18:43:39 2004 UTC
# Line 123  C Check first for global file with simpl Line 123  C Check first for global file with simpl
123       &   ' MDSREADFIELD: opening global file: ',dataFName       &   ' MDSREADFIELD: opening global file: ',dataFName
124         call print_message( msgbuf, standardmessageunit,         call print_message( msgbuf, standardmessageunit,
125       &                     SQUEEZE_RIGHT , mythid)       &                     SQUEEZE_RIGHT , mythid)
        stop " xx, adxx, weights and masks are not supposed to be global"  
126        endif        endif
127    
128  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 136  C If negative check for global file with Line 135  C If negative check for global file with
135          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
136       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
137          globalFile = .TRUE.          globalFile = .TRUE.
        stop " xx, adxx, weights and masks are not supposed to be global"  
138         endif         endif
139        endif        endif
140  C Loop over all processors      C Loop over all processors    
# Line 569  C Check first for global file with simpl Line 567  C Check first for global file with simpl
567       &   ' MDSREADFIELD: opening global file: ',dataFName       &   ' MDSREADFIELD: opening global file: ',dataFName
568         call print_message( msgbuf, standardmessageunit,         call print_message( msgbuf, standardmessageunit,
569       &                     SQUEEZE_RIGHT , mythid)       &                     SQUEEZE_RIGHT , mythid)
        stop " xx, adxx, weights and masks are not supposed to be global"  
570        endif        endif
571    
572  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 582  C If negative check for global file with Line 579  C If negative check for global file with
579          call print_message( msgbuf, standardmessageunit,          call print_message( msgbuf, standardmessageunit,
580       &                      SQUEEZE_RIGHT , mythid)       &                      SQUEEZE_RIGHT , mythid)
581          globalFile = .TRUE.          globalFile = .TRUE.
        stop " xx, adxx, weights and masks are not supposed to be global"  
582         endif         endif
583        endif        endif
584  C Loop over all processors      C Loop over all processors    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22