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

Timestamp:

Jan 7, 2021 1:16:02 PM (3 years ago)

Author:

raasch

Message:

openmp bugfix (some private statements were missing); output format for cpu measures slightly changed

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! openmp bugfix (some private statements were missing)
+!
+! 4768 2020-11-02 19:11:23Z suehring
 ! Enable 3D data output also with 64-bit precision
 !
@@ -4943 +4946 @@
 !
 !-- Compute the turbulent diffusion coefficient for momentum
-    !$OMP PARALLEL PRIVATE (i,j,k,ml,sr,tn)
+    !$OMP PARALLEL PRIVATE (dvar_dz,duv2_dz2,i,j,k,ml,ml_local_profile,ml_stratification,          &
+    !$OMP                   richardson_number,sr,tn)
 !$  tn = omp_get_thread_num()