Changeset 4835 for palm/trunk/SOURCE

Timestamp:

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

Author:

raasch

Message:

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

Location:

palm/trunk/SOURCE

Files:

• cpulog_mod.f90 (modified) (2 diffs)
• turbulence_closure_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/cpulog_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Format descriptor 102 changed again to limit line length to 80 characters
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Format descriptor 102 slightly modified.
 ! 
@@ -553 +556 @@
                &'---------------------')
 
-   102 FORMAT (A25,2X,F10.3,2X,F7.2,1X,I7,2(1X,F10.3),1X,F6.2)
+   102 FORMAT (A25,1X,F10.3,2X,F7.2,1X,I7,2(1X,F9.2),1X,F6.2)
    103 FORMAT (/'Barriers are set in front of collective operations')
    104 FORMAT (/'No barriers are set in front of collective operations')

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()