Ignore:
Timestamp:
May 22, 2019 9:52:13 AM (2 years ago)
Author:
kanani
Message:

clean up location, debug and error messages

File:
1 edited

Legend:

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

    r3943 r3987  
    2828! -----------------
    2929! $Id$
     30! Introduce alternative switch for debug output during timestepping
     31!
     32! 3943 2019-05-02 09:50:41Z maronga
    3033! Removed qsws_eb. Bugfix in calculation of qsws.
    3134!
     
    489492    USE control_parameters,                                                    &
    490493        ONLY:  coupling_start_time, topography,                                &
    491                debug_output, debug_string,                                     &
     494               debug_output, debug_output_timestep, debug_string,              &
    492495               dt_3d, humidity, indoor_model,                                  &
    493496               intermediate_timestep_count, initializing_actions,              &
     
    52675270
    52685271
    5269         IF ( debug_output )  THEN
     5272        IF ( debug_output_timestep )  THEN
    52705273           WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup
    52715274           CALL debug_message( debug_string, 'start' )
     
    56445647        !$OMP END PARALLEL
    56455648
    5646         IF ( debug_output )  THEN
     5649        IF ( debug_output_timestep )  THEN
    56475650           WRITE( debug_string, * ) 'usm_material_heat_model | spinup: ', spinup
    56485651           CALL debug_message( debug_string, 'end' )
     
    56825685
    56835686
    5684         IF ( debug_output )  CALL debug_message( 'usm_green_heat_model', 'start' )
     5687        IF ( debug_output_timestep )  CALL debug_message( 'usm_green_heat_model', 'start' )
    56855688
    56865689        drho_l_lv = 1.0_wp / (rho_l * l_v)
     
    60126015        ENDDO
    60136016
    6014         IF ( debug_output )  CALL debug_message( 'usm_green_heat_model', 'end' )
     6017        IF ( debug_output_timestep )  CALL debug_message( 'usm_green_heat_model', 'end' )
    60156018
    60166019    END SUBROUTINE usm_green_heat_model
     
    77077710
    77087711
    7709         IF ( debug_output )  THEN
     7712        IF ( debug_output_timestep )  THEN
    77107713           WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup
    77117714           CALL debug_message( debug_string, 'start' )
     
    87538756!        END SUBROUTINE calc_q_surface_usm
    87548757
    8755         IF ( debug_output )  THEN
     8758        IF ( debug_output_timestep )  THEN
    87568759           WRITE( debug_string, * ) 'usm_surface_energy_balance | spinup: ', spinup
    87578760           CALL debug_message( debug_string, 'end' )
Note: See TracChangeset for help on using the changeset viewer.