/home/eoseret/qaas/qaas_runs/178-231-1255/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_mom_kernel.f90: 149 - 176
--------------------------------------------------------------------------------

149:       !$OMP DO PRIVATE(upwind,downwind,donor,dif,sigma,width,limiter,vdiffuw,vdiffdw,auw,adw,wind,advec_vel_s)
150:       DO k=y_min,y_max+1
151:         DO j=x_min-1,x_max+1
152:           IF(node_flux(j,k).LT.0.0)THEN
153:             upwind=j+2
154:             donor=j+1
[...]
160:             downwind=j+1
161:             dif=upwind
162:           ENDIF
163:           sigma=ABS(node_flux(j,k))/(node_mass_pre(donor,k))
164:           width=celldx(j)
165:           vdiffuw=vel1(donor,k)-vel1(upwind,k)
166:           vdiffdw=vel1(downwind,k)-vel1(donor,k)
167:           limiter=0.0
168:           IF(vdiffuw*vdiffdw.GT.0.0)THEN
169:             auw=ABS(vdiffuw)
170:             adw=ABS(vdiffdw)
171:             wind=1.0_8
172:             IF(vdiffdw.LE.0.0) wind=-1.0_8
173:             limiter=wind*MIN(width*((2.0_8-sigma)*adw/width+(1.0_8+sigma)*auw/celldx(dif))/6.0_8,auw,adw)
174:           ENDIF
175:           advec_vel_s=vel1(donor,k)+(1.0-sigma)*limiter
176:           mom_flux(j,k)=advec_vel_s*node_flux(j,k)
