Changeset 4370 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

Jan 10, 2020 2:00:44 PM (5 years ago)

Author:

raasch

Message:

bugfixes for previous commit: unused variables removed, Temperton-fft usage on GPU, openacc porting of vector version of Obukhov length calculation, collective read switched off on NEC to avoid hanging; some vector directives added in prognostic equations to force vectorization on Intel19 compiler, configuration files for NEC Aurora added

File:

• palm/trunk/SOURCE/turbulence_closure_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! vector directives added to force vectorization on Intel19 compiler
+! 
+! 4346 2019-12-18 11:55:56Z motisi
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -2272 +2275 @@
        DO  i = nxl, nxr
           DO  j = nys, nyn
+             !following directive is required to vectorize on Intel19
+             !DIR$ IVDEP
              DO  k = nzb+1, nzt
                 e_p(k,j,i) = e(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +        &