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

Timestamp:

Feb 6, 2019 4:28:23 PM (5 years ago)

Author:

kanani

Message:

Correct double-used log_point_s units (bulk_cloud_model_mod, time_integration, turbulence_closure_mod)

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Correct double-used log_point_s units
+! 
+! 3719 2019-02-06 13:10:18Z kanani
 ! Changed log_point to log_point_s, otherwise this overlaps with 
 ! 'all progn.equations' cpu measurement.
@@ -1949 +1952 @@
     IF ( .NOT. constant_diffusion )  THEN
 
-       CALL cpu_log( log_point_s(16), 'tke-equation', 'start' )
+       CALL cpu_log( log_point_s(67), 'tke-equation', 'start' )
 
        sbt = tsc(2)
@@ -2057 +2060 @@
        ENDIF
 
-       CALL cpu_log( log_point_s(16), 'tke-equation', 'stop' )
+       CALL cpu_log( log_point_s(67), 'tke-equation', 'stop' )
 
     ENDIF   ! TKE equation
@@ -2065 +2068 @@
     IF ( rans_tke_e )  THEN
 
-       CALL cpu_log( log_point_s(33), 'diss-equation', 'start' )
+       CALL cpu_log( log_point_s(64), 'diss-equation', 'start' )
 
        sbt = tsc(2)
@@ -2157 +2160 @@
        ENDIF
 
-       CALL cpu_log( log_point_s(33), 'diss-equation', 'stop' )
+       CALL cpu_log( log_point_s(64), 'diss-equation', 'stop' )
 
     ENDIF