/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/aocc_2/CMakeFiles/clover_leaf.dir/CloverLeaf_ref/kernels/update_halo_kernel.f90-pp.f90: 93 - 752
--------------------------------------------------------------------------------

93:     ! Even though half of these loops look the wrong way around, it should be noted
[...]
99:         DO j=x_min-depth,x_max+depth
100:         !$OMP SIMD
101:           DO k=1,depth
102:             density0(j,1-k)=density0(j,0+k)
103:           ENDDO
104:         ENDDO
105:       !$OMP END DO
106:       ENDIF
107:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
108:         !$OMP DO
109:         DO j=x_min-depth,x_max+depth
110:         !$OMP SIMD
111:           DO k=1,depth
112:             density0(j,y_max+k)=density0(j,y_max+1-k)
113:           ENDDO
114:         ENDDO
115:       !$OMP END DO
116:       ENDIF
117:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
118:         !$OMP DO
119:         DO k=y_min-depth,y_max+depth
120:         !$OMP SIMD
121:           DO j=1,depth
122:             density0(1-j,k)=density0(0+j,k)
123:           ENDDO
124:         ENDDO
125:       !$OMP END DO
126:       ENDIF
127:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
128:         !$OMP DO
129:         DO k=y_min-depth,y_max+depth
130:         !$OMP SIMD
131:           DO j=1,depth
132:             density0(x_max+j,k)=density0(x_max+1-j,k)
133:           ENDDO
134:         ENDDO
135:       !$OMP END DO
136:       ENDIF
137:     ENDIF
138: # 142 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
139:     IF(fields(FIELD_DENSITY1).EQ.1) THEN
140:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
141:         !$OMP DO
142:         DO j=x_min-depth,x_max+depth
143:         !$OMP SIMD
144:           DO k=1,depth
145:             density1(j,1-k)=density1(j,0+k)
146:           ENDDO
147:         ENDDO
148:       !$OMP END DO
149:       ENDIF
150:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
151:         !$OMP DO
152:         DO j=x_min-depth,x_max+depth
153:         !$OMP SIMD
154:           DO k=1,depth
155:             density1(j,y_max+k)=density1(j,y_max+1-k)
156:           ENDDO
157:         ENDDO
158:       !$OMP END DO
159:       ENDIF
160:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
161:         !$OMP DO
162:         DO k=y_min-depth,y_max+depth
163:         !$OMP SIMD
164:           DO j=1,depth
165:             density1(1-j,k)=density1(0+j,k)
166:           ENDDO
167:         ENDDO
168:       !$OMP END DO
169:       ENDIF
170:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
171:         !$OMP DO
172:         DO k=y_min-depth,y_max+depth
173:         !$OMP SIMD
174:           DO j=1,depth
175:             density1(x_max+j,k)=density1(x_max+1-j,k)
176:           ENDDO
177:         ENDDO
178:       !$OMP END DO
179:       ENDIF
180:     ENDIF
181: # 185 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
182:     IF(fields(FIELD_ENERGY0).EQ.1) THEN
183:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
184:         !$OMP DO
185:         DO j=x_min-depth,x_max+depth
186:         !$OMP SIMD
187:           DO k=1,depth
188:             energy0(j,1-k)=energy0(j,0+k)
189:           ENDDO
190:         ENDDO
191:       !$OMP END DO
192:       ENDIF
193:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
194:         !$OMP DO
195:         DO j=x_min-depth,x_max+depth
196:         !$OMP SIMD
197:           DO k=1,depth
198:             energy0(j,y_max+k)=energy0(j,y_max+1-k)
199:           ENDDO
200:         ENDDO
201:       !$OMP END DO
202:       ENDIF
203:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
204:         !$OMP DO
205:         DO k=y_min-depth,y_max+depth
206:         !$OMP SIMD
207:           DO j=1,depth
208:             energy0(1-j,k)=energy0(0+j,k)
209:           ENDDO
210:         ENDDO
211:       !$OMP END DO
212:       ENDIF
213:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
214:         !$OMP DO
215:         DO k=y_min-depth,y_max+depth
216:         !$OMP SIMD
217:           DO j=1,depth
218:             energy0(x_max+j,k)=energy0(x_max+1-j,k)
219:           ENDDO
220:         ENDDO
221:       !$OMP END DO
222:       ENDIF
223:     ENDIF
224: # 228 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
225:     IF(fields(FIELD_ENERGY1).EQ.1) THEN
226:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
227:         !$OMP DO
228:         DO j=x_min-depth,x_max+depth
229:         !$OMP SIMD
230:           DO k=1,depth
231:             energy1(j,1-k)=energy1(j,0+k)
232:           ENDDO
233:         ENDDO
234:       !$OMP END DO
235:       ENDIF
236:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
237:         !$OMP DO
238:         DO j=x_min-depth,x_max+depth
239:         !$OMP SIMD
240:           DO k=1,depth
241:             energy1(j,y_max+k)=energy1(j,y_max+1-k)
242:           ENDDO
243:         ENDDO
244:       !$OMP END DO
245:       ENDIF
246:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
247:         !$OMP DO
248:         DO k=y_min-depth,y_max+depth
249:         !$OMP SIMD
250:           DO j=1,depth
251:             energy1(1-j,k)=energy1(0+j,k)
252:           ENDDO
253:         ENDDO
254:       !$OMP END DO
255:       ENDIF
256:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
257:         !$OMP DO
258:         DO k=y_min-depth,y_max+depth
259:         !$OMP SIMD
260:           DO j=1,depth
261:             energy1(x_max+j,k)=energy1(x_max+1-j,k)
262:           ENDDO
263:         ENDDO
264:       !$OMP END DO
265:       ENDIF
266:     ENDIF
267: # 271 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
268:     IF(fields(FIELD_PRESSURE).EQ.1) THEN
269:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
270:         !$OMP DO
271:         DO j=x_min-depth,x_max+depth
272:         !$OMP SIMD
273:           DO k=1,depth
274:             pressure(j,1-k)=pressure(j,0+k)
275:           ENDDO
276:         ENDDO
277:       !$OMP END DO
278:       ENDIF
279:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
280:         !$OMP DO
281:         DO j=x_min-depth,x_max+depth
282:         !$OMP SIMD
283:           DO k=1,depth
284:             pressure(j,y_max+k)=pressure(j,y_max+1-k)
285:           ENDDO
286:         ENDDO
287:       !$OMP END DO
288:       ENDIF
289:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
290:         !$OMP DO
291:         DO k=y_min-depth,y_max+depth
292:         !$OMP SIMD
293:           DO j=1,depth
294:             pressure(1-j,k)=pressure(0+j,k)
295:           ENDDO
296:         ENDDO
297:       !$OMP END DO
298:       ENDIF
299:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
300:         !$OMP DO
301:         DO k=y_min-depth,y_max+depth
302:         !$OMP SIMD
303:           DO j=1,depth
304:             pressure(x_max+j,k)=pressure(x_max+1-j,k)
305:           ENDDO
306:         ENDDO
307:       !$OMP END DO
308:       ENDIF
309:     ENDIF
310: # 314 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
311:     IF(fields(FIELD_VISCOSITY).EQ.1) THEN
312:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
313:         !$OMP DO
314:         DO j=x_min-depth,x_max+depth
315:         !$OMP SIMD
316:           DO k=1,depth
317:             viscosity(j,1-k)=viscosity(j,0+k)
318:           ENDDO
319:         ENDDO
320:       !$OMP END DO
321:       ENDIF
322:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
323:         !$OMP DO
324:         DO j=x_min-depth,x_max+depth
325:         !$OMP SIMD
326:           DO k=1,depth
327:             viscosity(j,y_max+k)=viscosity(j,y_max+1-k)
328:           ENDDO
329:         ENDDO
330:       !$OMP END DO
331:       ENDIF
332:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
333:         !$OMP DO
334:         DO k=y_min-depth,y_max+depth
335:         !$OMP SIMD
336:           DO j=1,depth
337:             viscosity(1-j,k)=viscosity(0+j,k)
338:           ENDDO
339:         ENDDO
340:       !$OMP END DO
341:       ENDIF
342:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
343:         !$OMP DO
344:         DO k=y_min-depth,y_max+depth
345:         !$OMP SIMD
346:           DO j=1,depth
347:             viscosity(x_max+j,k)=viscosity(x_max+1-j,k)
348:           ENDDO
349:         ENDDO
350:       !$OMP END DO
351:       ENDIF
352:     ENDIF
353: # 357 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
354:     IF(fields(FIELD_SOUNDSPEED).EQ.1) THEN
355:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
356:         !$OMP DO
357:         DO j=x_min-depth,x_max+depth
358:         !$OMP SIMD
359:           DO k=1,depth
360:             soundspeed(j,1-k)=soundspeed(j,0+k)
361:           ENDDO
362:         ENDDO
363:       !$OMP END DO
364:       ENDIF
365:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
366:         !$OMP DO
367:         DO j=x_min-depth,x_max+depth
368:         !$OMP SIMD
369:           DO k=1,depth
370:             soundspeed(j,y_max+k)=soundspeed(j,y_max+1-k)
371:           ENDDO
372:         ENDDO
373:       !$OMP END DO
374:       ENDIF
375:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
376:         !$OMP DO
377:         DO k=y_min-depth,y_max+depth
378:         !$OMP SIMD
379:           DO j=1,depth
380:             soundspeed(1-j,k)=soundspeed(0+j,k)
381:           ENDDO
382:         ENDDO
383:       !$OMP END DO
384:       ENDIF
385:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
386:         !$OMP DO
387:         DO k=y_min-depth,y_max+depth
388:         !$OMP SIMD
389:           DO j=1,depth
390:             soundspeed(x_max+j,k)=soundspeed(x_max+1-j,k)
391:           ENDDO
392:         ENDDO
393:       !$OMP END DO
394:       ENDIF
395:     ENDIF
396: # 404 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
[...]
404:           ENDDO
405:         ENDDO
406:       !$OMP END DO
407:       ENDIF
408:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
409:         !$OMP DO
410:         DO j=x_min-depth,x_max+1+depth
411:         !$OMP SIMD
412:           DO k=1,depth
413:             xvel0(j,y_max+1+k)=xvel0(j,y_max+1-k)
414:           ENDDO
415:         ENDDO
416:       !$OMP END DO
417:       ENDIF
418:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
419:         !$OMP DO
420:         DO k=y_min-depth,y_max+1+depth
421:         !$OMP SIMD
422:           DO j=1,depth
423:             xvel0(1-j,k)=-xvel0(1+j,k)
424:           ENDDO
425:         ENDDO
426:       !$OMP END DO
427:       ENDIF
428:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
429:         !$OMP DO
430:         DO k=y_min-depth,y_max+1+depth
431:         !$OMP SIMD
432:           DO j=1,depth
433:             xvel0(x_max+1+j,k)=-xvel0(x_max+1-j,k)
434:           ENDDO
435:         ENDDO
436:       !$OMP END DO
437:       ENDIF
438:     ENDIF
439: # 447 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
440:     IF(fields(FIELD_XVEL1).EQ.1) THEN
441:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
442:         !$OMP DO
443:         DO j=x_min-depth,x_max+1+depth
444:         !$OMP SIMD
445:           DO k=1,depth
446:             xvel1(j,1-k)=xvel1(j,1+k)
447:           ENDDO
448:         ENDDO
449:       !$OMP END DO
450:       ENDIF
451:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
452:         !$OMP DO
453:         DO j=x_min-depth,x_max+1+depth
454:         !$OMP SIMD
455:           DO k=1,depth
456:             xvel1(j,y_max+1+k)=xvel1(j,y_max+1-k)
457:           ENDDO
458:         ENDDO
459:       !$OMP END DO
460:       ENDIF
461:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
462:         !$OMP DO
463:         DO k=y_min-depth,y_max+1+depth
464:         !$OMP SIMD
465:           DO j=1,depth
466:             xvel1(1-j,k)=-xvel1(1+j,k)
467:           ENDDO
468:         ENDDO
469:       !$OMP END DO
470:       ENDIF
471:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
472:         !$OMP DO
473:         DO k=y_min-depth,y_max+1+depth
474:         !$OMP SIMD
475:           DO j=1,depth
476:             xvel1(x_max+1+j,k)=-xvel1(x_max+1-j,k)
477:           ENDDO
478:         ENDDO
479:       !$OMP END DO
480:       ENDIF
481:     ENDIF
482: # 490 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
483:     IF(fields(FIELD_YVEL0).EQ.1) THEN
484:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
485:         !$OMP DO
486:         DO j=x_min-depth,x_max+1+depth
487:         !$OMP SIMD
488:           DO k=1,depth
489:             yvel0(j,1-k)=-yvel0(j,1+k)
490:           ENDDO
491:         ENDDO
492:       !$OMP END DO
493:       ENDIF
494:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
495:         !$OMP DO
496:         DO j=x_min-depth,x_max+1+depth
497:         !$OMP SIMD
498:           DO k=1,depth
499:             yvel0(j,y_max+1+k)=-yvel0(j,y_max+1-k)
500:           ENDDO
501:         ENDDO
502:       !$OMP END DO
503:       ENDIF
504:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
505:         !$OMP DO
506:         DO k=y_min-depth,y_max+1+depth
507:         !$OMP SIMD
508:           DO j=1,depth
509:             yvel0(1-j,k)=yvel0(1+j,k)
510:           ENDDO
511:         ENDDO
512:       !$OMP END DO
513:       ENDIF
514:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
515:         !$OMP DO
516:         DO k=y_min-depth,y_max+1+depth
517:         !$OMP SIMD
518:           DO j=1,depth
519:             yvel0(x_max+1+j,k)=yvel0(x_max+1-j,k)
520:           ENDDO
521:         ENDDO
522:       !$OMP END DO
523:       ENDIF
524:     ENDIF
525: # 533 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
526:     IF(fields(FIELD_YVEL1).EQ.1) THEN
527:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
528:         !$OMP DO
529:         DO j=x_min-depth,x_max+1+depth
530:         !$OMP SIMD
531:           DO k=1,depth
532:             yvel1(j,1-k)=-yvel1(j,1+k)
533:           ENDDO
534:         ENDDO
535:       !$OMP END DO
536:       ENDIF
537:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
538:         !$OMP DO
539:         DO j=x_min-depth,x_max+1+depth
540:         !$OMP SIMD
541:           DO k=1,depth
542:             yvel1(j,y_max+1+k)=-yvel1(j,y_max+1-k)
543:           ENDDO
544:         ENDDO
545:       !$OMP END DO
546:       ENDIF
547:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
548:         !$OMP DO
549:         DO k=y_min-depth,y_max+1+depth
550:         !$OMP SIMD
551:           DO j=1,depth
552:             yvel1(1-j,k)=yvel1(1+j,k)
553:           ENDDO
554:         ENDDO
555:       !$OMP END DO
556:       ENDIF
557:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
558:         !$OMP DO
559:         DO k=y_min-depth,y_max+1+depth
560:         !$OMP SIMD
561:           DO j=1,depth
562:             yvel1(x_max+1+j,k)=yvel1(x_max+1-j,k)
563:           ENDDO
564:         ENDDO
565:       !$OMP END DO
566:       ENDIF
567:     ENDIF
568: # 580 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
569:     IF(fields(FIELD_VOL_FLUX_X).EQ.1) THEN
570:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
571:         !$OMP DO
572:         DO j=x_min-depth,x_max+1+depth
[...]
580:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
581:         !$OMP DO
582:         DO j=x_min-depth,x_max+1+depth
583:         !$OMP SIMD
584:           DO k=1,depth
585:             vol_flux_x(j,y_max+k)=vol_flux_x(j,y_max-k)
586:           ENDDO
587:         ENDDO
588:       !$OMP END DO
589:       ENDIF
590:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
591:         !$OMP DO
592:         DO k=y_min-depth,y_max+depth
593:         !$OMP SIMD
594:           DO j=1,depth
595:             vol_flux_x(1-j,k)=-vol_flux_x(1+j,k)
596:           ENDDO
597:         ENDDO
598:       !$OMP END DO
599:       ENDIF
600:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
601:         !$OMP DO
602:         DO k=y_min-depth,y_max+depth
603:         !$OMP SIMD
604:           DO j=1,depth
605:             vol_flux_x(x_max+j+1,k)=-vol_flux_x(x_max+1-j,k)
606:           ENDDO
607:         ENDDO
608:       !$OMP END DO
609:       ENDIF
610:     ENDIF
611: # 623 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
612:     IF(fields(FIELD_MASS_FLUX_X).EQ.1) THEN
613:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
614:         !$OMP DO
615:         DO j=x_min-depth,x_max+1+depth
616:         !$OMP SIMD
617:           DO k=1,depth
618:             mass_flux_x(j,1-k)=mass_flux_x(j,1+k)
619:           ENDDO
620:         ENDDO
621:       !$OMP END DO
622:       ENDIF
623:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
624:         !$OMP DO
625:         DO j=x_min-depth,x_max+1+depth
626:         !$OMP SIMD
627:           DO k=1,depth
628:             mass_flux_x(j,y_max+k)=mass_flux_x(j,y_max-k)
629:           ENDDO
630:         ENDDO
631:       !$OMP END DO
632:       ENDIF
633:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
634:         !$OMP DO
635:         DO k=y_min-depth,y_max+depth
636:         !$OMP SIMD
637:           DO j=1,depth
638:             mass_flux_x(1-j,k)=-mass_flux_x(1+j,k)
639:           ENDDO
640:         ENDDO
641:       !$OMP END DO
642:       ENDIF
643:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
644:         !$OMP DO
645:         DO k=y_min-depth,y_max+depth
646:         !$OMP SIMD
647:           DO j=1,depth
648:             mass_flux_x(x_max+j+1,k)=-mass_flux_x(x_max+1-j,k)
649:           ENDDO
650:         ENDDO
651:       !$OMP END DO
652:       ENDIF
653:     ENDIF
654: # 666 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
655:     IF(fields(FIELD_VOL_FLUX_Y).EQ.1) THEN
656:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
657:         !$OMP DO
658:         DO j=x_min-depth,x_max+depth
659:         !$OMP SIMD
660:           DO k=1,depth
661:             vol_flux_y(j,1-k)=-vol_flux_y(j,1+k)
662:           ENDDO
663:         ENDDO
664:       !$OMP END DO
665:       ENDIF
666:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
667:         !$OMP DO
668:         DO j=x_min-depth,x_max+depth
669:         !$OMP SIMD
670:           DO k=1,depth
671:             vol_flux_y(j,y_max+k+1)=-vol_flux_y(j,y_max+1-k)
672:           ENDDO
673:         ENDDO
674:       !$OMP END DO
675:       ENDIF
676:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
677:         !$OMP DO
678:         DO k=y_min-depth,y_max+1+depth
679:         !$OMP SIMD
680:           DO j=1,depth
681:             vol_flux_y(1-j,k)=vol_flux_y(1+j,k)
682:           ENDDO
683:         ENDDO
684:       !$OMP END DO
685:       ENDIF
686:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
687:         !$OMP DO
688:         DO k=y_min-depth,y_max+1+depth
689:         !$OMP SIMD
690:           DO j=1,depth
691:             vol_flux_y(x_max+j,k)=vol_flux_y(x_max-j,k)
692:           ENDDO
693:         ENDDO
694:       !$OMP END DO
695:       ENDIF
696:     ENDIF
697: # 709 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
698:     IF(fields(FIELD_MASS_FLUX_Y).EQ.1) THEN
699:       IF( (chunk_neighbours(CHUNK_BOTTOM).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_BOTTOM).EQ.EXTERNAL_TILE) ) THEN
700:         !$OMP DO
701:         DO j=x_min-depth,x_max+depth
702:         !$OMP SIMD
703:           DO k=1,depth
704:             mass_flux_y(j,1-k)=-mass_flux_y(j,1+k)
705:           ENDDO
706:         ENDDO
707:       !$OMP END DO
708:       ENDIF
709:       IF( (chunk_neighbours(CHUNK_TOP).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_TOP).EQ.EXTERNAL_TILE) ) THEN
710:         !$OMP DO
711:         DO j=x_min-depth,x_max+depth
712:         !$OMP SIMD
713:           DO k=1,depth
714:             mass_flux_y(j,y_max+k+1)=-mass_flux_y(j,y_max+1-k)
715:           ENDDO
716:         ENDDO
717:       !$OMP END DO
718:       ENDIF
719:       IF( (chunk_neighbours(CHUNK_LEFT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_LEFT).EQ.EXTERNAL_TILE) ) THEN
720:         !$OMP DO
721:         DO k=y_min-depth,y_max+1+depth
722:         !$OMP SIMD
723:           DO j=1,depth
724:             mass_flux_y(1-j,k)=mass_flux_y(1+j,k)
725:           ENDDO
726:         ENDDO
727:       !$OMP END DO
728:       ENDIF
729:       IF( (chunk_neighbours(CHUNK_RIGHT).EQ.EXTERNAL_FACE) .AND. (tile_neighbours(TILE_RIGHT).EQ.EXTERNAL_TILE) ) THEN
730:         !$OMP DO
731:         DO k=y_min-depth,y_max+1+depth
732:         !$OMP SIMD
733:           DO j=1,depth
734:             mass_flux_y(x_max+j,k)=mass_flux_y(x_max-j,k)
735:           ENDDO
736:         ENDDO
737:       !$OMP END DO
738:       ENDIF
739:     ENDIF
740: # 752 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
741:   !$OMP END PARALLEL
742: # 754 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
743:   END SUBROUTINE update_halo_kernel
744: # 756 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/update_halo_kernel.f90"
745: END  MODULE update_halo_kernel_module
