From 9b92e0fd779a2f7f1e4a0ea71df6aa00e2176ca2 Mon Sep 17 00:00:00 2001
From: Jeff Candy <candy@jaamweb.com>
Date: Tue, 8 Oct 2024 18:17:43 -0700
Subject: [PATCH] Variable name change

---
 cgyro/src/cgyro_advect_wavenumber.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cgyro/src/cgyro_advect_wavenumber.F90 b/cgyro/src/cgyro_advect_wavenumber.F90
index 2f4aaca76..a2329824a 100644
--- a/cgyro/src/cgyro_advect_wavenumber.F90
+++ b/cgyro/src/cgyro_advect_wavenumber.F90
@@ -30,7 +30,7 @@ subroutine cgyro_advect_wavenumber(ij)
 !$acc&         present(rhs(:,:,:,ij),omega_ss,field,h_x,c_wave)
 #else
 !$omp parallel do collapse(3) private(ivc,ir,l,iccj,j,ll,rl,rh,llnt,he1,he2) &
-!$omp&            firstprivate(shear_method,profile_shear_flag)
+!$omp&            firstprivate(shear_method,global_flag)
 #endif
      do itor=nt1,nt2
       do ivc=1,nv_loc
@@ -68,7 +68,7 @@ subroutine cgyro_advect_wavenumber(ij)
            endif
 
            ! Wavenumber advection profile shear
-           if (profile_shear_flag == 1) then
+           if (global_flag == 1) then
                  iccj = (ir-1)*n_theta+j
 #if (!defined(OMPGPU)) && defined(_OPENACC)
 !$acc loop seq