turn off OMP around seabed stress, causes aborts on cheyenne with pgi (…

…CICE-Consortium#46)
JFLemieux73 · Dec 1, 2021 · a141535 · a141535
1 parent cc0e716
commit a141535
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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
 
       !-----------------------------------------------------------------