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

palm/trunk/SOURCE/salsa_mod.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2018-2018 University of Helsinki
+! Copyright 2018-2019 University of Helsinki
 ! Copyright 1997-2019 Leibniz Universitaet Hannover
 !--------------------------------------------------------------------------------!
@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3876 2019-04-08 18:41:49Z knoop
 ! Introduced salsa_actions module interface
 ! 
@@ -1290 +1294 @@
     INTEGER(iwp) :: j   !<
 
-    CALL location_message( 'initializing salsa (sectional aerosol module )', .TRUE. )
+    IF ( debug_output )  CALL debug_message( 'salsa_init', 'start' )
 
     bin_low_limits = 0.0_wp
@@ -1439 +1443 @@
     ENDIF
 
-    CALL location_message( 'finished', .TRUE. )
+    IF ( debug_output )  CALL debug_message( 'salsa_init', 'end' )
 
  END SUBROUTINE salsa_init
@@ -8087 +8091 @@
 !
 !--          Subrange 2b:
+!--          todo: this information should go to HEADER/RUN_CONTROL, it doesn't belong to the job log,
+!--          and actually, aerosol_flux_mass_fracs_b is not used anywhere else except for this message,
+!--          hence, what do we need it for?
              IF ( SUM( aerosol_flux_mass_fracs_b ) > 0.0_wp )  THEN
-                CALL location_message( '   salsa_emission_setup: emissions are soluble!', .TRUE. )
+                CALL debug_message( '   salsa_emission_setup: emissions are soluble!', 'info' )
              ENDIF
 
@@ -8681 +8688 @@
 !
 !--    Subrange 2b:
-       IF ( .NOT. no_insoluble )  THEN
-          CALL location_message( '    salsa_mass_flux: All emissions are soluble!', .TRUE. )
-       ENDIF
+!--          todo: this information should go to HEADER/RUN_CONTROL, it doesn't belong to the job log
+!        IF ( .NOT. no_insoluble )  THEN
+!           CALL location_message( '    salsa_mass_flux: All emissions are soluble!', .TRUE. )
+!        ENDIF
 
     END SUBROUTINE set_mass_flux
@@ -8776 +8784 @@
           END SELECT
        ENDDO
-       IF ( SUM( emission_index_chem ) == 0 )  THEN
-          CALL location_message( '    salsa_gas_emission_setup: no gas emissions', .TRUE. )
-       ENDIF
+!--          todo: this information should go to HEADER/RUN_CONTROL, it doesn't belong to the job log
+!        IF ( SUM( emission_index_chem ) == 0 )  THEN
+!           CALL location_message( '    salsa_gas_emission_setup: no gas emissions', .TRUE. )
+!        ENDIF
 !
 !--    Inquire the fill value