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

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
155:             downwind=j
156:             dif=donor
157:           ELSE
158:             upwind=j-1
159:             donor=j
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)
