From a1415359ae8b6dd73451f410f682301d45f3ceaf Mon Sep 17 00:00:00 2001 From: Tony Craig Date: Wed, 1 Dec 2021 13:32:00 -0800 Subject: [PATCH] turn off OMP around seabed stress, causes aborts on cheyenne with pgi (#46) --- cicecore/cicedynB/dynamics/ice_dyn_eap.F90 | 5 +++-- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 5 +++-- cicecore/cicedynB/dynamics/ice_dyn_vp.F90 | 5 +++-- 3 files changed, 9 insertions(+), 6 deletions(-) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_eap.F90 b/cicecore/cicedynB/dynamics/ice_dyn_eap.F90 index e5a89b118..74e08bdcd 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_eap.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_eap.F90 @@ -400,7 +400,8 @@ subroutine eap (dt) if (seabed_stress) then - !$OMP PARALLEL DO PRIVATE(iblk) + ! tcraig, evp omp causes abort on cheyenne with pgi, turn off here too + !$TCXOMP PARALLEL DO PRIVATE(iblk) do iblk = 1, nblocks if ( seabed_stress_method == 'LKD' ) then @@ -421,7 +422,7 @@ subroutine eap (dt) endif enddo - !$OMP END PARALLEL DO + !$TCXOMP END PARALLEL DO endif do ksub = 1,ndte ! subcycling diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index bc0863827..c29f06497 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -552,7 +552,8 @@ subroutine evp (dt) if (seabed_stress) then - !$OMP PARALLEL DO PRIVATE(iblk) + ! tcraig, causes abort with pgi compiler on cheyenne + !$TCXOMP PARALLEL DO PRIVATE(iblk) do iblk = 1, nblocks select case (trim(grid_system)) @@ -605,7 +606,7 @@ subroutine evp (dt) end select enddo - !$OMP END PARALLEL DO + !$TCXOMP END PARALLEL DO endif call ice_timer_start(timer_evp_2d) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 index 5bbef02a4..66499037a 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 @@ -446,7 +446,8 @@ subroutine implicit_solver (dt) if (seabed_stress) then - !$OMP PARALLEL DO PRIVATE(iblk) + ! tcraig, evp omp causes abort on cheyenne with pgi, turn off here too + !$TCXOMP PARALLEL DO PRIVATE(iblk) do iblk = 1, nblocks if ( seabed_stress_method == 'LKD' ) then @@ -467,7 +468,7 @@ subroutine implicit_solver (dt) endif enddo - !$OMP END PARALLEL DO + !$TCXOMP END PARALLEL DO endif !-----------------------------------------------------------------