Changeset 4265 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Oct 15, 2019 4:16:24 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r4245 r4265 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix for last commit, exchange oro_max variable only when it is allocated 28 ! (not necessarily the case when topography is input from ASCII file). 29 ! 30 ! 4245 2019-09-30 08:40:37Z pavelkrc 27 31 ! Store oro_max (building z-offset) in 2D for building surfaces 28 32 ! … … 1446 1450 ENDDO 1447 1451 ! 1448 !-- Horizontal exchange the oro_max array 1449 CALL exchange_horiz_2d( buildings_f%oro_max(:,:), nbgp ) 1452 !-- Horizontal exchange the oro_max array, which is required to for 1453 !-- initialization of building-surface properties. 1454 IF ( ALLOCATED( buildings_f%oro_max ) ) THEN 1455 CALL exchange_horiz_2d( buildings_f%oro_max(:,:), nbgp ) 1456 ENDIF 1450 1457 ! 1451 1458 !-- Deallocate temporary arrays required for processing and reading data
Note: See TracChangeset
for help on using the changeset viewer.