Changeset 3763 for palm/trunk

Timestamp:

Feb 25, 2019 5:33:49 PM (6 years ago)

Author:

suehring

Message:

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

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Replace work-around for ghost point exchange of 1-byte arrays with specific 
+! routine as already done in other routines
+! 
+! 3761 2019-02-25 15:31:42Z raasch
 ! unused variables removed
 ! 
@@ -1706 +1710 @@
     INTEGER(iwp) ::  num_wall   !< number of surrounding vertical walls for a single grid point
 
-    INTEGER(iwp), DIMENSION(nysg:nyng,nxlg:nxrg)           ::  var_exchange_int  !< dummy array for exchanging ghost-points 
     INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE            ::  topo_tmp          !< temporary 3D-topography used to fill holes
     INTEGER(iwp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  topo_3d           !< 3D-topography array merging buildings and orography
@@ -1727 +1730 @@
        IF ( building_id_f%from_file )                                          &
           CALL exchange_horiz_2d_int( building_id_f%var, nys, nyn, nxl, nxr, nbgp )
-       IF ( building_type_f%from_file )  THEN
-          var_exchange_int = INT( building_type_f%var, KIND = 4 )
-          CALL exchange_horiz_2d_int( var_exchange_int, nys, nyn, nxl, nxr, nbgp )
-          building_type_f%var = INT( var_exchange_int, KIND = 1 )
-       ENDIF
+       IF ( building_type_f%from_file )                                        &
+          CALL exchange_horiz_2d_byte( building_type_f%var, nys, nyn, nxl, nxr, nbgp )
 
        topo_tmp = topo_3d
@@ -1879 +1879 @@
     IF ( building_id_f%from_file )                                             &
        CALL exchange_horiz_2d_int( building_id_f%var, nys, nyn, nxl, nxr, nbgp )
-    IF ( building_type_f%from_file )  THEN
-       var_exchange_int = INT( building_type_f%var, KIND = 4 )
-       CALL exchange_horiz_2d_int( var_exchange_int, nys, nyn, nxl, nxr, nbgp )
-       building_type_f%var = INT( var_exchange_int, KIND = 1 )
-    ENDIF
+    IF ( building_type_f%from_file )                                           &
+       CALL exchange_horiz_2d_byte( building_type_f%var, nys, nyn, nxl, nxr, nbgp )
 
  END SUBROUTINE filter_topography