/home/eoseret/qaas_runs_CPU_9468/171-152-3172/intel/CloverLeafFC/build/CloverLeafFC/CloverLeaf_ref/kernels/accelerate_kernel.f90: 60 - 76
--------------------------------------------------------------------------------

60:     DO k=y_min,y_max+1
61:     !$OMP SIMD
62:       DO j=x_min,x_max+1
63:         stepbymass_s=halfdt/((density0(j-1,k-1)*volume(j-1,k-1)  &
64:           +density0(j  ,k-1)*volume(j  ,k-1)  &
65:           +density0(j  ,k  )*volume(j  ,k  )  &
66:           +density0(j-1,k  )*volume(j-1,k  )) &
67:           *0.25_8)
68: 
69:         xvel1(j,k)=xvel0(j,k)-stepbymass_s*(xarea(j  ,k  )*(pressure(j  ,k  )-pressure(j-1,k  ))    &
70:           +xarea(j  ,k-1)*(pressure(j  ,k-1)-pressure(j-1,k-1)))
71:         yvel1(j,k)=yvel0(j,k)-stepbymass_s*(yarea(j  ,k  )*(pressure(j  ,k  )-pressure(j  ,k-1))    &
72:           +yarea(j-1,k  )*(pressure(j-1,k  )-pressure(j-1,k-1)))
73:         xvel1(j,k)=xvel1(j,k)-stepbymass_s*(xarea(j  ,k  )*(viscosity(j  ,k  )-viscosity(j-1,k  )) &
74:           +xarea(j  ,k-1)*(viscosity(j  ,k-1)-viscosity(j-1,k-1)))
75:         yvel1(j,k)=yvel1(j,k)-stepbymass_s*(yarea(j  ,k  )*(viscosity(j  ,k  )-viscosity(j  ,k-1)) &
76:           +yarea(j-1,k  )*(viscosity(j-1,k  )-viscosity(j-1,k-1)))
