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

215:         DO j=x_min,x_max+1
[...]
227: # 227 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_mom_kernel.f90"
228:           sigma=ABS(node_flux(j,k))/(node_mass_pre(j,donor))
229:           width=celldy(k)
230:           vdiffuw=vel1(j,donor)-vel1(j,upwind)
231:           vdiffdw=vel1(j,downwind)-vel1(j,donor)
232:           limiter=0.0
233:           IF(vdiffuw*vdiffdw.GT.0.0)THEN
234:             auw=ABS(vdiffuw)
235:             adw=ABS(vdiffdw)
236:             wind=1.0_8
237:             IF(vdiffdw.LE.0.0) wind=-1.0_8
238:             limiter=wind*MIN(width*((2.0_8-sigma)*adw/width+(1.0_8+sigma)*auw/celldy(dif))/6.0_8,auw,adw)
239:           ENDIF
240:           advec_vel_s=vel1(j,donor)+(1.0_8-sigma)*limiter
241:           mom_flux(j,k)=advec_vel_s*node_flux(j,k)
