Changeset 3223 for palm/trunk


Ignore:
Timestamp:
Aug 30, 2018 1:48:17 PM (6 years ago)
Author:
suehring
Message:

Bugfix for last commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3222 r3223  
    2828! -----------------
    2929! $Id$
     30! Bugfix for commit 3222
     31!
     32! 3222 2018-08-30 13:35:35Z suehring
    3033! Introduction of surface array for type and its name
    3134!
     
    892895        ALLOCATE ( surf_usm_h%building_type(1:surf_usm_h%ns)      )
    893896        ALLOCATE ( surf_usm_h%building_type_name(1:surf_usm_h%ns) )
    894         surf_usm_h%building_type = 0
    895         surf_usm_h%building_type = 'none'
     897        surf_usm_h%building_type      = 0
     898        surf_usm_h%building_type_name = 'none'
    896899        DO  l = 0, 3
    897900           ALLOCATE( surf_usm_v(l)%surface_types(1:surf_usm_v(l)%ns) )
    898901           ALLOCATE ( surf_usm_v(l)%building_type(1:surf_usm_v(l)%ns)      )
    899902           ALLOCATE ( surf_usm_v(l)%building_type_name(1:surf_usm_v(l)%ns) )
    900            surf_usm_v(l)%building_type = 0
    901            surf_usm_v(l)%building_type = 'none'
     903           surf_usm_v(l)%building_type      = 0
     904           surf_usm_v(l)%building_type_name = 'none'
    902905        ENDDO
    903906!
Note: See TracChangeset for help on using the changeset viewer.