From 6fb8034dbd17dc521c373a0225bfe8266444dda2 Mon Sep 17 00:00:00 2001 From: Jeff Candy Date: Wed, 9 Oct 2024 19:30:04 -0700 Subject: [PATCH] Igor's OMP tweak --- cgyro/src/cgyro_globalshear.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cgyro/src/cgyro_globalshear.F90 b/cgyro/src/cgyro_globalshear.F90 index a5437b25d..f443d2c6d 100644 --- a/cgyro/src/cgyro_globalshear.F90 +++ b/cgyro/src/cgyro_globalshear.F90 @@ -28,7 +28,8 @@ subroutine cgyro_globalshear(ij) !$acc& private(ivc,ir,l,iccj,j,ll,rl,llnt,h1,h2) & !$acc& present(rhs(:,:,:,ij),omega_ss,omega_sbeta,field,cap_h_c,h_x,c_wave) #else -!$omp parallel do collapse(4) private(ivc,ir,l,iccj,j,ll,rl,llnt,h1,h2) +!$omp parallel do collapse(3) private(ivc,ir,l,iccj,j,ll,rl,llnt,h1,h2) +!$omp& firstprivate(shear_method) #endif do itor=nt1,nt2 do ivc=1,nv_loc