Changeset 4265 for palm/trunk


Ignore:
Timestamp:
Oct 15, 2019 4:16:24 PM (4 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

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

    r4245 r4265  
    2525! -----------------
    2626! $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
    2731! Store oro_max (building z-offset) in 2D for building surfaces
    2832!
     
    14461450       ENDDO
    14471451!
    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
    14501457!
    14511458!--    Deallocate temporary arrays required for processing and reading data
Note: See TracChangeset for help on using the changeset viewer.