Index: palm/trunk/SOURCE/surface_mod.f90
===================================================================
--- palm/trunk/SOURCE/surface_mod.f90	(revision 3253)
+++ palm/trunk/SOURCE/surface_mod.f90	(revision 3254)
@@ -26,4 +26,7 @@
 ! -----------------
 ! $Id$
+! Remove redundant subroutine argument
+! 
+! 3253 2018-09-17 08:39:12Z suehring
 ! Bugfix, missing deallocation of q_surface
 ! 
@@ -1815,5 +1818,5 @@
                                  topo_no_distinct
                       IF ( urban_surface  .AND.  building )  THEN
-                         CALL initialize_vertical_surfaces( 0, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_usm_v(0),     &
                                                             num_usm_v(0),      &
@@ -1822,5 +1825,5 @@
                                                             .FALSE., .TRUE. ) 
                       ELSEIF ( land_surface  .AND.  terrain )  THEN
-                         CALL initialize_vertical_surfaces( 0, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_lsm_v(0),     &
                                                             num_lsm_v(0),      &
@@ -1829,5 +1832,5 @@
                                                             .FALSE., .TRUE. ) 
                       ELSE
-                         CALL initialize_vertical_surfaces( 0, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_def_v(0),     &
                                                             num_def_v(0),      &
@@ -1847,5 +1850,5 @@
                                  topo_no_distinct
                       IF ( urban_surface  .AND.  building )  THEN
-                         CALL initialize_vertical_surfaces( 1, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_usm_v(1),     &
                                                             num_usm_v(1),      &
@@ -1854,5 +1857,5 @@
                                                             .TRUE., .FALSE. )
                       ELSEIF ( land_surface  .AND.  terrain )  THEN
-                         CALL initialize_vertical_surfaces( 1, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_lsm_v(1),     &
                                                             num_lsm_v(1),      &
@@ -1861,5 +1864,5 @@
                                                             .TRUE., .FALSE. )  
                       ELSE
-                         CALL initialize_vertical_surfaces( 1, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_def_v(1),     &
                                                             num_def_v(1),      &
@@ -1879,5 +1882,5 @@
                                  topo_no_distinct
                       IF ( urban_surface  .AND.  building )  THEN
-                         CALL initialize_vertical_surfaces( 2, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_usm_v(2),     &
                                                             num_usm_v(2),      &
@@ -1886,5 +1889,5 @@
                                                             .FALSE., .FALSE. ) 
                       ELSEIF ( land_surface  .AND.  terrain )  THEN
-                         CALL initialize_vertical_surfaces( 2, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_lsm_v(2),     &
                                                             num_lsm_v(2),      &
@@ -1893,5 +1896,5 @@
                                                             .FALSE., .FALSE. ) 
                       ELSE
-                         CALL initialize_vertical_surfaces( 2, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_def_v(2),     &
                                                             num_def_v(2),      &
@@ -1911,5 +1914,5 @@
                                  topo_no_distinct
                       IF ( urban_surface  .AND.  building )  THEN
-                         CALL initialize_vertical_surfaces( 3, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_usm_v(3),     &
                                                             num_usm_v(3),      &
@@ -1918,5 +1921,5 @@
                                                            .FALSE., .FALSE. ) 
                       ELSEIF ( land_surface  .AND.  terrain )  THEN
-                         CALL initialize_vertical_surfaces( 3, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_lsm_v(3),     &
                                                             num_lsm_v(3),      &
@@ -1925,5 +1928,5 @@
                                                            .FALSE., .FALSE. ) 
                       ELSE
-                         CALL initialize_vertical_surfaces( 3, k, j, i,        &
+                         CALL initialize_vertical_surfaces( k, j, i,           &
                                                             surf_def_v(3),     &
                                                             num_def_v(3),      &
@@ -2357,8 +2360,8 @@
 !> Initialize vertical surface elements. 
 !------------------------------------------------------------------------------!
-          SUBROUTINE initialize_vertical_surfaces( l, k, j, i, surf, num_v,    &
-                                                num_v_kji, east_facing,        &
-                                                west_facing, south_facing,     &
-                                                north_facing )       
+          SUBROUTINE initialize_vertical_surfaces( k, j, i, surf, num_v,       &
+                                                   num_v_kji, east_facing,     &
+                                                   west_facing, south_facing,  &
+                                                   north_facing )       
 
              IMPLICIT NONE 
