Ignore:
Timestamp:
Jun 29, 2017 9:28:18 AM (4 years ago)
Author:
raasch
Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:
1 edited

Legend:

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

    r2119 r2298  
    2525! -----------------
    2626! $Id$
     27! sendrecv_in_background related parts removed
     28!
     29! 2119 2017-01-17 16:51:50Z raasch
    2730!
    2831! 2118 2017-01-17 16:38:49Z raasch
     
    148151
    149152!
    150 !--       In case of background communication switched on, exchange is done
    151 !--       either along x or along y
     153!--       Asynchroneous exchange
    152154          IF ( send_receive == 'lr'  .OR.  send_receive == 'al' )  THEN
    153155
    154              IF ( .NOT. sendrecv_in_background )  THEN
    155                 req(1:4)  = 0
    156                 req_count = 0
    157              ENDIF
     156             req(1:4)  = 0
     157             req_count = 0
    158158!
    159159!--          Send left boundary, receive right one (asynchronous)
     
    171171                             req(req_count+4), ierr )
    172172
    173              IF ( .NOT. sendrecv_in_background )  THEN
    174                 CALL MPI_WAITALL( 4, req, wait_stat, ierr )
    175              ELSE
    176                 req_count = req_count + 4
    177              ENDIF
     173             CALL MPI_WAITALL( 4, req, wait_stat, ierr )
    178174
    179175          ENDIF
     
    213209
    214210!
    215 !--       In case of background communication switched on, exchange is done
    216 !--       either along x or along y
     211!--       Asynchroneous exchange
    217212          IF ( send_receive == 'ns'  .OR.  send_receive == 'al' )  THEN
    218213
    219              IF ( .NOT. sendrecv_in_background )  THEN
    220                 req(1:4)  = 0
    221                 req_count = 0
    222              ENDIF
     214             req(1:4)  = 0
     215             req_count = 0
    223216
    224217!
     
    237230                             req(req_count+4), ierr )
    238231
    239              IF ( .NOT. sendrecv_in_background )  THEN
    240                 CALL MPI_WAITALL( 4, req, wait_stat, ierr )
    241              ELSE
    242                 req_count = req_count + 4
    243              ENDIF
     232             CALL MPI_WAITALL( 4, req, wait_stat, ierr )
    244233
    245234          ENDIF
Note: See TracChangeset for help on using the changeset viewer.