Changeset 3898

Timestamp:

Apr 15, 2019 1:05:32 PM (6 years ago)

Author:

suehring

Message:

remove un-used variable

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -1318 +1318 @@
     INTEGER(iwp) ::  j               !< grid index along y-direction
     INTEGER(iwp) ::  k               !< grid index along z-direction
-    INTEGER(iwp) ::  l               !< running index for orientation of surface elements
     INTEGER(iwp) ::  m               !< running indices for surfaces
     INTEGER(iwp) ::  char_len        !< length of a character string