Ignore:
Timestamp:
Mar 12, 2020 4:51:59 PM (12 months ago)
Author:
raasch
Message:

extensions to allow usage of alternative communicators in exchange_horiz

File:
1 edited

Legend:

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

    r4414 r4461  
    2525! -----------------
    2626! $Id$
     27! +virtual_pe_grid, communicator_configurations
     28!
     29! 4414 2020-02-19 20:16:04Z suehring
    2730! - nzb_diff_s_inner, nzb_diff_s_outer, nzb_inner,nzb_outer, nzb_s_inner,
    2831!   nzb_s_outer, nzb_u_inner, nzb_u_outer, nzb_v_inner, nzb_v_outer,
     
    12411244    INTEGER(iwp) ::  numprocs = 1                !< total number of appointed processor elements
    12421245    INTEGER(iwp) ::  numprocs_previous_run = -1  !< total number of appointed processor elements in previous run (job chain)
    1243     INTEGER(iwp) ::  pleft                       !< MPI-address of the processor left of the current one
    1244     INTEGER(iwp) ::  pnorth                      !< MPI-address of the processor north of the current one
    1245     INTEGER(iwp) ::  pright                      !< MPI-address of the processor right of the current one
    1246     INTEGER(iwp) ::  psouth                      !< MPI-address of the processor south of the current one
     1246    INTEGER(iwp) ::  pleft                       !< MPI id of left neigbour pe
     1247    INTEGER(iwp) ::  pnorth                      !< MPI id of right neigbour pe
     1248    INTEGER(iwp) ::  pright                      !< MPI id of south neigbour pe
     1249    INTEGER(iwp) ::  psouth                      !< MPI id of north neigbour pe
    12471250    INTEGER(iwp) ::  req_count = 0               !< MPI return variable - checks if Send-Receive operation is already finished
    12481251    INTEGER(iwp) ::  sendrecvcount_xy            !< number of subdomain gridpoints to be exchanged in direct transpositions (y --> x, or x --> y) or second (2d) transposition x --> y
     
    12641267
    12651268    LOGICAL ::  collective_wait = .FALSE.          !< switch to set an explicit MPI barrier in front of all collective MPI calls
     1269
     1270    TYPE virtual_pe_grid
     1271       INTEGER(iwp) ::  mpi_communicator         !< MPI communicator id
     1272       INTEGER(iwp) ::  pleft                    !< MPI id of left neigbour pe
     1273       INTEGER(iwp) ::  pright                   !< MPI id of right neigbour pe
     1274       INTEGER(iwp) ::  psouth                   !< MPI id of south neigbour pe
     1275       INTEGER(iwp) ::  pnorth                   !< MPI id of north neigbour pe
     1276    END TYPE virtual_pe_grid
     1277
     1278    TYPE(virtual_pe_grid) ::  communicator_configurations(4)  !< stores the four possible 2d virtual grids:
     1279                                                              !< cyclic, cyclic along x, cyclic along y, non-cyclic
    12661280
    12671281#if defined( __parallel )
Note: See TracChangeset for help on using the changeset viewer.