Changeset 3719 for palm/trunk/SOURCE/synthetic_turbulence_generator_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/synthetic_turbulence_generator_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed log_point measurement from stg_init, since this part is counted to
+! log_point(2) 'initialisation' already. Moved other log_points to calls of
+! the subroutines in time_integration for better overview.
+! 
+! 3646 2018-12-28 17:58:49Z kanani
 ! Bugfix: use time_since_reference_point instead of simulated_time (relevant
 ! when using wall/soil spinup)
@@ -182 +187 @@
                syn_turb_gen
 
-    USE cpulog,                                                                &
-        ONLY:  cpu_log, log_point
-
     USE indices,                                                               &
         ONLY:  nbgp, nzb, nzt, nxl, nxlg, nxr, nxrg, nys, nyn, nyng, nysg
@@ -573 +575 @@
 #endif
 
-    CALL  cpu_log( log_point(57), 'synthetic_turbulence_gen', 'start' )
-
 #if defined( __parallel )
 !
@@ -885 +885 @@
     ENDIF
 
-    CALL  cpu_log( log_point(57), 'synthetic_turbulence_gen', 'stop' )
-
  END SUBROUTINE stg_init
 
@@ -1085 +1083 @@
     REAL(wp) :: volume_flow_l   !< local mass flux through lateral boundary
 
-    CALL  cpu_log( log_point(57), 'synthetic_turbulence_gen', 'start' )
 
 !
@@ -1429 +1426 @@
     time_stg_call = 0.0_wp
 
-    CALL  cpu_log( log_point(57), 'synthetic_turbulence_gen', 'stop' )
 
  END SUBROUTINE stg_main
@@ -1833 +1829 @@
     INTEGER(iwp) ::  k
 
-    CALL  cpu_log( log_point(57), 'synthetic_turbulence_gen', 'start' )
+
 !
 !-- Compute mean boundary layer height according to Richardson-Bulk
@@ -1867 +1863 @@
     time_stg_adjust = 0.0_wp
     
-    CALL  cpu_log( log_point(57), 'synthetic_turbulence_gen', 'stop' )
     
  END SUBROUTINE stg_adjust