Changeset 4667 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Sep 9, 2020 12:52:40 PM (4 years ago)

Author:

pavelkrc

Message:

Limit vertical r_a in USM similarly to horizontal; improve debug messages

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (4 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Improve debug messages during timestepping
 ! 
 ! Former revisions:
@@ -274 +274 @@
                averaging_interval, averaging_interval_pr, bc_lr_cyc, bc_ns_cyc, bc_pt_t_val,       &
                bc_q_t_val, biometeorology, call_psolver_at_all_substeps,  child_domain,            &
-               constant_flux_layer, constant_heatflux, create_disturbances,        &
+               constant_flux_layer, constant_heatflux, create_disturbances,                        &
                dopr_n, constant_diffusion, coupling_mode, coupling_start_time,                     &
-               current_timestep_number, disturbance_created, disturbance_energy_limit, dist_range, &
+               current_timestep_number, debug_output_timestep, debug_string,                       &
+               disturbance_created, disturbance_energy_limit, dist_range,                          &
                do_sum, dt_3d, dt_averaging_input, dt_averaging_input_pr, dt_coupling,              &
                dt_data_output_av, dt_disturb, dt_do2d_xy, dt_do2d_xz, dt_do2d_yz, dt_do3d,         &
@@ -646 +647 @@
 
        CALL cpu_log( log_point_s(10), 'timesteps', 'start' )
+
+       IF ( debug_output_timestep )  THEN
+           WRITE( debug_string, * ) 'time_integration', simulated_time
+           CALL debug_message( debug_string, 'start' )
+       ENDIF
 
 !
@@ -1688 +1694 @@
        IF ( myid == 0 )  CALL output_progress_bar
 
+       IF ( debug_output_timestep )  THEN
+           WRITE( debug_string, * ) 'time_integration', simulated_time
+           CALL debug_message( debug_string, 'end' )
+       ENDIF
+
        CALL cpu_log( log_point_s(10), 'timesteps', 'stop' )