Ignore:
Timestamp:
Apr 11, 2019 11:29:34 AM (2 years ago)
Author:
kanani
Message:

restructure/add location/debug messages

File:
1 edited

Legend:

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

    r3775 r3885  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 2017 Leibniz Universitaet Hannover
     17! Copyright 2017-2019 Leibniz Universitaet Hannover
    1818!------------------------------------------------------------------------------!
    1919!
     
    2525! -----------------
    2626! $Id$
     27! Changes related to global restructuring of location messages and introduction
     28! of additional debug messages
     29!
     30!
    2731! removed unused variables
    2832!
     
    187191
    188192    USE control_parameters,                                                    &
    189         ONLY:  initializing_actions, num_mean_inflow_profiles, message_string, &
     193        ONLY:  debug_output,                                                   &
     194               debug_string,                                                   &
     195               initializing_actions,                                           &
     196               message_string,                                                 &
     197               num_mean_inflow_profiles,                                       &
    190198               syn_turb_gen
    191199
     
    10801088    REAL(wp) :: volume_flow_l   !< local mass flux through lateral boundary
    10811089
    1082 
     1090!
     1091!-- Debug location message
     1092    IF ( debug_output )  THEN
     1093       WRITE( debug_string, * ) 'stg_main'
     1094       CALL debug_message( debug_string, 'start' )
     1095    ENDIF
    10831096!
    10841097!-- Calculate time step which is needed for filter functions
     
    14221435!-- Finally, set time counter for calling STG to zero
    14231436    time_stg_call = 0.0_wp
    1424 
     1437!
     1438!-- Debug location message
     1439    IF ( debug_output )  THEN
     1440       WRITE( debug_string, * ) 'stg_main'
     1441       CALL debug_message( debug_string, 'end' )
     1442    ENDIF
    14251443
    14261444 END SUBROUTINE stg_main
     
    18251843
    18261844!
     1845!-- Debug location message
     1846    IF ( debug_output )  THEN
     1847       WRITE( debug_string, * ) 'stg_adjust'
     1848       CALL debug_message( debug_string, 'start' )
     1849    ENDIF
     1850!
    18271851!-- Compute mean boundary layer height according to Richardson-Bulk
    18281852!-- criterion using the inflow profiles. Further velocity scale as well as
     
    18561880!-- Reset time counter for controlling next adjustment to zero
    18571881    time_stg_adjust = 0.0_wp
    1858    
     1882!
     1883!-- Debug location message
     1884    IF ( debug_output )  THEN
     1885       WRITE( debug_string, * ) 'stg_adjust'
     1886       CALL debug_message( debug_string, 'end' )
     1887    ENDIF
    18591888   
    18601889 END SUBROUTINE stg_adjust
Note: See TracChangeset for help on using the changeset viewer.