Changeset 3885 for palm/trunk/SOURCE/indoor_model_mod.f90

Timestamp:

Apr 11, 2019 11:29:34 AM (5 years ago)

Author:

kanani

Message:

restructure/add location/debug messages

File:

• palm/trunk/SOURCE/indoor_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2018-2018 Leibniz Universitaet Hannover
-! Copyright 2018-2018 Hochschule Offenburg
+! Copyright 2018-2019 Leibniz Universitaet Hannover
+! Copyright 2018-2019 Hochschule Offenburg
 !--------------------------------------------------------------------------------!
 !
@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3786 2019-03-06 16:58:03Z raasch
 ! unused variables removed
 ! 
@@ -89 +93 @@
 
     USE control_parameters,                                                    &
-        ONLY:  initializing_actions
+        ONLY:  debug_output, initializing_actions
 
     USE kinds
@@ -432 +436 @@
                                                            !< on local subdomain
 
-    CALL location_message( 'initializing indoor model', .FALSE. )
+    IF ( debug_output )  CALL debug_message( 'im_init', 'start' )
 
 !
@@ -961 +965 @@
     ENDDO
 
-    CALL location_message( 'finished', .TRUE. )
+    IF ( debug_output )  CALL debug_message( 'im_init', 'end' )
 
  END SUBROUTINE im_init