Ignore:
Timestamp:
Feb 25, 2019 5:33:49 PM (2 years ago)
Author:
suehring
Message:

Replace work-around for ghost point exchange of 1-byte arrays with specific subroutine

File:
1 edited

Legend:

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

    r3761 r3763  
    2525! -----------------
    2626! $Id$
     27! Replace work-around for ghost point exchange of 1-byte arrays with specific
     28! routine as already done in other routines
     29!
     30! 3761 2019-02-25 15:31:42Z raasch
    2731! unused variables removed
    2832!
     
    17061710    INTEGER(iwp) ::  num_wall   !< number of surrounding vertical walls for a single grid point
    17071711
    1708     INTEGER(iwp), DIMENSION(nysg:nyng,nxlg:nxrg)           ::  var_exchange_int  !< dummy array for exchanging ghost-points
    17091712    INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE            ::  topo_tmp          !< temporary 3D-topography used to fill holes
    17101713    INTEGER(iwp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  topo_3d           !< 3D-topography array merging buildings and orography
     
    17271730       IF ( building_id_f%from_file )                                          &
    17281731          CALL exchange_horiz_2d_int( building_id_f%var, nys, nyn, nxl, nxr, nbgp )
    1729        IF ( building_type_f%from_file )  THEN
    1730           var_exchange_int = INT( building_type_f%var, KIND = 4 )
    1731           CALL exchange_horiz_2d_int( var_exchange_int, nys, nyn, nxl, nxr, nbgp )
    1732           building_type_f%var = INT( var_exchange_int, KIND = 1 )
    1733        ENDIF
     1732       IF ( building_type_f%from_file )                                        &
     1733          CALL exchange_horiz_2d_byte( building_type_f%var, nys, nyn, nxl, nxr, nbgp )
    17341734
    17351735       topo_tmp = topo_3d
     
    18791879    IF ( building_id_f%from_file )                                             &
    18801880       CALL exchange_horiz_2d_int( building_id_f%var, nys, nyn, nxl, nxr, nbgp )
    1881     IF ( building_type_f%from_file )  THEN
    1882        var_exchange_int = INT( building_type_f%var, KIND = 4 )
    1883        CALL exchange_horiz_2d_int( var_exchange_int, nys, nyn, nxl, nxr, nbgp )
    1884        building_type_f%var = INT( var_exchange_int, KIND = 1 )
    1885     ENDIF
     1881    IF ( building_type_f%from_file )                                           &
     1882       CALL exchange_horiz_2d_byte( building_type_f%var, nys, nyn, nxl, nxr, nbgp )
    18861883
    18871884 END SUBROUTINE filter_topography
Note: See TracChangeset for help on using the changeset viewer.