Ignore:
Timestamp:
Oct 2, 2015 1:25:23 PM (6 years ago)
Author:
boeske
Message:

Bugfix concerning wall_flags at PE boundaries, added new subroutine exchange_horiz_int

File:
1 edited

Legend:

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

    r1576 r1677  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! New MPI-data types for exchange of 3D integer arrays.
    2323!
    2424! Former revisions:
     
    10351035
    10361036    ENDIF
     1037!
     1038!-- Define data types for exchange of 3D Integer arrays.
     1039    ngp_yz_int = (nzt - nzb + 2) * (nyn - nys + 1 + 2 * nbgp)
     1040
     1041    CALL MPI_TYPE_VECTOR( nxr-nxl+1+2*nbgp, nbgp*(nzt-nzb+2), ngp_yz_int, &
     1042                          MPI_INTEGER, type_xz_int, ierr )
     1043    CALL MPI_TYPE_COMMIT( type_xz_int, ierr )
     1044
     1045    CALL MPI_TYPE_VECTOR( nbgp, ngp_yz_int, ngp_yz_int, MPI_INTEGER, type_yz_int, &
     1046                          ierr )
     1047    CALL MPI_TYPE_COMMIT( type_yz_int, ierr )
     1048
    10371049#endif
    10381050
Note: See TracChangeset for help on using the changeset viewer.