Changeset 1677 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Oct 2, 2015 1:25:23 PM (9 years ago)

Author:

boeske

Message:

Bugfix concerning wall_flags at PE boundaries, added new subroutine exchange_horiz_int

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! New MPI-data types for exchange of 3D integer arrays.
 !
 ! Former revisions:
@@ -1035 +1035 @@
 
     ENDIF
+!
+!-- Define data types for exchange of 3D Integer arrays.
+    ngp_yz_int = (nzt - nzb + 2) * (nyn - nys + 1 + 2 * nbgp)
+
+    CALL MPI_TYPE_VECTOR( nxr-nxl+1+2*nbgp, nbgp*(nzt-nzb+2), ngp_yz_int, &
+                          MPI_INTEGER, type_xz_int, ierr )
+    CALL MPI_TYPE_COMMIT( type_xz_int, ierr )
+
+    CALL MPI_TYPE_VECTOR( nbgp, ngp_yz_int, ngp_yz_int, MPI_INTEGER, type_yz_int, &
+                          ierr )
+    CALL MPI_TYPE_COMMIT( type_yz_int, ierr )
+
 #endif