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

Timestamp:

Feb 6, 2019 1:10:18 PM (6 years ago)

Author:

kanani

Message:

Correct and clean-up cpu_logs, some overlapping counts (chemistry_model_mod, disturb_heatflux, large_scale_forcing_nudging_mod, ocean_mod, palm, prognostic_equations, synthetic_turbulence_generator_mod, time_integration, time_integration_spinup, turbulence_closure_mod)

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed log_point to log_point_s, otherwise this overlaps with 
+! 'all progn.equations' cpu measurement.
+! 
+! 3684 2019-01-20 20:20:58Z knoop
 ! Remove unused variable simulated_time
 ! 
@@ -214 +218 @@
 
     USE cpulog,                                                                &
-        ONLY:  cpu_log, log_point, log_point_s
+        ONLY:  cpu_log, log_point_s
 
     USE indices,                                                               &
@@ -1945 +1949 @@
     IF ( .NOT. constant_diffusion )  THEN
 
-       CALL cpu_log( log_point(16), 'tke-equation', 'start' )
+       CALL cpu_log( log_point_s(16), 'tke-equation', 'start' )
 
        sbt = tsc(2)
@@ -2053 +2057 @@
        ENDIF
 
-       CALL cpu_log( log_point(16), 'tke-equation', 'stop' )
+       CALL cpu_log( log_point_s(16), 'tke-equation', 'stop' )
 
     ENDIF   ! TKE equation
@@ -2061 +2065 @@
     IF ( rans_tke_e )  THEN
 
-       CALL cpu_log( log_point(33), 'diss-equation', 'start' )
+       CALL cpu_log( log_point_s(33), 'diss-equation', 'start' )
 
        sbt = tsc(2)
@@ -2153 +2157 @@
        ENDIF
 
-       CALL cpu_log( log_point(33), 'diss-equation', 'stop' )
+       CALL cpu_log( log_point_s(33), 'diss-equation', 'stop' )
 
     ENDIF