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

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2018-2018 Leibniz Universitaet Hannover
-! Copyright 2018-2018 Freie Universitaet Berlin
-! Copyright 2018-2018 Karlsruhe Institute of Technology
+! Copyright 2018-2019 Leibniz Universitaet Hannover
+! Copyright 2018-2019 Freie Universitaet Berlin
+! Copyright 2018-2019 Karlsruhe Institute of Technology
 !--------------------------------------------------------------------------------!
 !
@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3831 2019-03-28 09:11:22Z forkel
 ! added nvar to USE chem_gasphase_mod (chem_modules will not include nvar anymore) 
 ! 
@@ -112 +116 @@
 
     USE control_parameters,                                                    &
-        ONLY:  end_time, message_string, initializing_actions,                 &
+        ONLY:  debug_output,                                                   &
+               end_time, message_string, initializing_actions,                 &
                intermediate_timestep_count, dt_3d
  
@@ -248 +253 @@
 
 
-    CALL location_message( 'Matching input emissions and model chemistry species', .FALSE. )
+    IF ( debug_output )  CALL debug_message( 'chem_emissions_match', 'start' )
 
     !
@@ -696 +701 @@
        END SELECT
 
+       IF ( debug_output )  CALL debug_message( 'chem_emissions_match', 'end' )
+
  END SUBROUTINE chem_emissions_match
 
@@ -728 +735 @@
 
 
-  CALL location_message( 'Starting initialization of emission arrays', .FALSE. )
+  IF ( debug_output )  CALL debug_message( 'chem_emissions_init', 'start' )
 
   !
@@ -802 +809 @@
 
   ENDIF    
+
+  IF ( debug_output )  CALL debug_message( 'chem_emissions_init', 'end' )
 
  END SUBROUTINE chem_emissions_init