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/synthetic_turbulence_generator_mod.f90

    r3938 r3987  
    2525! -----------------
    2626! $Id$
     27! Introduce alternative switch for debug output during timestepping
     28!
     29! 3938 2019-04-29 16:06:25Z suehring
    2730! Remove unused variables
    2831!
     
    209212
    210213    USE control_parameters,                                                    &
    211         ONLY:  debug_output,                                                   &
    212                debug_string,                                                   &
     214        ONLY:  debug_output_timestep,                                          &
    213215               initializing_actions,                                           &
    214216               message_string,                                                 &
     
    11461148    REAL(wp) :: volume_flow_l   !< local mass flux through lateral boundary
    11471149
    1148 !
    1149 !-- Debug location message
    1150     IF ( debug_output )  THEN
    1151        WRITE( debug_string, * ) 'stg_main'
    1152        CALL debug_message( debug_string, 'start' )
    1153     ENDIF
     1150
     1151    IF ( debug_output_timestep )  CALL debug_message( 'stg_main', 'start' )
    11541152!
    11551153!-- Calculate time step which is needed for filter functions
     
    14931491!-- Finally, set time counter for calling STG to zero
    14941492    time_stg_call = 0.0_wp
    1495 !
    1496 !-- Debug location message
    1497     IF ( debug_output )  THEN
    1498        WRITE( debug_string, * ) 'stg_main'
    1499        CALL debug_message( debug_string, 'end' )
    1500     ENDIF
     1493
     1494    IF ( debug_output_timestep )  CALL debug_message( 'stg_main', 'end' )
    15011495
    15021496 END SUBROUTINE stg_main
     
    19001894    IMPLICIT NONE
    19011895
    1902 !
    1903 !-- Debug location message
    1904     IF ( debug_output )  THEN
    1905        WRITE( debug_string, * ) 'stg_adjust'
    1906        CALL debug_message( debug_string, 'start' )
    1907     ENDIF
     1896
     1897    IF ( debug_output_timestep )  CALL debug_message( 'stg_adjust', 'start' )
    19081898!
    19091899!-- Compute mean boundary layer height according to Richardson-Bulk
     
    19381928!-- Reset time counter for controlling next adjustment to zero
    19391929    time_stg_adjust = 0.0_wp
    1940 !
    1941 !-- Debug location message
    1942     IF ( debug_output )  THEN
    1943        WRITE( debug_string, * ) 'stg_adjust'
    1944        CALL debug_message( debug_string, 'end' )
    1945     ENDIF
     1930
     1931    IF ( debug_output_timestep )  CALL debug_message( 'stg_adjust', 'end' )
    19461932   
    19471933 END SUBROUTINE stg_adjust
Note: See TracChangeset for help on using the changeset viewer.