Changeset 724 for codes/icosagcm/devel/src/kernels_hex/energy_fluxes.k90

Timestamp:

08/09/18 13:55:51 (6 years ago)

Author:

dubos

Message:

devel : updated generated kernels ; added missing SIMD directives

File:

• codes/icosagcm/devel/src/kernels_hex/energy_fluxes.k90 (modified) (3 diffs)

codes/icosagcm/devel/src/kernels_hex/energy_fluxes.k90

@@ -3 +3 @@
    ! First diagnose geopotential and temperature, column-wise
    !$OMP BARRIER
+   !DIR$ SIMD
    DO ij=ij_omp_begin_ext,ij_omp_end_ext
       pk(ij,llm) = ptop + .5*g*rhodz(ij,llm)
    END DO
    DO l = llm-1,1,-1
+      !DIR$ SIMD
       DO ij=ij_omp_begin_ext,ij_omp_end_ext
          pk(ij,l) = pk(ij,l+1) + (.5*g)*( rhodz(ij,l)+rhodz(ij,l+1) )
@@ -16 +18 @@
    CASE(thermo_theta)
       DO l = 1,llm
+         !DIR$ SIMD
          DO ij=ij_omp_begin_ext,ij_omp_end_ext
             p_ik = pk(ij,l)
@@ -28 +31 @@
    CASE(thermo_entropy)
       DO l = 1,llm
+         !DIR$ SIMD
          DO ij=ij_omp_begin_ext,ij_omp_end_ext
             p_ik = pk(ij,l)