Changeset 4218 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chem_emissions_mod.f90

    r4182 r4218  
    2727! -----------------
    2828! $Id$
     29! Unused routine chem_emissions_check_parameters commented out due to uninitialized content
     30!
     31! 4182 2019-08-22 15:20:23Z scharf
    2932! Corrected "Former revisions" section
    3033!
     
    154157    SAVE
    155158
    156 !    
    157 !-- Checks Input parameters
    158     INTERFACE chem_emissions_check_parameters
    159        MODULE PROCEDURE chem_emissions_check_parameters
    160     END INTERFACE chem_emissions_check_parameters
     159! !
     160! !-- Checks Input parameters
     161!     INTERFACE chem_emissions_check_parameters
     162!        MODULE PROCEDURE chem_emissions_check_parameters
     163!     END INTERFACE chem_emissions_check_parameters
    161164!
    162165!-- Matching Emissions actions 
     
    182185 CONTAINS
    183186
    184 !------------------------------------------------------------------------------!
    185 ! Description:
    186 ! ------------
    187 !> Routine for checking input parameters
    188 !------------------------------------------------------------------------------!
    189  SUBROUTINE chem_emissions_check_parameters
    190 
    191     IMPLICIT NONE
    192 
    193     TYPE(chem_emis_att_type) ::  emt
    194 
    195 !
    196 !-- Check if species count matches the number of names
    197 !-- passed for the chemiscal species
    198 
    199     IF  ( SIZE(emt%species_name) /= emt%n_emiss_species  )  THEN
    200 !    IF  ( SIZE(emt%species_name) /= emt%nspec  )  THEN
    201 
    202        message_string = 'Numbers of input emission species names and number of species'     //      &
    203                          'for which emission values are given do not match'                 
    204        CALL message( 'chem_emissions_check_parameters', 'CM0437', 2, 2, 0, 6, 0 )
    205            
    206     ENDIF
    207 
    208  END SUBROUTINE chem_emissions_check_parameters
     187! !------------------------------------------------------------------------------!
     188! ! Description:
     189! ! ------------
     190! !> Routine for checking input parameters
     191! !------------------------------------------------------------------------------!
     192! SUBROUTINE chem_emissions_check_parameters
     193!
     194!     IMPLICIT NONE
     195!
     196!     TYPE(chem_emis_att_type) ::  emt
     197!
     198! !
     199! !-- Check if species count matches the number of names
     200! !-- passed for the chemiscal species
     201!
     202!     IF  ( SIZE(emt%species_name) /= emt%n_emiss_species  )  THEN
     203! !    IF  ( SIZE(emt%species_name) /= emt%nspec  )  THEN
     204!
     205!        message_string = 'Numbers of input emission species names and number of species'     //      &
     206!                          'for which emission values are given do not match'
     207!        CALL message( 'chem_emissions_check_parameters', 'CM0437', 2, 2, 0, 6, 0 )
     208!
     209!     ENDIF
     210!
     211! END SUBROUTINE chem_emissions_check_parameters
    209212
    210213
Note: See TracChangeset for help on using the changeset viewer.