Changeset 4882 for palm/trunk

Timestamp:

Feb 19, 2021 10:49:44 PM (3 years ago)

Author:

forkel

Message:

removed unused lsp in subroutine initialize_top

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! removed lsp in subroutine nitialize_top
+!
+!
+! 4881 2021-02-19 22:05:08Z forkel
 ! removed constant_top_csflux option
 !
@@ -2894 +2898 @@
     INTEGER(iwp)  ::  num_h      !< current number of surface element
     INTEGER(iwp)  ::  num_h_kji  !< dummy increment
-    INTEGER(iwp)  ::  lsp        !< running index for chemical species
 
     TYPE( surf_type ) ::  surf   !< respective surface type