/beegfs/hackathon/users/eoseret/qaas_runs_test/178-661-4072/intel/CloverLeaf1.3-FC/build/aocc_2/CMakeFiles/clover_leaf.dir/CloverLeaf_ref/kernels/field_summary_kernel.f90-pp.f90: 62 - 73
--------------------------------------------------------------------------------

62:           DO jv=j,j+1
63:             vsqrd=vsqrd+0.25*(xvel0(jv,kv)**2+yvel0(jv,kv)**2)
64:           ENDDO
65:         ENDDO
66:         cell_vol=volume(j,k)
67:         cell_mass=cell_vol*density0(j,k)
68:         vol=vol+cell_vol
69:         mass=mass+cell_mass
70:         ie=ie+cell_mass*energy0(j,k)
71:         ke=ke+cell_mass*0.5*vsqrd
72:         press=press+cell_vol*pressure(j,k)
73:       ENDDO
