ice_dyn_vp: remove proprietary directives

CICE-Consortium · Jul 20, 2020 · bec2223 · bec2223
1 parent c1caa64
commit bec2223
Showing 1 changed file with 0 additions and 11 deletions.
diff --git 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.