51 |
|
|
52 |
C-- To get around synchronisation and multi-threaded I/O issues |
C-- To get around synchronisation and multi-threaded I/O issues |
53 |
C-- thread 1 will do all the writes. |
C-- thread 1 will do all the writes. |
54 |
|
_BARRIER |
55 |
IF ( myThid .EQ. 1 ) THEN |
IF ( myThid .EQ. 1 ) THEN |
56 |
C-- Form name for identifying "plot" |
C-- Form name for identifying "plot" |
57 |
IF ( myIter .GE. 0 ) THEN |
IF ( myIter .GE. 0 ) THEN |
86 |
I biStart, biEnd, biStride, |
I biStart, biEnd, biStride, |
87 |
I bjStart, bjEnd, bjStride ) |
I bjStart, bjEnd, bjStride ) |
88 |
ENDIF |
ENDIF |
89 |
|
_BARRIER |
90 |
|
|
91 |
RETURN |
RETURN |
92 |
END |
END |
132 |
|
|
133 |
C-- To get around synchronisation and multi-threaded I/O issues |
C-- To get around synchronisation and multi-threaded I/O issues |
134 |
C-- thread 1 will do all the writes. |
C-- thread 1 will do all the writes. |
135 |
|
_BARRIER |
136 |
IF ( myThid .EQ. 1 ) THEN |
IF ( myThid .EQ. 1 ) THEN |
137 |
C-- Form name for identifying "plot" |
C-- Form name for identifying "plot" |
138 |
IF ( myIter .GE. 0 ) THEN |
IF ( myIter .GE. 0 ) THEN |
167 |
I biStart, biEnd, biStride, |
I biStart, biEnd, biStride, |
168 |
I bjStart, bjEnd, bjStride ) |
I bjStart, bjEnd, bjStride ) |
169 |
ENDIF |
ENDIF |
170 |
|
_BARRIER |
171 |
|
|
172 |
RETURN |
RETURN |
173 |
END |
END |
218 |
|
|
219 |
C-- To get around synchronisation and multi-threaded I/O issues |
C-- To get around synchronisation and multi-threaded I/O issues |
220 |
C-- thread 1 will do all the writes. |
C-- thread 1 will do all the writes. |
221 |
|
_BARRIER |
222 |
IF ( myThid .EQ. 1 ) THEN |
IF ( myThid .EQ. 1 ) THEN |
223 |
C-- Form name for identifying "plot" |
C-- Form name for identifying "plot" |
224 |
IF ( myIter .GE. 0 ) THEN |
IF ( myIter .GE. 0 ) THEN |
258 |
I biStart, biEnd, biStride, |
I biStart, biEnd, biStride, |
259 |
I bjStart, bjEnd, bjStride ) |
I bjStart, bjEnd, bjStride ) |
260 |
ENDIF |
ENDIF |
261 |
|
_BARRIER |
262 |
|
|
263 |
RETURN |
RETURN |
264 |
END |
END |
309 |
|
|
310 |
C-- To get around synchronisation and multi-threaded I/O issues |
C-- To get around synchronisation and multi-threaded I/O issues |
311 |
C-- thread 1 will do all the writes. |
C-- thread 1 will do all the writes. |
312 |
|
_BARRIER |
313 |
IF ( myThid .EQ. 1 ) THEN |
IF ( myThid .EQ. 1 ) THEN |
314 |
C-- Form name for identifying "plot" |
C-- Form name for identifying "plot" |
315 |
IF ( myIter .GE. 0 ) THEN |
IF ( myIter .GE. 0 ) THEN |
349 |
I biStart, biEnd, biStride, |
I biStart, biEnd, biStride, |
350 |
I bjStart, bjEnd, bjStride ) |
I bjStart, bjEnd, bjStride ) |
351 |
ENDIF |
ENDIF |
352 |
|
_BARRIER |
353 |
|
|
354 |
RETURN |
RETURN |
355 |
END |
END |