From 3434712225163aff8fb80f567aca82339805ae94 Mon Sep 17 00:00:00 2001 From: Derek Slaughter Date: Fri, 27 Feb 2026 16:06:42 +0000 Subject: [PATCH] Move !$OMP THREADPRIVATE(TRH) in TSsubs.f90 to after the variable declaration for IFX compiler --- modules/turbsim/src/TSsubs.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/turbsim/src/TSsubs.f90 b/modules/turbsim/src/TSsubs.f90 index fd8753c5ab..d0bc39fa27 100644 --- a/modules/turbsim/src/TSsubs.f90 +++ b/modules/turbsim/src/TSsubs.f90 @@ -55,8 +55,8 @@ SUBROUTINE CalcFourierCoeffs_IEC( p, U, PhaseAngles, S, V, TRH_in, ErrStat, ErrM INTEGER(IntKi), INTENT(OUT) :: ErrStat CHARACTER(*), INTENT(OUT) :: ErrMsg -!$OMP THREADPRIVATE(TRH) REAL(ReKi), allocatable, save :: TRH(:) ! Each OMP thread gets its own copy of this array +!$OMP THREADPRIVATE(TRH) REAL(ReKi), ALLOCATABLE :: Dist(:) ! The distance between points REAL(ReKi), ALLOCATABLE :: DistU(:)