Changeset 658 for codes/icosagcm/devel/src/kernels_unst/caldyn_fast.k90

Timestamp:

12/30/17 02:00:38 (7 years ago)

Author:

dubos

Message:

devel/unstructured : updated kernels

File:

• codes/icosagcm/devel/src/kernels_unst/caldyn_fast.k90 (modified) (4 diffs)

codes/icosagcm/devel/src/kernels_unst/caldyn_fast.k90

@@ -6 +6 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 1, llm
             berni(l,ij) = pk(l,ij)
@@ -16 +17 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 1, llm
             berni(l,ij) = .5*(geopot(l,ij)+geopot(l+1,ij))
@@ -24 +26 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 1, llm
             berni(l,ij) = .5*(geopot(l,ij)+geopot(l+1,ij))
@@ -39 +42 @@
       ij_left = left(edge)
       ij_right = right(edge)
+      !DIR$ SIMD
       DO l = 1, llm
          due = .5*(theta(l,ij_left,1)+theta(l,ij_right,1))*(pk(l,ij_right)-pk(l,ij_left)) + berni(l,ij_right)-berni(l,ij_left)