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

Timestamp:

Feb 26, 2021 4:22:32 PM (4 years ago)

Author:

banzhafs

Message:

Unnecessary comments removed from chemistry_model_mod and chem_emissions_mod

File:

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

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Unnecessary comments removed
+!
+! 4828 2021-01-05 11:21:41Z Giersch 
 ! Implementation of downward facing USM and LSM surfaces
-! 
+!
 ! 4559 2020-06-11 08:51:48Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
 ! 4481 2020-03-31 18:55:54Z maronga
-! Implemented on-demand read mode for LOD 2 (ECC)
+! Implemented on-demand read mode for LOD 2 NB
 !  - added following module global variables
 !    - input_file_chem (namesake in netcdf_data_input_mod is local)
@@ -126 +129 @@
 !>  MODULE for reading-in Chemistry Emissions data
 !>
-!> @todo Rename nspec to n_emis to avoid inteferece with nspec from chem_gasphase_mod
-!> @todo Check_parameters routine should be developed: for now it includes just one condition
-!> @todo Use of Restart files not contempled at the moment
-!> @todo revise indices of files read from the netcdf: preproc_emission_data and expert_emission_data
-!> @todo for now emission data may be passed on a singular vertical level: need to be more flexible
-!> @todo fill/activate restart option in chem_emissions_init
-!> @todo discuss dt_emis
 !> @note <Enter notes on the module>
 !> @bug  <Enter known bugs here>
@@ -169 +165 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !-- Added new palm_date_time_mod for on-demand emission reading
 
@@ -181 +177 @@
 
 !
-!-- 20200203 (ECC) - variable unused
-!    CHARACTER (LEN=80) ::  filename_emis           !< Variable for the name of the netcdf input file
-
-!
-!-- 20200203 (ECC) new variables for on-demand read mode
+!-- 20200203 NB new variables for on-demand read mode
 
     CHARACTER(LEN=*),   PARAMETER   :: input_file_chem = 'PIDS_CHEM' !< chemistry file
@@ -210 +202 @@
     SAVE
 
-! !
-! !-- Checks Input parameters
-!     INTERFACE chem_emissions_check_parameters
-!        MODULE PROCEDURE chem_emissions_check_parameters
-!     END INTERFACE chem_emissions_check_parameters
 !
 !-- Matching Emissions actions
@@ -232 +219 @@
 
 !
-!-- 20200203 (ECC) new interfaces for on-demand mode
+!-- 20200203 NB new interfaces for on-demand mode
 
 !
@@ -246 +233 @@
 
 !
-!-- 20200203 (ECC) update public routines
-
-!    PUBLIC chem_emissions_init, chem_emissions_match, chem_emissions_setup
+!-- 20200203 NB update public routines
 
     PUBLIC chem_emissions_init, chem_emissions_match, chem_emissions_setup,                        &
@@ -257 +242 @@
 
  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
 
 
@@ -794 +753 @@
 
     INTEGER(iwp) :: ispec                        !< running index
-
-!
-!-- Actions for initial runs
-!  IF  (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
-!--    ...
-!
-!
-!-- Actions for restart runs
-!  ELSE
-!--    ...
-!
-!  ENDIF
 
 
@@ -1093 +1040 @@
                                              hyp(nzb:nzt+1)                            ! Pa
 
-! (ecc) for reference
-!                   m**3/Nmole               (J/mol)*K^-1           K                      Pa
-!             conv_to_ratio(nzb:nzt+1,j,i) = ( (Rgas * tmp_temp(nzb:nzt+1,j,i)) / ((hyp(nzb:nzt+1))) )
-
           ENDDO
        ENDDO
 
 
-! (ecc) moved initialization immediately after allocation
-!
-!-- Initialize
-
-!       emis_distribution(:,nys:nyn,nxl:nxr,:) = 0.0_wp
-
-
 !
 !-- LOD 2 (PRE-PROCESSED MODE)
 
        IF  ( emiss_lod == 2 )  THEN
-
-! for reference (ecc)
-!       IF  ( TRIM( mode_emis ) == "PRE-PROCESSED" )  THEN
 
 !
@@ -1130 +1063 @@
 !--     LOD 1 (DEFAULT MODE)
         ELSEIF  ( emiss_lod == 1 )  THEN
-
-! for reference (ecc)
-!       ELSEIF  ( TRIM( mode_emis ) == "DEFAULT" )  THEN
 
 !
@@ -1232 +1162 @@
 
 
-! for reference (ecc)
-!       ELSEIF  ( TRIM( mode_emis ) == "PARAMETERIZED" )  THEN
-
 !
 !--       Assign constant values of time factors, diurnal profile for traffic sector
@@ -1257 +1184 @@
 !--  Emission distribution calculation
 
-!
-!--    LOD 0 (PARAMETERIZED mode)
        IF  ( emiss_lod == 0 )  THEN
-
-! for reference (ecc)
-!       IF  ( TRIM( mode_emis ) == "PARAMETERIZED" )  THEN
 
           DO  ispec = 1, n_matched_vars
@@ -1277 +1199 @@
 !--    LOD 1 (DEFAULT mode)
        ELSEIF  ( emiss_lod == 1 )  THEN
-
-! for referene (ecc)
-!       ELSEIF  ( TRIM( mode_emis ) == "DEFAULT" )  THEN
 
 !
@@ -1448 +1367 @@
        ELSEIF  ( emiss_lod == 2 )  THEN
 
-! for reference (ecc)
-!       ELSEIF  ( TRIM( mode_emis ) == "PRE-PROCESSED" )  THEN
-
 !
 !--       Cycle over species: n_matched_vars represents the number of species in common between the
@@ -1461 +1377 @@
                                        * conversion_factor
 
-
-!             emis_distribution(1,nys:nyn,nxl:nxr,ispec) =                                &
-!                       emt(match_spec_input(ispec))%                                     &
-!                           preproc_emission_data(index_hh,1,:,:) *   &
-!                       conversion_factor
           ENDDO
 
@@ -1479 +1390 @@
 !--    Units of inputs are micromoles/m2/s
        IF  ( emiss_lod == 0 )  THEN
-! for reference (ecc)
-!       IF  ( TRIM( mode_emis ) == "PARAMETERIZED" )  THEN
 
           IF  (street_type_f%from_file)  THEN
@@ -1577 +1486 @@
                    ENDDO  ! ispec
 
-!
-!-- If no street type is defined, then assign zero emission to all the species
-! (ecc) moved to front (for reference)
-!                ELSE
-!
-!                   surf_lsm_h(0)%cssws(:,m) = 0.0_wp
-
                 ENDIF  ! street type
 
@@ -1775 +1677 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!
-!! 20200203 (ECC) - ON DEMAND EMISSION UPDATE MODE
+!! 20200203 NB - ON DEMAND EMISSION UPDATE MODE
 !!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -1793 +1695 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -1819 +1721 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -1850 +1752 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -1910 +1812 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2092 +1994 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2119 +2021 @@
                         chem_emis_att%n_emiss_species )
 !
-!-  Backward compatibility for salsa_mod (ECC)
+!-  Backward compatibility for salsa_mod NB
     chem_emis_att%nspec = chem_emis_att%n_emiss_species
 !
@@ -2160 +2062 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2214 +2116 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2312 +2214 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2395 +2297 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2421 +2323 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!
@@ -2458 +2360 @@
 
 !
-!-- 20200203 (ECC)
+!-- 20200203 NB
 !
 !--------------------------------------------------------------------------------------------------!