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

Timestamp:

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

Author:

kanani

Message:

restructure/add location/debug messages

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2009-2018 Carl von Ossietzky Universitaet Oldenburg
+! Copyright 2009-2019 Carl von Ossietzky Universitaet Oldenburg
 ! Copyright 1997-2019 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3875 2019-04-08 17:35:12Z knoop
 ! Addaped wtm_tendency to fit the module actions interface
 ! 
@@ -197 +201 @@
 
     USE control_parameters,                                                    &
-        ONLY:  coupling_char, dt_3d, dz, message_string, simulated_time,       &
+        ONLY:  coupling_char,                                                  &
+               debug_output,                                                   &
+               dt_3d, dz, message_string, simulated_time,                      &
                wind_turbine, initializing_actions
 
@@ -984 +990 @@
        INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: index_nact       !< 
        
-       CALL location_message( 'initializing wind turbine model', .FALSE. )
+       IF ( debug_output )  CALL debug_message( 'wtm_init', 'start' )
        
        ALLOCATE( index_nacb(1:nturbines) )
@@ -1341 +1347 @@
        CALL wtm_read_blade_tables
 
-       CALL location_message( 'finished', .TRUE. )
+       IF ( debug_output )  CALL debug_message( 'wtm_init', 'end' )
  
     END SUBROUTINE wtm_init