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

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

@@ -4 +4 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 2, llm
             dtheta_rhodz(l,ij,iq) = dtheta_rhodz(l,ij,iq) + 0.5*(theta(l,ij,iq)+theta(l-1,ij,iq))*wflux(l,ij)
@@ -11 +12 @@
       !$OMP DO SCHEDULE(STATIC)
       DO ij = 1, primal_num
+         !DIR$ SIMD
          DO l = 1, llm-1
             dtheta_rhodz(l,ij,iq) = dtheta_rhodz(l,ij,iq) - 0.5*(theta(l,ij,iq)+theta(l+1,ij,iq))*wflux(l+1,ij)
@@ -23 +25 @@
          ij_left = left(edge)
          ij_right = right(edge)
+         !DIR$ SIMD
          DO l = 2, llm
             wwuu(l,edge) = .25*(wflux(l,ij_left)+wflux(l,ij_right))*(u(l,edge)+u(l-1,edge)) ! Fu
@@ -34 +37 @@
          ij_left = left(edge)
          ij_right = right(edge)
+         !DIR$ SIMD
          DO l = 1, llm
             dFu_deta = wwuu(l+1,edge)-wwuu(l,edge) ! d/deta (F*u)
@@ -46 +50 @@
          ij_left = left(edge)
          ij_right = right(edge)
+         !DIR$ SIMD
          DO l = 2, llm
             wwuu(l,edge) = .5*(wflux(l,ij_left)+wflux(l,ij_right))*(u(l,edge)-u(l-1,edge))
@@ -57 +62 @@
          ij_left = left(edge)
          ij_right = right(edge)
+         !DIR$ SIMD
          DO l = 1, llm
             du(l,edge) = du(l,edge) - (wwuu(l,edge)+wwuu(l+1,edge)) / (rhodz(l,ij_left)+rhodz(l,ij_right))