/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/build/CMakeFiles/clover_leaf.dir/CloverLeaf_ref/kernels/advec_cell_kernel.f90-pp.f90: 110 - 155
--------------------------------------------------------------------------------

110:       DO k=y_min,y_max
111:         DO j=x_min,x_max+2
112: # 112 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_cell_kernel.f90"
113:           IF(vol_flux_x(j,k).GT.0.0)THEN
114:             upwind   =j-2
115:             donor    =j-1
116:             downwind =j
117:             dif      =donor
118:           ELSE
119:             upwind   =MIN(j+1,x_max+2)
120:             donor    =j
121:             downwind =j-1
122:             dif      =upwind
123:           ENDIF
124: # 124 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_cell_kernel.f90"
125:           sigmat=ABS(vol_flux_x(j,k))/pre_vol(donor,k)
126:           sigma3=(1.0_8+sigmat)*(vertexdx(j)/vertexdx(dif))
127:           sigma4=2.0_8-sigmat
128: # 128 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_cell_kernel.f90"
129:           sigma=sigmat
130:           sigmav=sigmat
131: # 131 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_cell_kernel.f90"
132:           diffuw=density1(donor,k)-density1(upwind,k)
133:           diffdw=density1(downwind,k)-density1(donor,k)
134:           wind=1.0_8
135:           IF(diffdw.LE.0.0) wind=-1.0_8
136:           IF(diffuw*diffdw.GT.0.0)THEN
137:             limiter=(1.0_8-sigmav)*wind*MIN(ABS(diffuw),ABS(diffdw)&
138:               ,one_by_six*(sigma3*ABS(diffuw)+sigma4*ABS(diffdw)))
139:           ELSE
140:             limiter=0.0
141:           ENDIF
142:           mass_flux_x(j,k)=vol_flux_x(j,k)*(density1(donor,k)+limiter)
143: # 143 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_cell_kernel.f90"
144:           sigmam=ABS(mass_flux_x(j,k))/(density1(donor,k)*pre_vol(donor,k))
145:           diffuw=energy1(donor,k)-energy1(upwind,k)
146:           diffdw=energy1(downwind,k)-energy1(donor,k)
147:           wind=1.0_8
148:           IF(diffdw.LE.0.0) wind=-1.0_8
149:           IF(diffuw*diffdw.GT.0.0)THEN
[...]
155: # 155 "/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/CloverLeaf1.3-FC/CloverLeaf_ref/kernels/advec_cell_kernel.f90"
