diff options
Diffstat (limited to 'src/GRHydro_Prim2Con.F90')
| -rw-r--r-- | src/GRHydro_Prim2Con.F90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/GRHydro_Prim2Con.F90 b/src/GRHydro_Prim2Con.F90 index 0bfea69..8a428c9 100644 --- a/src/GRHydro_Prim2Con.F90 +++ b/src/GRHydro_Prim2Con.F90 @@ -49,7 +49,7 @@ subroutine primitive2conservative(CCTK_ARGUMENTS) CCTK_REAL :: xtemp(1) if(evolve_temper.ne.1) then - !$OMP PARALLEL DO PRIVATE(i, j, avg_detl, avg_detr,& + !$OMP PARALLEL DO PRIVATE(i, j, k, avg_detl, avg_detr,& !$OMP gxxl,gxyl,gxzl,gyyl,gyzl,gzzl, & !$OMP gxxr,gxyr,gxzr,gyyr,gyzr,gzzr) do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1 @@ -348,7 +348,7 @@ subroutine Primitive2ConservativeCells(CCTK_ARGUMENTS) character(len=512) :: warnline if(evolve_temper.ne.1) then - !$OMP PARALLEL DO PRIVATE(i, j, det) + !$OMP PARALLEL DO PRIVATE(i, j, k, det) do k = 1,cctk_lsh(3) do j = 1,cctk_lsh(2) do i = 1,cctk_lsh(1) @@ -367,7 +367,7 @@ subroutine Primitive2ConservativeCells(CCTK_ARGUMENTS) end do !$OMP END PARALLEL DO else - !$OMP PARALLEL DO PRIVATE(i, j, det) + !$OMP PARALLEL DO PRIVATE(i, j, k, det) do k = 1,cctk_lsh(3) do j = 1,cctk_lsh(2) do i = 1,cctk_lsh(1) @@ -390,7 +390,7 @@ subroutine Primitive2ConservativeCells(CCTK_ARGUMENTS) endif if(evolve_Y_e.ne.0) then - !$OMP PARALLEL DO PRIVATE(i, j) + !$OMP PARALLEL DO PRIVATE(i, j, k) do k = 1,cctk_lsh(3) do j = 1,cctk_lsh(2) do i = 1,cctk_lsh(1) @@ -432,7 +432,7 @@ subroutine Prim2ConservativePolytype(CCTK_ARGUMENTS) CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr - !$OMP PARALLEL DO PRIVATE(i, j, gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& + !$OMP PARALLEL DO PRIVATE(i, j, k, gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& !$OMP gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr) do k = GRHydro_stencil,cctk_lsh(3)-GRHydro_stencil+1 do j = GRHydro_stencil,cctk_lsh(2)-GRHydro_stencil+1 @@ -581,7 +581,7 @@ subroutine Primitive2ConservativePolyCells(CCTK_ARGUMENTS) CCTK_INT :: i, j, k CCTK_REAL :: det - !$OMP PARALLEL DO PRIVATE(i, j, det) + !$OMP PARALLEL DO PRIVATE(i, j, k, det) do k = 1,cctk_lsh(3) do j = 1,cctk_lsh(2) do i = 1,cctk_lsh(1) @@ -601,7 +601,7 @@ subroutine Primitive2ConservativePolyCells(CCTK_ARGUMENTS) !$OMP END PARALLEL DO if(evolve_Y_e.ne.0) then - !$OMP PARALLEL DO PRIVATE(i, j) + !$OMP PARALLEL DO PRIVATE(i, j, k) do k = 1,cctk_lsh(3) do j = 1,cctk_lsh(2) do i = 1,cctk_lsh(1) |