Skip to content

Commit

Permalink
Variable name change
Browse files Browse the repository at this point in the history
  • Loading branch information
jcandy committed Oct 9, 2024
1 parent 7f09371 commit 9b92e0f
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions cgyro/src/cgyro_advect_wavenumber.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 9b92e0f

Please sign in to comment.