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

81:     IF(mom_sweep.EQ.1)THEN ! x 1
[...]
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
[...]
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)
177:         ENDDO
