Changeset 3223 for palm/trunk
- Timestamp:
- Aug 30, 2018 1:48:17 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3222 r3223 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Bugfix for commit 3222 31 ! 32 ! 3222 2018-08-30 13:35:35Z suehring 30 33 ! Introduction of surface array for type and its name 31 34 ! … … 892 895 ALLOCATE ( surf_usm_h%building_type(1:surf_usm_h%ns) ) 893 896 ALLOCATE ( surf_usm_h%building_type_name(1:surf_usm_h%ns) ) 894 surf_usm_h%building_type = 0895 surf_usm_h%building_type = 'none'897 surf_usm_h%building_type = 0 898 surf_usm_h%building_type_name = 'none' 896 899 DO l = 0, 3 897 900 ALLOCATE( surf_usm_v(l)%surface_types(1:surf_usm_v(l)%ns) ) 898 901 ALLOCATE ( surf_usm_v(l)%building_type(1:surf_usm_v(l)%ns) ) 899 902 ALLOCATE ( surf_usm_v(l)%building_type_name(1:surf_usm_v(l)%ns) ) 900 surf_usm_v(l)%building_type = 0901 surf_usm_v(l)%building_type = 'none'903 surf_usm_v(l)%building_type = 0 904 surf_usm_v(l)%building_type_name = 'none' 902 905 ENDDO 903 906 !
Note: See TracChangeset
for help on using the changeset viewer.