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

    r3786 r3885  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 2018-2018 Leibniz Universitaet Hannover
    18 ! Copyright 2018-2018 Hochschule Offenburg
     17! Copyright 2018-2019 Leibniz Universitaet Hannover
     18! Copyright 2018-2019 Hochschule Offenburg
    1919!--------------------------------------------------------------------------------!
    2020!
     
    2626! -----------------
    2727! $Id$
     28! Changes related to global restructuring of location messages and introduction
     29! of additional debug messages
     30!
     31! 3786 2019-03-06 16:58:03Z raasch
    2832! unused variables removed
    2933!
     
    8993
    9094    USE control_parameters,                                                    &
    91         ONLY:  initializing_actions
     95        ONLY:  debug_output, initializing_actions
    9296
    9397    USE kinds
     
    432436                                                           !< on local subdomain
    433437
    434     CALL location_message( 'initializing indoor model', .FALSE. )
     438    IF ( debug_output )  CALL debug_message( 'im_init', 'start' )
    435439
    436440!
     
    961965    ENDDO
    962966
    963     CALL location_message( 'finished', .TRUE. )
     967    IF ( debug_output )  CALL debug_message( 'im_init', 'end' )
    964968
    965969 END SUBROUTINE im_init
Note: See TracChangeset for help on using the changeset viewer.