From a6268d3cb4d18e186555b557273baa14720e3a85 Mon Sep 17 00:00:00 2001 From: Derek Slaughter Date: Tue, 5 Nov 2024 16:46:57 +0000 Subject: [PATCH] Remove OpenMP statements from AeroDyn_Inflow.f90 because it causes compilation to fail when using the Intel oneAPI 2024.1.0 compiler --- modules/aerodyn/src/AeroDyn_Inflow.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/modules/aerodyn/src/AeroDyn_Inflow.f90 b/modules/aerodyn/src/AeroDyn_Inflow.f90 index 6dd777366..17ad2f4bb 100644 --- a/modules/aerodyn/src/AeroDyn_Inflow.f90 +++ b/modules/aerodyn/src/AeroDyn_Inflow.f90 @@ -488,16 +488,12 @@ subroutine ADI_CalcOutput_IW(t, u_IfW, IW, errStat, errMsg) call InflowWind_CalcOutput(t, u_IfW, IW%p, IW%x, IW%xd, IW%z, IW%OtherSt, IW%y, IW%m, errStat2, errMsg2) call SetErrStat(errStat2, errMsg2, errStat, errMsg, 'ADI_CalcOutput_IW') else - !$OMP PARALLEL DEFAULT(SHARED) - !$OMP DO PRIVATE(j,z) schedule(runtime) do j=1,size(u_IfW%PositionXYZ,2) z = u_IfW%PositionXYZ(3,j) IW%y%VelocityUVW(1,j) = IW%HWindSpeed*(z/IW%RefHt)**IW%PLExp IW%y%VelocityUVW(2,j) = 0.0_ReKi !V IW%y%VelocityUVW(3,j) = 0.0_ReKi !W end do - !$OMP END DO - !$OMP END PARALLEL endif end subroutine ADI_CalcOutput_IW !----------------------------------------------------------------------------------------------------------------------------------