/home/eoseret/qaas_runs_CPU_9468/171-152-3172/intel/CloverLeafFC/build/CloverLeafFC/CloverLeaf_ref/kernels/advec_mom_kernel.f90: 81 - 241
--------------------------------------------------------------------------------

81:     IF(mom_sweep.EQ.1)THEN ! x 1
[...]
213:       DO k=y_min-1,y_max+1
214:         DO j=x_min,x_max+1
215:           IF(node_flux(j,k).LT.0.0)THEN
[...]
227:           sigma=ABS(node_flux(j,k))/(node_mass_pre(j,donor))
228:           width=celldy(k)
229:           vdiffuw=vel1(j,donor)-vel1(j,upwind)
230:           vdiffdw=vel1(j,downwind)-vel1(j,donor)
231:           limiter=0.0
232:           IF(vdiffuw*vdiffdw.GT.0.0)THEN
233:             auw=ABS(vdiffuw)
234:             adw=ABS(vdiffdw)
235:             wind=1.0_8
236:             IF(vdiffdw.LE.0.0) wind=-1.0_8
237:             limiter=wind*MIN(width*((2.0_8-sigma)*adw/width+(1.0_8+sigma)*auw/celldy(dif))/6.0_8,auw,adw)
238:           ENDIF
239:           advec_vel_s=vel1(j,donor)+(1.0_8-sigma)*limiter
240:           mom_flux(j,k)=advec_vel_s*node_flux(j,k)
241:         ENDDO
