Changeset 3524 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Nov 14, 2018 1:36:44 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3502 r3524 28 28 ! ----------------- 29 29 ! $Id$ 30 ! bugfix concerning allocation of t_surf_wall_v 31 ! 32 ! 3502 2018-11-07 14:45:23Z suehring 30 33 ! Disable initialization of building roofs with ground-floor-level properties, 31 34 ! since this causes strong oscillations of surface temperature during the … … 7373 7376 IF ( k == 1 ) THEN 7374 7377 IF ( .NOT. ALLOCATED( t_surf_wall_v(0)%t ) ) & 7375 ALLOCATE( t_surf_ v(0)%t(1:surf_usm_v(0)%ns) )7378 ALLOCATE( t_surf_wall_v(0)%t(1:surf_usm_v(0)%ns) ) 7376 7379 READ ( 13 ) tmp_surf_wall_v(0)%t 7377 7380 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.