Changeset 4667


Ignore:
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

Location:
palm/trunk/SOURCE
Files:
4 edited

Legend:

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

    r4664 r4667  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Improve debug messages during timestepping
    2626!
    2727! Former revisions:
     
    58845884#endif
    58855885
    5886      IF ( debug_output_timestep )  CALL debug_message( 'radiation_interaction', 'start' )
     5886     IF ( debug_output_timestep )  THEN
     5887         WRITE( debug_string, * ) 'radiation_interaction', time_since_reference_point
     5888         CALL debug_message( debug_string, 'start' )
     5889     ENDIF
    58875890
    58885891     IF ( plant_canopy )  THEN
  • 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
  • palm/trunk/SOURCE/time_integration_spinup.f90

    r4655 r4667  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Improve debug messages during timestepping
    2323!
    2424! Former revisions:
     
    100100               coupling_start_time,                                                                &
    101101               data_output_during_spinup,                                                          &
     102               debug_output_timestep,                                                              &
     103               debug_string,                                                                       &
    102104               dopr_n,                                                                             &
    103105               do_sum,                                                                             &
     
    305307       CALL cpu_log( log_point_s(15), 'timesteps spinup', 'start' )
    306308
     309       IF ( debug_output_timestep )  THEN
     310           WRITE( debug_string, * ) 'time_integration_spinup', simulated_time
     311           CALL debug_message( debug_string, 'start' )
     312       ENDIF
     313
    307314!
    308315!--    Start of intermediate step loop
     
    606613       ENDIF
    607614
     615       IF ( debug_output_timestep )  THEN
     616           WRITE( debug_string, * ) 'time_integration_spinup', simulated_time
     617           CALL debug_message( debug_string, 'end' )
     618       ENDIF
    608619
    609620
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r4660 r4667  
    2222! Current revisions:
    2323! -----------------
    24 !
     24! Limit vertical r_a similarly to horizontal
    2525!
    2626! Former revisions:
     
    80708070!--        Limit aerodynamic resistance
    80718071           IF ( surf_usm_v(l)%r_a(m) < 1.0_wp )  surf_usm_v(l)%r_a(m) = 1.0_wp
     8072           IF ( surf_usm_v(l)%r_a(m) > 300.0_wp )  surf_usm_v(l)%r_a(m) = 300.0_wp
    80728073
    80738074           f_shf         = rho_cp / surf_usm_v(l)%r_a(m)
Note: See TracChangeset for help on using the changeset viewer.