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

Timestamp:

Mar 7, 2019 11:40:09 AM (5 years ago)

Author:

banzhafs

Message:

Removed unused variables from chem_emissions_mod

File:

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

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Removed unused variables from chem_emissions_mod
+! 
+!3772 2019-02-28 15:51:57Z suehring 
 ! - In case of parametrized emissions, assure that emissions are only on natural
 !   surfaces (i.e. streets) and not on urban surfaces. 
 ! - some unnecessary if clauses removed
-! 
-! 3685 2019-01-21 01:02:11Z knoop
+!
+!3685 2019 -01-21 01:02:11Z knoop
 ! Some interface calls moved to module_interface + cleanup
 ! 
@@ -204 +207 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  tmp
-
     TYPE(chem_emis_att_type) ::  emt
 
@@ -703 +704 @@
  SUBROUTINE chem_emissions_init
 
-    USE surface_mod,                                                           &
-        ONLY:  surf_def_h, surf_lsm_h, surf_usm_h
-
     USE netcdf_data_input_mod,                                                 &
         ONLY:  chem_emis, chem_emis_att
@@ -711 +709 @@
     IMPLICIT NONE
  
-    CHARACTER (LEN=80)          ::  units                                           !< units of inputs
-
     INTEGER(iwp)                :: ispec                                            !< running index
 
@@ -814 +810 @@
 
  SUBROUTINE chem_emissions_setup( emt_att, emt, nspec_out )
-
-   USE arrays_3d,                                                    &
-       ONLY:  dzw
-   USE grid_variables,                                               &
-       ONLY: dx, dy
-   USE indices,                                                      &
-       ONLY: nnx, nny, nnz 
+ 
    USE surface_mod,                                                  &
        ONLY:  surf_def_h, surf_lsm_h, surf_usm_h
@@ -839 +829 @@
     INTEGER,INTENT(IN) ::  nspec_out                                            !< Output of matching routine with number
                                                                                 !< of matched species
-
-    CHARACTER(LEN=80) ::  units                                                 !< Units of the emission data
 
     INTEGER(iwp) ::  i                                                          !< running index for grid in x-direction
@@ -851 +839 @@
     INTEGER(iwp) ::  i_pm_comp                                                  !< index for number of PM components
     INTEGER(iwp) ::  ivoc                                                       !< Index for number of VOCs
-    INTEGER(iwp) ::  time_index                                                 !< Index for time
 
     REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::  delta_emis