Changeset 4444 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (4 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4414 2020-02-19 20:16:04Z suehring
 ! - Remove deprecated topography arrays nzb_s_inner, nzb_u_inner, etc.
 ! - Move initialization of boundary conditions and multigrid into an extra
@@ -172 +175 @@
     USE pegrid
 
+#if defined( __parallel )
     USE vertical_nesting_mod,                                                  &
         ONLY:  vnested, vnest_init_grid
+#endif
 
     IMPLICIT NONE
@@ -751 +756 @@
        ENDDO
     ENDIF
+
+#if defined( __parallel )
 !
 !-- Vertical nesting: communicate vertical grid level arrays between fine and
 !-- coarse grid
     IF ( vnested )  CALL vnest_init_grid
+#endif
 
  END SUBROUTINE init_grid
@@ -948 +956 @@
     INTEGER(iwp) ::  topo_top_index   !< orography top index, used to map 3D buildings onto terrain
 
+#if defined( __parallel )
     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  displace_dum        !< displacements of start addresses, used for MPI_ALLGATHERV
+#endif
     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  build_ids           !< building IDs on entire model domain
     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  build_ids_final     !< building IDs on entire model domain, multiple occurences are sorted out