Changeset 4218 for palm/trunk/SOURCE/chem_emissions_mod.f90

Timestamp:

Sep 4, 2019 2:03:30 PM (5 years ago)

Author:

knoop

Message:

Unused routine chem_emissions_check_parameters in chem_emissions_mod.f90 commented out due to uninitialized content

File:

• palm/trunk/SOURCE/chem_emissions_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Unused routine chem_emissions_check_parameters commented out due to uninitialized content
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -154 +157 @@
     SAVE
 
-!    
-!-- Checks Input parameters
-    INTERFACE chem_emissions_check_parameters
-       MODULE PROCEDURE chem_emissions_check_parameters
-    END INTERFACE chem_emissions_check_parameters
+! !
+! !-- Checks Input parameters
+!     INTERFACE chem_emissions_check_parameters
+!        MODULE PROCEDURE chem_emissions_check_parameters
+!     END INTERFACE chem_emissions_check_parameters
 !
 !-- Matching Emissions actions  
@@ -182 +185 @@
  CONTAINS
 
-!------------------------------------------------------------------------------!
-! Description:
-! ------------
-!> Routine for checking input parameters
-!------------------------------------------------------------------------------!
- SUBROUTINE chem_emissions_check_parameters
-
-    IMPLICIT NONE
-
-    TYPE(chem_emis_att_type) ::  emt
-
-!
-!-- Check if species count matches the number of names
-!-- passed for the chemiscal species
-
-    IF  ( SIZE(emt%species_name) /= emt%n_emiss_species  )  THEN
-!    IF  ( SIZE(emt%species_name) /= emt%nspec  )  THEN
-
-       message_string = 'Numbers of input emission species names and number of species'     //      &
-                         'for which emission values are given do not match'                  
-       CALL message( 'chem_emissions_check_parameters', 'CM0437', 2, 2, 0, 6, 0 ) 
-            
-    ENDIF
-
- END SUBROUTINE chem_emissions_check_parameters
+! !------------------------------------------------------------------------------!
+! ! Description:
+! ! ------------
+! !> Routine for checking input parameters
+! !------------------------------------------------------------------------------!
+!  SUBROUTINE chem_emissions_check_parameters
+!
+!     IMPLICIT NONE
+!
+!     TYPE(chem_emis_att_type) ::  emt
+!
+! !
+! !-- Check if species count matches the number of names
+! !-- passed for the chemiscal species
+!
+!     IF  ( SIZE(emt%species_name) /= emt%n_emiss_species  )  THEN
+! !    IF  ( SIZE(emt%species_name) /= emt%nspec  )  THEN
+!
+!        message_string = 'Numbers of input emission species names and number of species'     //      &
+!                          'for which emission values are given do not match'
+!        CALL message( 'chem_emissions_check_parameters', 'CM0437', 2, 2, 0, 6, 0 )
+!
+!     ENDIF
+!
+!  END SUBROUTINE chem_emissions_check_parameters