Ignore:
Timestamp:
Sep 9, 2020 12:52:40 PM (11 months ago)
Author:
pavelkrc
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/time_integration.f90

    r4581 r4667  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Improve debug messages during timestepping
    2323!
    2424! Former revisions:
     
    274274               averaging_interval, averaging_interval_pr, bc_lr_cyc, bc_ns_cyc, bc_pt_t_val,       &
    275275               bc_q_t_val, biometeorology, call_psolver_at_all_substeps,  child_domain,            &
    276                constant_flux_layer, constant_heatflux, create_disturbances,        &
     276               constant_flux_layer, constant_heatflux, create_disturbances,                        &
    277277               dopr_n, constant_diffusion, coupling_mode, coupling_start_time,                     &
    278                current_timestep_number, disturbance_created, disturbance_energy_limit, dist_range, &
     278               current_timestep_number, debug_output_timestep, debug_string,                       &
     279               disturbance_created, disturbance_energy_limit, dist_range,                          &
    279280               do_sum, dt_3d, dt_averaging_input, dt_averaging_input_pr, dt_coupling,              &
    280281               dt_data_output_av, dt_disturb, dt_do2d_xy, dt_do2d_xz, dt_do2d_yz, dt_do3d,         &
     
    646647
    647648       CALL cpu_log( log_point_s(10), 'timesteps', 'start' )
     649
     650       IF ( debug_output_timestep )  THEN
     651           WRITE( debug_string, * ) 'time_integration', simulated_time
     652           CALL debug_message( debug_string, 'start' )
     653       ENDIF
    648654
    649655!
     
    16881694       IF ( myid == 0 )  CALL output_progress_bar
    16891695
     1696       IF ( debug_output_timestep )  THEN
     1697           WRITE( debug_string, * ) 'time_integration', simulated_time
     1698           CALL debug_message( debug_string, 'end' )
     1699       ENDIF
     1700
    16901701       CALL cpu_log( log_point_s(10), 'timesteps', 'stop' )
    16911702
Note: See TracChangeset for help on using the changeset viewer.