Changeset 4461 for palm/trunk/SOURCE/modules.f90

Timestamp:

Mar 12, 2020 4:51:59 PM (4 years ago)

Author:

raasch

Message:

extensions to allow usage of alternative communicators in exchange_horiz

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! +virtual_pe_grid, communicator_configurations
+! 
+! 4414 2020-02-19 20:16:04Z suehring
 ! - nzb_diff_s_inner, nzb_diff_s_outer, nzb_inner,nzb_outer, nzb_s_inner, 
 !   nzb_s_outer, nzb_u_inner, nzb_u_outer, nzb_v_inner, nzb_v_outer, 
@@ -1241 +1244 @@
     INTEGER(iwp) ::  numprocs = 1                !< total number of appointed processor elements
     INTEGER(iwp) ::  numprocs_previous_run = -1  !< total number of appointed processor elements in previous run (job chain)
-    INTEGER(iwp) ::  pleft                       !< MPI-address of the processor left of the current one
-    INTEGER(iwp) ::  pnorth                      !< MPI-address of the processor north of the current one
-    INTEGER(iwp) ::  pright                      !< MPI-address of the processor right of the current one
-    INTEGER(iwp) ::  psouth                      !< MPI-address of the processor south of the current one
+    INTEGER(iwp) ::  pleft                       !< MPI id of left neigbour pe
+    INTEGER(iwp) ::  pnorth                      !< MPI id of right neigbour pe
+    INTEGER(iwp) ::  pright                      !< MPI id of south neigbour pe
+    INTEGER(iwp) ::  psouth                      !< MPI id of north neigbour pe
     INTEGER(iwp) ::  req_count = 0               !< MPI return variable - checks if Send-Receive operation is already finished
     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
@@ -1264 +1267 @@
 
     LOGICAL ::  collective_wait = .FALSE.          !< switch to set an explicit MPI barrier in front of all collective MPI calls
+
+    TYPE virtual_pe_grid
+       INTEGER(iwp) ::  mpi_communicator         !< MPI communicator id
+       INTEGER(iwp) ::  pleft                    !< MPI id of left neigbour pe
+       INTEGER(iwp) ::  pright                   !< MPI id of right neigbour pe
+       INTEGER(iwp) ::  psouth                   !< MPI id of south neigbour pe
+       INTEGER(iwp) ::  pnorth                   !< MPI id of north neigbour pe
+    END TYPE virtual_pe_grid
+
+    TYPE(virtual_pe_grid) ::  communicator_configurations(4)  !< stores the four possible 2d virtual grids:
+                                                              !< cyclic, cyclic along x, cyclic along y, non-cyclic
 
 #if defined( __parallel )