Ignore:
Timestamp:
Jun 8, 2017 7:55:13 AM (4 years ago)
Author:
suehring
Message:

Bugfix, add pre-preprocessor directives to enable non-parrallel mode

File:
1 edited

Legend:

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

    r2233 r2258  
    2626! -----------------
    2727! $Id$
     28! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
     29!
     30! 2233 2017-05-30 18:08:54Z suehring
    2831!
    2932! 2232 2017-05-30 17:47:52Z suehring
     
    299302    REAL(wp), DIMENSION(:), ALLOCATABLE            ::  crlens           !< array of crossing lengths of ray for particular grid boxes
    300303    INTEGER(iwp), DIMENSION(:), ALLOCATABLE        ::  lad_ip           !< array of numbers of process where lad is stored
     304#if defined( __parallel )
    301305    INTEGER(kind=MPI_ADDRESS_KIND), &
    302306                  DIMENSION(:), ALLOCATABLE        ::  lad_disp         !< array of displaycements of lad in local array of proc lad_ip
     307#endif
    303308    REAL(wp), DIMENSION(:), ALLOCATABLE            ::  lad_s_ray        !< array of received lad_s for appropriate gridboxes crossed by ray
    304309
     
    17971802        REAL(wp), DIMENSION(:,:,:), POINTER         :: lad_s_rma       !< fortran pointer, but lower bounds are 1
    17981803        TYPE(c_ptr)                                 :: lad_s_rma_p     !< allocated c pointer
     1804#if defined( __parallel )
    17991805        INTEGER(kind=MPI_ADDRESS_KIND)              :: size_lad_rma
     1806#endif
    18001807!   
    18011808!--     calculation of the SVF
Note: See TracChangeset for help on using the changeset viewer.