/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: 152 - 177
--------------------------------------------------------------------------------

152:         DO j=x_min-1,x_max+1
153:           IF(node_flux(j,k).LT.0.0)THEN
154:             upwind=j+2
155:             donor=j+1
156:             downwind=j
157:             dif=donor
158:           ELSE
159:             upwind=j-1
160:             donor=j
161:             downwind=j+1
162:             dif=upwind
163:           ENDIF
164:           sigma=ABS(node_flux(j,k))/(node_mass_pre(donor,k))
165:           width=celldx(j)
166:           vdiffuw=vel1(donor,k)-vel1(upwind,k)
167:           vdiffdw=vel1(downwind,k)-vel1(donor,k)
168:           limiter=0.0
169:           IF(vdiffuw*vdiffdw.GT.0.0)THEN
170:             auw=ABS(vdiffuw)
171:             adw=ABS(vdiffdw)
172:             wind=1.0_8
173:             IF(vdiffdw.LE.0.0) wind=-1.0_8
174:             limiter=wind*MIN(width*((2.0_8-sigma)*adw/width+(1.0_8+sigma)*auw/celldx(dif))/6.0_8,auw,adw)
175:           ENDIF
176:           advec_vel_s=vel1(donor,k)+(1.0-sigma)*limiter
177:           mom_flux(j,k)=advec_vel_s*node_flux(j,k)
