Changeset 4265 for palm/trunk

Timestamp:

Oct 15, 2019 4:16:24 PM (5 years ago)

Author:

suehring

Message:

Minor bugfix in init_grid, exchange of oro_max information only if the array is also allocated

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for last commit, exchange oro_max variable only when it is allocated 
+! (not necessarily the case when topography is input from ASCII file).
+! 
+! 4245 2019-09-30 08:40:37Z pavelkrc
 ! Store oro_max (building z-offset) in 2D for building surfaces
 ! 
@@ -1446 +1450 @@
        ENDDO
 !
-!--    Horizontal exchange the oro_max array
-       CALL exchange_horiz_2d( buildings_f%oro_max(:,:), nbgp )
+!--    Horizontal exchange the oro_max array, which is required to for
+!--    initialization of building-surface properties.
+       IF ( ALLOCATED( buildings_f%oro_max ) )  THEN
+          CALL exchange_horiz_2d( buildings_f%oro_max(:,:), nbgp )
+       ENDIF
 !
 !--    Deallocate temporary arrays required for processing and reading data