diff --git a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
index c13341ff8..e91b3dc31 100644
--- a/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
+++ b/cicecore/cicedynB/dynamics/ice_dyn_vp.F90
@@ -1166,9 +1166,6 @@ subroutine calc_zeta_dPr (nx_block, ny_block, &
       stPr  = c0
       zetaD = c0
 
-!DIR$ CONCURRENT !Cray
-!cdir nodep      !NEC
-!ocl novrec      !Fujitsu
       do ij = 1, icellt
          i = indxti(ij)
          j = indxtj(ij)
@@ -1597,10 +1594,6 @@ subroutine matvec (nx_block, ny_block, &
 
       str(:,:,:) = c0
 
-!DIR$ CONCURRENT !Cray
-!cdir nodep      !NEC
-!ocl novrec      !Fujitsu
-
       do ij = 1, icellt
          i = indxti(ij)
          j = indxtj(ij)
@@ -2030,10 +2023,6 @@ subroutine formDiag_step1  (nx_block, ny_block, &
       ! Initialize
       !-----------------------------------------------------------------
 
-!DIR$ CONCURRENT !Cray
-!cdir nodep      !NEC
-!ocl novrec      !Fujitsu
-
       Drheo(:,:,:) = c0
       
       ! Be careful: Drheo contains 4 terms for u and 4 terms for v.