Changeset 4656 for palm/trunk

Timestamp:

Aug 28, 2020 2:51:30 PM (4 years ago)

Author:

pavelkrc

Message:

Bugfix for serial build

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix for serial build
 !
 ! 4653 2020-08-27 08:54:43Z pavelkrc
@@ -8705 +8706 @@
       INTEGER(iwp)                           ::  lastdir      !< wall direction before hitting this column
       INTEGER(iwp), DIMENSION(2)             ::  lastcolumn
+      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  vert_col     !< vertical faces from previous to current column
+      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  up_col       !< upward oriented surfaces in current column
+      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  down_col     !< downward oriented surfaces in current column
 
 #if defined( __parallel )
@@ -8710 +8714 @@
       INTEGER(iwp)                           ::  wcount       !< RMA window item count
       INTEGER(MPI_ADDRESS_KIND)              ::  wdisp        !< RMA window displacement
-      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  vert_col     !< vertical faces from previous to current column
-      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  up_col       !< upward oriented surfaces in current column
-      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  down_col     !< downward oriented surfaces in current column
 #endif