Changeset 4656 for palm


Ignore:
Timestamp:
Aug 28, 2020 2:51:30 PM (6 months ago)
Author:
pavelkrc
Message:

Bugfix for serial build

File:
1 edited

Legend:

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

    r4655 r4656  
    2828! -----------------
    2929! $Id$
     30! Bugfix for serial build
    3031!
    3132! 4653 2020-08-27 08:54:43Z pavelkrc
     
    87058706      INTEGER(iwp)                           ::  lastdir      !< wall direction before hitting this column
    87068707      INTEGER(iwp), DIMENSION(2)             ::  lastcolumn
     8708      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  vert_col     !< vertical faces from previous to current column
     8709      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  up_col       !< upward oriented surfaces in current column
     8710      INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  down_col     !< downward oriented surfaces in current column
    87078711
    87088712#if defined( __parallel )
     
    87108714      INTEGER(iwp)                           ::  wcount       !< RMA window item count
    87118715      INTEGER(MPI_ADDRESS_KIND)              ::  wdisp        !< RMA window displacement
    8712       INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  vert_col     !< vertical faces from previous to current column
    8713       INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  up_col       !< upward oriented surfaces in current column
    8714       INTEGER(iwp), DIMENSION(:), ALLOCATABLE::  down_col     !< downward oriented surfaces in current column
    87158716#endif
    87168717
Note: See TracChangeset for help on using the changeset viewer.