Commit 5f44efa7 authored by Keith Bennett's avatar Keith Bennett

Fixed array slicing error

parent 9dc8288d
......@@ -247,7 +247,7 @@ CONTAINS
starts = local_starts - 1
sizes = sz
subsizes = SHAPE(array) - ghosts(:)
subsizes = SHAPE(array) - ghosts(1:ndims) - ghosts(ndims+1:)
CALL MPI_TYPE_CREATE_SUBARRAY(ndims, sizes, subsizes, starts, &
MPI_ORDER_FORTRAN, mpitype_real, distribution, errcode)
......@@ -346,7 +346,7 @@ CONTAINS
starts = local_starts - 1
sizes = sz
subsizes = SHAPE(array) - ghosts(:)
subsizes = SHAPE(array) - ghosts(1:ndims) - ghosts(ndims+1:)
CALL MPI_TYPE_CREATE_SUBARRAY(ndims, sizes, subsizes, starts, &
MPI_ORDER_FORTRAN, mpitype_real, distribution, errcode)
......@@ -445,7 +445,7 @@ CONTAINS
starts = local_starts - 1
sizes = sz
subsizes = SHAPE(array) - ghosts(:)
subsizes = SHAPE(array) - ghosts(1:ndims) - ghosts(ndims+1:)
CALL MPI_TYPE_CREATE_SUBARRAY(ndims, sizes, subsizes, starts, &
MPI_ORDER_FORTRAN, mpitype_real, distribution, errcode)
......
......@@ -247,7 +247,7 @@ CONTAINS
starts = local_starts - 1
sizes = sz
subsizes = SHAPE(array) - ghosts(:)
subsizes = SHAPE(array) - ghosts(1:ndims) - ghosts(ndims+1:)
CALL MPI_TYPE_CREATE_SUBARRAY(ndims, sizes, subsizes, starts, &
MPI_ORDER_FORTRAN, mpitype_real, distribution, errcode)
......@@ -346,7 +346,7 @@ CONTAINS
starts = local_starts - 1
sizes = sz
subsizes = SHAPE(array) - ghosts(:)
subsizes = SHAPE(array) - ghosts(1:ndims) - ghosts(ndims+1:)
CALL MPI_TYPE_CREATE_SUBARRAY(ndims, sizes, subsizes, starts, &
MPI_ORDER_FORTRAN, mpitype_real, distribution, errcode)
......@@ -445,7 +445,7 @@ CONTAINS
starts = local_starts - 1
sizes = sz
subsizes = SHAPE(array) - ghosts(:)
subsizes = SHAPE(array) - ghosts(1:ndims) - ghosts(ndims+1:)
CALL MPI_TYPE_CREATE_SUBARRAY(ndims, sizes, subsizes, starts, &
MPI_ORDER_FORTRAN, mpitype_real, distribution, errcode)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment