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

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

@@ -9 +9 @@
       eta_dot(l,ij) = wflux_ij / mass(l,ij)
       wcov(l,ij) = w_ij*(geopot(l+1,ij)-geopot(l,ij))
+      !DIR$ SIMD
       DO l = 2, llm-1
          w_ij = .5*( W(l,ij)+W(l+1,ij) )/mass(l,ij)
@@ -29 +30 @@
       ij_left = left(edge)
       ij_right = right(edge)
+      !DIR$ SIMD
       DO l = 1, llm
          du(l,edge) = du(l,edge) - .5*(wcov(l,ij_left)+wcov(l,ij_right))*1.*(eta_dot(l,ij_right)-eta_dot(l,ij_left))
@@ -38 +40 @@
    !$OMP DO SCHEDULE(STATIC)
    DO ij = 1, primal_num
+      !DIR$ SIMD
       DO l = 2, llm
          dPhi(l,ij)=dPhi(l,ij)-wflux(l,ij)*(geopot(l+1,ij)-geopot(l-1,ij))/(mass(l-1,ij)+mass(l,ij))
@@ -49 +52 @@
       l=1
       dW(l,ij) = dW(l,ij) - W_etadot(l,ij)
+      !DIR$ SIMD
       DO l = 2, llm
          dW(l,ij) = dW(l,ij) + W_etadot(l-1,ij) - W_etadot(l,ij)