# Commits

committed 8ce7de7

Removing parallel region from grid_cic.

# src/enzo/grid_cic.F90

` !        compute density and mass-weighted velocity field`
` !`
` `
`-!\$omp parallel do schedule(static) private(i,j,k) &`
`-!\$omp private(x, i1, dx) &`
`-!\$omp private(y, j1, dy) &`
`-!\$omp private(z, k1, dz) &`
`-!\$omp private(mass, temp1, me) &`
`-!\$omp reduction(+:temp)`
`+!!!!\$omp parallel do schedule(static) private(i,j,k) &`
`+!!!!\$omp private(x, i1, dx) &`
`+!!!!\$omp private(y, j1, dy) &`
`+!!!!\$omp private(z, k1, dz) &`
`+!!!!\$omp private(mass, temp1, me) &`
`+!!!!\$omp reduction(+:temp)`
`      do k=sstart3+1, send3+1`
`         z = min(max((start3 + k)*fact3, half), edge3)`
`         k1 = int(z + 0.5d0)`
`            enddo`
`         enddo`
`      enddo`
`-!\$omp end parallel do`
`+!!!!\$omp end parallel do`
` `
` !`
` !        Use velocity and mass field to generate mass field advanced by dt`
` !`
` `
`-!\$omp parallel do schedule(static) private(i,j) &`
`-!\$omp private(x, i1, dx) &`
`-!\$omp private(y, j1, dy) &`
`-!\$omp private(z, k1, dz) &`
`-!\$omp private(mass, shift1, shift2, shift3) &`
`-!\$omp reduction(+:dest)`
`+!!!!\$omp parallel do schedule(static) private(i,j) &`
`+!!!!\$omp private(x, i1, dx) &`
`+!!!!\$omp private(y, j1, dy) &`
`+!!!!\$omp private(z, k1, dz) &`
`+!!!!\$omp private(mass, shift1, shift2, shift3) &`
`+!!!!\$omp reduction(+:dest)`
`      do k=1, ddim3`
`         do j=1, ddim2`
`            do i=1, ddim1`
`            enddo`
`         enddo`
`      enddo`
`-!\$omp end parallel do`
`+!!!!\$omp end parallel do`
` `
` !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc`
` !     END PARALLEL REGION`