/home/eoseret/qaas_runs_CPU_9468/171-152-3172/intel/CloverLeafFC/build/CloverLeafFC/CloverLeaf_ref/kernels/PdV_kernel.f90: 111 - 135
--------------------------------------------------------------------------------

111:         DO j=x_min,x_max
112: 
113:           left_flux=  (xarea(j  ,k  )*(xvel0(j  ,k  )+xvel0(j  ,k+1)                     &
114:             +xvel1(j  ,k  )+xvel1(j  ,k+1)))*0.25_8*dt
115:           right_flux= (xarea(j+1,k  )*(xvel0(j+1,k  )+xvel0(j+1,k+1)                     &
116:             +xvel1(j+1,k  )+xvel1(j+1,k+1)))*0.25_8*dt
117:           bottom_flux=(yarea(j  ,k  )*(yvel0(j  ,k  )+yvel0(j+1,k  )                     &
118:             +yvel1(j  ,k  )+yvel1(j+1,k  )))*0.25_8*dt
119:           top_flux=   (yarea(j  ,k+1)*(yvel0(j  ,k+1)+yvel0(j+1,k+1)                     &
120:             +yvel1(j  ,k+1)+yvel1(j+1,k+1)))*0.25_8*dt
121:           total_flux=right_flux-left_flux+top_flux-bottom_flux
122: 
123:           volume_change_s=volume(j,k)/(volume(j,k)+total_flux)
[...]
131:           energy_change=(pressure(j,k)/density0(j,k)+viscosity(j,k)/density0(j,k))*total_flux*recip_volume
132: 
133:           energy1(j,k)=energy0(j,k)-energy_change
134: 
135:           density1(j,k)=density0(j,k)*volume_change_s
