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

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed log_point(19,54,74,50,75), since they count together with same log
+! points in time_integration, impossible to separate the contributions.
+! Instead, the entire spinup gets an individual log_point in palm.f90
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Removed call to calculation of near air (10 cm) potential temperature (now in
 ! surface layer fluxes)
@@ -360 +365 @@
 !--          (constant flux) layer are computed
              IF ( constant_flux_layer )  THEN
-                CALL cpu_log( log_point(19), 'surface_layer_fluxes', 'start' )
                 CALL surface_layer_fluxes
-                CALL cpu_log( log_point(19), 'surface_layer_fluxes', 'stop' )
              ENDIF
 
@@ -371 +374 @@
              IF ( land_surface )  THEN
 
-                CALL cpu_log( log_point(54), 'land_surface', 'start' )
 !
 !--             Call for horizontal upward-facing surfaces
@@ -392 +394 @@
                 CALL lsm_energy_balance( .FALSE., 3 )
                 CALL lsm_soil_model( .FALSE., 3, calc_soil_moisture_during_spinup )
-                
-                CALL cpu_log( log_point(54), 'land_surface', 'stop' )
+
              ENDIF
 
@@ -400 +401 @@
 !--          the material heat model
              IF (urban_surface) THEN
-                CALL cpu_log( log_point(74), 'urban_surface', 'start' )
+
                 CALL usm_surface_energy_balance( .TRUE. )
                 IF ( usm_material_model )  THEN
@@ -406 +407 @@
                    CALL usm_material_heat_model( .TRUE. )
                 ENDIF
-                
-                CALL cpu_log( log_point(74), 'urban_surface', 'stop' )
+
              ENDIF
 
@@ -422 +422 @@
              THEN
 
-                CALL cpu_log( log_point(50), 'radiation', 'start' )
-
                 IF ( .NOT. force_radiation_call )  THEN
                    time_radiation = time_radiation - dt_3d
@@ -430 +428 @@
                 CALL radiation_control
 
-                CALL cpu_log( log_point(50), 'radiation', 'stop' )
-
                 IF ( radiation_interactions )  THEN
-                   CALL cpu_log( log_point(75), 'radiation_interaction', 'start' )
                    CALL radiation_interaction
-                   CALL cpu_log( log_point(75), 'radiation_interaction', 'stop' )
                 ENDIF
              ENDIF