Changeset 658 for codes/icosagcm/devel/src/kernels_unst/theta.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/theta.k90 (modified) (2 diffs)

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

@@ -16 +16 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 1, llm
             ! FIXME : formula below (used in DYNAMICO) is for dak, dbk based on pressure rather than mass
@@ -28 +29 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 1, llm
             theta(l,ij,iq) = theta_rhodz(l,ij,iq)/rhodz(l,ij)