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) |
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 |
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) |
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 |