From 5c7ba6472e1c1b73899f19710e38de4be1a88223 Mon Sep 17 00:00:00 2001 From: Dusan Jovic Date: Wed, 24 Jul 2024 08:22:58 -0500 Subject: [PATCH] Do not use OMP in one do loop if Intel LLVM is used --- cicecore/cicedyn/analysis/ice_history.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/cicecore/cicedyn/analysis/ice_history.F90 b/cicecore/cicedyn/analysis/ice_history.F90 index 32f744477..a0313c56c 100644 --- a/cicecore/cicedyn/analysis/ice_history.F90 +++ b/cicecore/cicedyn/analysis/ice_history.F90 @@ -2325,9 +2325,11 @@ subroutine accum_hist (dt) ! increment field !--------------------------------------------------------------- +#ifndef __INTEL_LLVM_COMPILER !$OMP PARALLEL DO PRIVATE(iblk,i,j,ilo,ihi,jlo,jhi,this_block, & !$OMP k,n,qn,ns,sn,rho_ocn,rho_ice,Tice,Sbr,phi,rhob,dfresh,dfsalt,sicen, & !$OMP worka,workb,worka3,Tinz4d,Sinz4d,Tsnz4d) +#endif do iblk = 1, nblocks this_block = get_block(blocks_ice(iblk),iblk) @@ -3637,7 +3639,9 @@ subroutine accum_hist (dt) call accum_hist_snow (iblk) enddo ! iblk +#ifndef __INTEL_LLVM_COMPILER !$OMP END PARALLEL DO +#endif call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call abort_ice(error_message=subname, &