Changeset 3885 for palm/trunk/SOURCE/biometeorology_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/biometeorology_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3753 2019-02-19 14:48:54Z dom_dwd_user
 ! - Added automatic setting of mrt_nlevels in case it was not part of 
 ! radiation_parameters namelist (or set to 0 accidentially).
@@ -150 +154 @@
 
     USE control_parameters,                                                    &
-        ONLY:  average_count_3d, biometeorology, dz, dz_stretch_factor,        &
+        ONLY:  average_count_3d, biometeorology,                               &
+               debug_output,                                                   &
+               dz, dz_stretch_factor,                                          &
                dz_stretch_level, humidity, initializing_actions, nz_do3d,      &
                surface_pressure
@@ -1209 +1215 @@
     REAL ( wp )  :: height  !< current height in meters
 
-    CALL location_message( 'initializing biometeorology module', .FALSE. )
+    IF ( debug_output )  CALL debug_message( 'bio_init', 'start' )
 !
 !-- Determine cell level corresponding to 1.1 m above ground level
@@ -1229 +1235 @@
     IF ( uv_exposure )  CALL netcdf_data_input_uvem
 
-    CALL location_message( 'finished', .TRUE. )
+    IF ( debug_output )  CALL debug_message( 'bio_init', 'end' )
 
  END SUBROUTINE bio_init