Changeset 3223 for palm

Timestamp:

Aug 30, 2018 1:48:17 PM (6 years ago)

Author:

suehring

Message:

Bugfix for last commit

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix for commit 3222
+! 
+! 3222 2018-08-30 13:35:35Z suehring
 ! Introduction of surface array for type and its name
 ! 
@@ -892 +895 @@
         ALLOCATE ( surf_usm_h%building_type(1:surf_usm_h%ns)      )
         ALLOCATE ( surf_usm_h%building_type_name(1:surf_usm_h%ns) )
-        surf_usm_h%building_type = 0
-        surf_usm_h%building_type = 'none'
+        surf_usm_h%building_type      = 0
+        surf_usm_h%building_type_name = 'none'
         DO  l = 0, 3
            ALLOCATE( surf_usm_v(l)%surface_types(1:surf_usm_v(l)%ns) )
            ALLOCATE ( surf_usm_v(l)%building_type(1:surf_usm_v(l)%ns)      )
            ALLOCATE ( surf_usm_v(l)%building_type_name(1:surf_usm_v(l)%ns) )
-           surf_usm_v(l)%building_type = 0
-           surf_usm_v(l)%building_type = 'none'
+           surf_usm_v(l)%building_type      = 0
+           surf_usm_v(l)%building_type_name = 'none'
         ENDDO
 !